Jungs, ich liebe Euch!
Endlich bin ich am Ziel meiner Träume!!!
Zwar hat die Unit noch ein paar wenige Macken, aber meine Güte, wer hat das schon nicht?
Danke, Jungs, ihr ward echt ne riesen große Hilfe.
Noch eine kleine Verbesserungsfrage für meinen Code, sofern gestattet:
procedure TForm1.Button1Click(Sender: TObject);
var image: TGLBMP;
begin
bmp := TBitmap.Create;
bmp.Width := 256;
bmp.Height := 256;
bmp.PixelFormat := pf32bit;
if OpenDialog1.Execute then
begin
bmp := Gpi2Bmp(OpenDialog1.FileName);
Image1.Canvas.Draw(0,0,bmp);
bmp.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test.bmp');
bmp.Free;
image := TGLBMP.Create(ExtractFilePath(ParamStr(0)) + 'test.bmp');
if image.SaveImage(ExtractFilePath(ParamStr(0)) + 'test.tga') then
ShowMessage('TGA successfully saved!');
end;
end;
So sieht der Code bisher aus.
Aber wie ihr sicherlich sofort erkennen könnt, ist er etwas umständlich. Ich muss das Image zuerst als *.bmp-File speichern, dann wieder öffnen und dann als TGA-File speichern. Geht das irgendwie anders, also dass ich direkt image := TGLBMP.Create(bmp) setzen kann, oder so? Kommt jetzt ne Fehlermeldung wegen ungleichen Typen.
Thanx an alle
Kevin
BTW: Kennt jemand einen Trick, wie ich das tga-File komprimieren kann?