TBitmap / TImage als TGA speichern macht Probleme

[Dani]

Hi

GraphicEx:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Targa: TTargaGraphic;
  FormImg: TBitmap;
  FS: TFileStream;
begin
  FS := TFileStream.Create('C:\targa.tga', fmCreate or fmShareDenyWrite);
  Targa := TTargaGraphic.Create;
  FormImg := GetFormImage;
  try
    Targa.Assign(FormImg);
    Targa.SaveToStream(FS, false);
  finally
    FS.Free;
    FormImg.Free;
    Targa.Free;
  end;
end;

TTargaGrahpic.SaveToStream() hat nen Parameter "Compressed"