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)