Eigene Komponente (Bild erlaubt kein zeichnen)

[DIET3RIX]

Morgen,
ich versuche meine eigene Komponente zu schreiben. Leider weiss ich nicht, wie ich der ein Aussehen verleiehen kann.
Ich wollte mal testweise Hintergrundfarbe ändern, leider funzt das nicht so wie ich das haben wollte.

Delphi-Quellcode:

type
  TMyWinCtrl = class(TWinControl)
  private
    FBGColor : TColor;
    Canvas   : TCanvas;
    procedure SetBGColor(Value: TColor);
    { Private-Deklarationen }

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public-Deklarationen }

  published
    property BGColor : TColor   read FBGColor   write SetBGColor;
    { Published-Deklarationen }

  end;

constructor TMyWinCtrl.Create(AOwner: TComponent);
begin
  Canvas   := TCanvas.Create;
  inherited Create(AOwner);
end;

destructor TMyWinCtrl.Destroy;
begin
  inherited;
  Canvas.Free;
end;

procedure TMyWinCtrl.SetBGColor(Value: TColor);
var
  Rect : TRect;
begin
  Rect := GetClientRect;
  if ColorToRGB(Value) > -1 then
  begin
    Canvas.Brush.Color := Value;
    Canvas.FillRect(Rect);
    FBGColor := Value;
  end;
  Canvas.Refresh;
end;

end.

Ich bekomme die ganze Zeit die Fehlermeldung: "Leinwand/Bild erlaubt kein zeichnen".
Was kann ich tun bzw. was mache ich falsch?

thx voraus

[mkinzler]

TCanvas ist abstrakt.

[DIET3RIX]

und was heißt das?

edit:
habs hinbekommen:

Delphi-Quellcode:

procedure TMyWinCtrl.SetBGColor(Value: TColor);
var
  Rect : TRect;
  notUsed : HWND;
begin
  Rect := GetClientRect;
  Canvas.Handle := GetDeviceContext(notUsed);
  if ColorToRGB(Value) > -1 then
  begin
    Canvas.Brush.Color := Value;
    Canvas.FillRect(Rect);
    FBGColor := Value;
  end;
  Canvas.Refresh;
end;

[Muetze1]

Zitat von DIET3RIX:

Delphi-Quellcode:

procedure TMyWinCtrl.SetBGColor(Value: TColor);
var
  Rect : TRect;
  notUsed : HWND;
begin
  Rect := GetClientRect;
  Canvas.Handle := GetDeviceContext(notUsed);   // <<---
  if ColorToRGB(Value) > -1 then
  begin
    Canvas.Brush.Color := Value;
    Canvas.FillRect(Rect);
    FBGColor := Value;
  end;
  Canvas.Refresh;
end;

Was ist das denn? Einen Zufallswert als Fensterhandle angeben? Spielst du gerne Lotto?

Da du von TWinControl ableitest hast du eine Eigenschaft Handle welches genau das Fensterhandle zu deiner Komponente angibt. Also so:

Delphi-Quellcode:

procedure TMyWinCtrl.SetBGColor(Value: TColor);
var
  Rect : TRect;
begin
  Rect := GetClientRect;
  Canvas.Handle := GetDeviceContext(Self.Handle);  
  if ColorToRGB(Value) > -1 then
  begin
    Canvas.Brush.Color := Value;
    Canvas.FillRect(Rect);
    FBGColor := Value;
  end;
  Canvas.Refresh;
end;

Dann noch folgendes:

1. Das DC Handle (also Canvas.Handle) brauchst du nur einmalig holen, wenn das Fenster angelegt wurde. Dazu kannst du dir die Methode CreateWnd; anschauen.
2. Die Variable Rect heißt genauso wie die Funktion Rect(). Grundlegend sollte es hier keinen Unterschied geben, aber trotzdem ist es nicht gerade schön. Ich empfehle ein kleines L als Präfix im Variablennamen (l = lokal).
3. Wieso malst du in dem Setter der Eigenschaft? Du hast die Paint Methode welche immer aufgerufen wird, wenn gemalt werden soll. Malst du sonst in jedem Setter zu jeder Eigenschaft komplett alles oder willst du das bewerkstelligen? Male im Paint und in den Settern löst du das neuzeichnen einfach aus (z.B. durch Aufruf von Invalidate)

[Gandalfus]

von TCustomControl ableiten