Thema: Delphi Hilfe - Listbox

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.106 Beiträge
 
Delphi 11 Alexandria
 
#2
  Alt 17. Dez 2002, 17:07
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.

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.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat