Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**oki**

Hi Hansa,

probier es mal mit folgendem Code:

Delphi-Quellcode:

			procedure TFarbButton1.DrawButton (Rect : TRect);

begin

  FCanvas.Brush.Color := FColor;

  FCanvas.Pen.Color := clBlack;

  FCanvas.FillRect(Rect);

end;

Gruß oki

oki Registriert seit: 30. Dez 2002 Ort: Brandshagen 1.819 Beiträge Delphi 2007 Professional	#2 1. Apr 2003, 15:00 Hi Hansa, probier es mal mit folgendem Code: markieren Delphi-Quellcode: procedure TFarbButton1.DrawButton (Rect : TRect); begin FCanvas.Brush.Color := FColor; FCanvas.Pen.Color := clBlack; FCanvas.FillRect(Rect); end; Gruß oki
	Zitat