Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
24. Nov 2003
Dann versuche doch mal folgende Zeile zu ändern... eigentlich sollte das nicht das Problem sein, aber man weiß ja nie ;-)
procedure TStatusScroll.Paint;
var FTextHeight, FTextWidth, t : integer;
bmp : TBitmap;
begin
inherited;
with canvas do begin
Brush.Style:=BSClear;
Canvas.Font.Assign(Self.FFont);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sakura,
24. Nov 2003
Nutze mal anstatt des Paint den Aufruf zu Invalidate bzw. Refresh. Ich hoffe, daß dieses hilft. Die werden, im Vergleich zu Paint über Windows-Botschaften verarbeitet und nicht direkt ausgeführt.
...:cat:...