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]

Delphi-Quellcode:

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]

Delphi-Quellcode:

Image1.picture.bitmap.assign(MyIcon);