image.picture := imagelist.geticon(0);

[agm65]

hallo leute ....
vielleicht erkennt ihr am code wo mein problem liegt...also
ich möchte ein icon aus meiner image list in ein bild einladen ...

ich dachte wie folgt
image.picture := imagelist.geticon(0);

aber das geht nicht....habe schon im forum gesucht aber nichts gefunden ...


danke euch allen !

[Matze]

Bitte entferne erstmal die ganzen Fragezeichen aus dem Titel, so antwortet keiner gern.
Delphitags schaden auch nicht.

[Matze]

Probier's mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIcon: TIcon;
begin
  ImageList.GetIcon(0, MyIcon);
  Image1.Canvas.Draw(0, 0, MyIcon);
end;

keine Ahnung, ob's geht.

[Gandalfus]

image.picture.assign(imagelist.geticon(0));

[agm65]

bei der unteren lösung gibts den fehler nicht genügend wirkliche paramater !
beim oberen sagt er mir was von: ich soll das nur machen wenn ich die bilder belegt hätte, habe ich aber index 0-5

[Matze]

Vielleicht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIcon: TIcon;
begin
  ImageList.GetIcon(0, MyIcon);
  Image1.picture.assign(MyIcon);
end;

[agm65]

Code:

imglsticqstatus.GetIcon(0, MyIcon);
imgicqstatus.picture.icon := (MyIcon);

geht leider auch nicht .... das ist bei visual basic alles viel besser geregelt,
mit den icons und pictures....

[Matze]

Geht mein letztes Beispiel auch nicht?

[agm65]

nein geht auch nicht ...das ist echt übel

hätte nicht gedacht das das in delphi so schwer ist ...dann kann ichs mir jetzt auch erstmal abschmicken ne icon in eine statusbar zu laden ....

ich könnte auch 6 einzelne bilder machen und dann image.pic = image2.pic
habe ich mal in vb gemacht um ocx zu vermeiden ...ist aber lame in delphi da keine ocx files gebraucht werden !

[Gandalfus]

Image1.picture.bitmap.assign(MyIcon);