|
Registriert seit: 21. Apr 2005
Ort: Spremberg
455 Beiträge
Turbo Delphi für Win32
|
Re: Icon in TCustomControl integrieren
7. Dez 2005, 07:57
in der Komponente Paint überschreiben und dort zeichnen
Delphi-Quellcode:
procedure TmyCompo.Paint; override;
...
procedure TMyCompo.Paint;
begin
inherited;
ImageList.draw (Canvas,2,2,True);
end;
Da sprach der Stumme zum Blinden: "Du wirst sehen ..."
oder
Wer lesen kann, ist klar im Vorteil!
|