grrr* roter Kasten!
Die Procedure Paint wird nur in der Klassendeklaration mit override deklariert. Im Implementation-Teil nicht.
Delphi-Quellcode:
:
Procedure Paint;override;
:
:
procedure TMyPanel.Paint;override;
begin
Canvas.Brush.Color := FBgColorFrom;
Canvas.TextOut(1,1,'Test');
end;
und dann kein refresh, denn es wird ja schon gezeichnet. Sonst wird es rekursiv!!!
Gruß oki
[edit] Mann schon wieder roter Kasten. ich bin heut zu langsam! [/edit]