Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#2
  Alt 15. Jun 2003, 21:03
Moin BlooodyAngel,

probier's mal so:

Delphi-Quellcode:
var
  bmpWork : TBitmap;

begin
  bmpWork := TBitmap.Create;
  try
    bmpWork.LoadFromFile('gra\1.wks');
    DXImageList1.Items.Add;
    DXImageList1.Items[0].Picture.Bitmap.Assign(bmpWork);
  finally
    FreeAndNil(bmpWork);
  end;
end;
Ich würde übrigens nicht mit einem relativen Pfad (gra\) arbeiten.
Dieser wird relativ zu Arbeitsverzeichnis ausgewertet, und das kann man sich leicht mal verstellen.
Auch wenn / ein gültiger Trenner für Pfadbestandteile ist, würde ich dennoch auf die Verwendung von \ achten. Eine Routine, die sich an Dateiendungen stört könnte auch sonst noch eingeheiten haben.

BTW: Ausprobieren ob's so funktioniert kann ich leider nicht, da ich DelphiX bislang noch nicht benutzt habe, und somit nicht weiss, wie ich ein Image aus der DXImageList darstellen kann
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