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.
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.