Anzeigen von DDS Dateien

[haentschman]

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;