Moin Moin.
glBitmap habe ich samt Zubehör installiert. Mangels Dokumentation habe ich folgendes ausprobiert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
TGLBMPTyp:Tglbitmapdata;
BMPTyp:TBitmap;
begin
BMPTyp := TBitmap.Create; TGLBMPTyp := Tglbitmapdata.Create;
TGLBMPTyp.LoadFromFile('
E:\Games\maps\Attuwe_Color.dds');
// TGLBMPTyp.AssignToBitmap(BitmapTyp);
TGLBMPTyp.AssignToBitmap(Form1.Image1.Picture.Bitmap);
end;
// Fehlermeldung aus UNIT GLBitmap : "Fehlerhafters Pixelformat"
procedure TForm1.Button2Click(Sender: TObject);
var
TGLBMPTyp:Tglbitmapdata;
begin
TGLBMPTyp := tglbitmapdata.Create;
TGLBMPTyp.LoadFromFile('
E:\Games\maps\Attuwe_Color.dds');
TGLBMPTyp.SaveToFile('
E:\Games\maps\Attuwe_Color.bmp',ftbmp);
end;
// Fehlermeldung aus UNIT GLBitmap : Unsupported Format : tf23tcDtx1rgba
Letzteres - die Formatdefinition - steht auch nicht in der Liste der unterstützten Formate. Geht also wohl nicht, es sei denn ich mache etwas falsch.
Blöderweise ist das Programm das ich da erarbeite eigentlich eine Übertragung von Delphi7 nach Delphi 10.2. Die Delphi 7 Variante arbeitet problemlos.
In Delphi7 wird die DevIL Variante verwendet (2005), die, kompiliert mit Delphi 10.2, auch problemlos arbeitet, aber nichts anzeigt. Die DevIL Variante in neuerer Version wurde überarbeitet, aber ohne Dokumentation - jedenfalls habe ich keine gefunden - veröffentlicht. Die Befehle der Version 2005 funktionieren nicht mehr.
Wat mach' ich nu?
creehawk