Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Manne,
17. Jul 2005
Hast du auch ein OnDrawItem- Ereignis für deine Listbox. Wenn ich den Code von Keldorn nehme,
zeigt es bei mir die Bilder einwandfrei in der Listbox an.
Habe zusätzlich noch IntegralHeight auf true und die Itemheight erhöht, und den Style "nur" auf lbOwnerDrawVariable gestellt.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Manne,
17. Jul 2005
Sorry,
Klar statt
if Bilder <> nil then
Bilder:= TBitmap.Create;
muss es
if Bilder = nil then
Bilder:= TBitmap.Create;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Manne,
17. Jul 2005
Servus,
wie schon Keldorn geschrieben hat, gibts du das Bitmap gleich wieder frei.
Zudem lädst dunie ein Bitmap in dein Bilder-Array rein.
Es sollte ungefähr so aussehen
procedure TfImport.bHinzufuegenClick(Sender: TObject);
begin
if not OpenPictureDialog1.Execute then
exit;