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)

  Alt 24. Aug 2007, 09:10
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;
Dieter
  Mit Zitat antworten Zitat