Icon in TCustomControl integrieren

[K-Asche]

Hi@all,

ich schreibe mir gerade ein eigenes Control abgeleitet von TCustomControl.
Wie kann ich in dieses Control nun ein Icon einfügen?

Gruß

Karsten

[Ghostwalker]

Das ist sehr einfach. Bau einfach eine Property in deine Komponente ein.

Beispiel (Rumpf)

Code:

   private
       fIcon : TIcon;
       procedure SetIcon(const value:TIcon);
      :
      :
   published Icon : TIcon read ficon write SetIcon;
      :
      :


  constructor xyz.create;
  begin
    fIcon := TIcon.create;
    :
    :
  end;

  destructor xyz.destroy;
  begin
    ficon.free; 
  end;

   procedure xyz.SetIcon(const Value:TIcon);
   begin
     ficon.assign(value); 
   end;

Jetzt brauchst du das Icon nur noch beim Zeichnen berücksichtigen.

[K-Asche]

Meine Icons befinden sich aber in einer ImageList und sind als Ressourcen eingebunden.

[Kroko1999]

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;