Hi, ihrs!

Hab ein riesen problem: Ich muss bis morgen ein Bild in eine listbox einfügen können und es von der listbox auf eine paintbox erzeugen. Wie macht man das???? Bisher weiß ich nur wie man text in die listbox hinzufügt....

Brauche dringend Hilfe!!!


Steffi

Moin Steffi,

erst einmal herzlich willkommen.

Unter der Annahme, dass Du eine Bitmap aus einer Datei lädst, und diese auf der Listbox ausgeben willst, sähe das, z.B., so aus.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  bmpWork : TBitmap;
  iWidth : integer;
  iHeight : integer;

begin
  if not OpenDialog1.Execute then
  begin
    exit;
  end;
  bmpWork := TBitmap.Create;
  try
    bmpWork.LoadFromFile(OpenDialog1.FileName);
    ListBox1.Canvas.Draw(0,0,bmpWork);
  finally
    FreeAndNil(bmpWork);
  end;
end;

ListBox1.Canvas ist die Zeichenfläche der Listbox, auf der, wie der Name schon sagt, gezeichnet werden kann, was dann mit Draw auch passiert.

Oh, super, thx, das hilft mir schon mal weiter. Ich denke das ganze gilt auch für TImage, ne?
ich versuche mal ob das geht

Wenn du ein Bild in TImage reinladen willst, gibt es da bessere Möglichkeiten. Zum Beispiel:

  Image1.Picture.LoadFromFile('C:\Pfad\zum\bild.bmp'); Unter der Vorraussetzung, dass die TImage-Kompo Image1 heißt.

Wenn du aber in Chris' Code statt TBitmap TImage nehmen würdest, wäre dass nicht möglich, da, wie oben gesagt, TImage eine Komponente ist.

@Chris: Die Variablen iHeight und iWidth werden nicht gebraucht...

Chris

Moin Chris,

stimmt. Ich werd' wohl langsam bröselig

Die hatte ich für die Übernahme des Images aus der ListBox in die Paintbox vorgesehen.

Theorethisch brauchst selbst da keine Höhenangaben...
Aber man kann sie natürlich auch nehmen...

Chris

Moin Chris,

doch, wenn Du Dir die Grösse der auf den Listbox.Canvas aufgebrachten Bitmap merken willst, unabhängig davon, ob die Bitmap weiterhin zur Verfügung steht. (so war's ursprünglich gedacht).