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);

[agm65]

jetzt sagt er mir was on wegen combo box könne picture nicht zugewiesen werden ....kann es damit zusammen hängen das ich versuche das aus nem combo change raus zu starten ?

was allerdings föllig unlogisch wäre

*****
jetzt wechselt er aber es ist kein bild zu sehen ich dreh ab
*****

das ganze als bitmap geht auch nicht :( :wall:

[Gandalfus]

beschreibe doch mal allgemein was du machen willst.

[fkerber]

Hi!

... und häng vielleicht mal etwas Code an.

Ciao fkerber

[agm65]

okay also ich hab die imagelist in der sind 6 icons gespeichert.
jetzt möchte ich das an einer bestimmten stelle immer zu einer bestimmten funktion sich das icon ändert ! 0-5 ...

also dachte ich es wäre möglich es einfach in ein picturebox reinzubasteln wie in vb

thx all

[phXql]

mach ein image, und dann

Delphi-Quellcode:

Imagelist1.GetIcon(0,Image1.Picture.Icon);

bei mir gehts...