Thema
:
Eigene Komponente (Bild erlaubt kein zeichnen)
Einzelnen Beitrag anzeigen
DIET3RIX
Registriert seit: 21. Feb 2006
Ort: Bonn
78 Beiträge
Delphi 2007 Professional
#
3
Re: Eigene Komponente (Bild erlaubt kein zeichnen)
24. Aug 2007, 09:10
und was heißt das?
edit:
habs hinbekommen:
zusammenfalten
·
markieren
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
;
Dieter
Zitat
DIET3RIX
Öffentliches Profil ansehen
Mehr Beiträge von DIET3RIX finden