Eigene Komponente wird übermalt

[DIET3RIX]

Hallo, ich schon wieder.

Ich habe eine Komponente geschriben, leider wird die immer übermalt wenn ich z.B. die Größe verändere oder andere Form/Fenster drüber bewege.

Woran liegt das bzw. wie kann ich das verhindern.
Hier ein bissle Code:

Delphi-Quellcode:

procedure TMyWinCtrl.Paint;
var
  Rect    : TRect;
  notUsed : HWND;
begin
  Rect               := GetClientRect;
  Canvas.Handle      := GetDeviceContext(notUsed);
  Canvas.Brush.Color := FBGColor;
  Canvas.Font.Color  := FFont.Color;
  Canvas.Font.Size   := FFont.Size;
  Canvas.Font.Style  := FFont.Style;
  Canvas.Font.Name   := FFont.Name;
  Canvas.Pen.Color   := FBorderColor;
  Canvas.Pen.Style   := FBorder;

  if ColorToRGB(FBGColor) > -1 then
  begin
    Canvas.FillRect(Rect);
    Canvas.Rectangle(Rect);
  end;

  if FText <> '' then
  begin
    Canvas.TextOut(5,5, FText);
  end;

end;

[shmia]

Die Zuweisung an Canvas.Handle ist falsch.
Die VCL besorgt sich schon selber das richtige Handle.

[DIET3RIX]

Wenn ich das weg machen, dann bekomme ich 'ne Fehlermeldung: "Leinwand/Bild erlaubt kein zeichnen."

[shmia]

Von welche Klasse ist dein Control abgeleitet ?

[mkinzler]

Du musst dafür sorgen, daß bei jedem repaint deine Zeichencode aufgerufen wird z.B. durch Überschreiben von .DoPaint.

[DIET3RIX]

@shmia
Ich leite von der Klasse TWinControl ab.

@mkinzler
Sorry, ich kann dir leider nicht folgen :/

[bernau]

Zitat von DIET3RIX:

@shmia
Ich leite von der Klasse TWinControl ab.

Leite Deine Klasse von TCustomControl ab.
Dann deine Paint-Methode mit override deklarieren.
Und
Canvas.Handle := GetDeviceContext(notUsed);
weglassen.


Gerd

[DIET3RIX]

alles klar, viele Dank.
Mit der TCustomControl Klasse funktioniert es.