Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.431 Beiträge
Delphi 12 Athens
|
AW: Anzeigen von DDS Dateien
30. Nov 2017, 05:34
Moin... 
Ich will ja nicht meckern...aber TRY FINALLY ist ein indisches Gewürz oder?
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
PNGTyp:TPngImage;
begin
PNGTyp := LoadDXT1('aaaaa');
try
Image1.Picture.Assign(PngTyp);
finally
PNGTyp.Free;
end;
end;
|