bild aus imagelist in Image

[dajuhsa]

gut, ihr haltet mich jetzt warscheinlich für einen :stupid: volltrotel :oops: aber meine frage ist:

wie lädt man ein bild aus einer imagelist in ein image

[hibbert]

einfach mal die sufu benutzen ;)

[edit=Jelly] Mfg, Jelly[/edit]

[dajuhsa]

1. ich weiß, dass ich dumm bin.
2. Danke für die tolle antwort

[DGL-luke]

Ich würds mal per GetBitmap versuchen.

[dajuhsa]

hab schon mal n bisschen rumprobiert, aber ich hab dann immer probleme mit den typen TBitmap und TPicture

[bitsetter]

Hi,

Delphi-Quellcode:

imagelist1.GetBitmap(0,image1.Picture.Bitmap);

[dajuhsa]

Zitat:

Zitat von bitsetter

Hi,

Delphi-Quellcode:

imagelist1.GetBitmap(0,image1.Picture.Bitmap);

Danke Vielmals, ich hab wohl das Bitmap nach image1.picture vergessen

[dajuhsa]

ich hab jetzt noch ein problem:
Wenn in dem Image schon ein bild drin ist, dann lädt er kein neues mehr rein

[bitsetter]

Noch eine andere Möglichkeit:

Delphi-Quellcode:

var
  Bild: TBitmap;
begin
  Bild:= TBitmap.Create;
  try
    imagelist1.GetBitmap(0, Bild);
    image1.Picture.Bitmap.Assign(Bild);
  finally
    Bild.Free;
  end;

Das geht sogar auch, ist bestimmt nicht so gut.

Delphi-Quellcode:

  
  image1.Picture.Bitmap:= nil;
  imagelist1.GetBitmap(0, image1.Picture.Bitmap);

[dajuhsa]

Klappt super, vielmals danke :-D

[dajuhsa]

ich hab schon wieder ein problem...

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
BM: TBitmap;
begin
  if Key=#37 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(1, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
  if Key=#38 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(3, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
  if Key=#39 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(2, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
  if Key=#40 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(0, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
end;

funktioniert nicht, kein bild, keine reaktion... :wall:

[Namenloser]

Hi,

Zuerst einmal: Bist du sicher, dass das die richtigen Tastencodes sind? :zwinker:
Denn:

Code:

#37 = %
#38 = &
#39 = '
#40 = (

Evtl. hast du auch vergessen die Eigenschaft KeyPreview der Form auf true zu stellen.
Ansonsten sieht der Code nämlich richtig aus. :gruebel:

[dajuhsa]

ich hab mir mal ein programm geschrieben um mir die tastencodezahlen anzeigen zu lassen, da war alles richtig(a=65,b=66) und früher hat auch immer alles so geklappt, aber vllt. geht 37-40 nur bei KeyDown... , aber egal ich habs schön längst wieder hingekriegt :mrgreen: