Objekt soll sich selber zeichnen

**Hansa**

Hi,

kann mir da jemand helfen ? Ich will einen farbigen Button produzieren. Der Hintergrund ist der Thread mit OOP. D.h. ich habe eine neue Komponente erstellt, das geht auch schon. Ich kann z.B. einem Memo die Farbe, die im Button definiert ist zuweisen. Nur kriege ich es nicht gebacken, den Button selbst, in der Farbe, die im OI eingestellt ist, darzustellen.

markieren

Code:

			procedure TFarbButton1.DrawButton (Rect : TRect);

begin

  FCanvas.Brush.Color := FColor;

  FCanvas.Pen.Color := clBlack;

  DrawFocusRect (FCanvas.Handle,Rect);

end;

Das liegt bestimmt an dem DrawFocusRect. 8) FColor ist die Farbe aus dem OI. Leider hab ich mich bisher mit dem Canvas/Rect...Kram nicht befaßt.

Objekt soll sich selber zeichnen

Objekt soll sich selber zeichnen

Forumregeln