TGA Unit

[turboPASCAL]

Jupp, hab ich gestern Abend gemerkt. Ich seh mal zu das ich das im laufe des Tages berichtige.
Die meisten Software zum speichern von TGA's verwenden ein vertikal gespigeltes Bild in der Datei,
und beim Descriptor kommt dan einfach eine $08 hin.

zB. so:

Delphi-Quellcode:

procedure SaveBitmap32AsTGAFile(bmp32: TBitmap32; TGAFileName: String);
var
  fs: TFileStream;
  tgaHeader : TTGAFileHeader;
  DataArray: Array of DWORD;
  DataSize, n: DWORD;
  X, Y : Integer;
begin
  ZeroMemory(@tgaHeader, sizeof(tgaHeader));
  tgaHeader.imagetype  := 2;
  tgaHeader.width      := bmp32.Width;
  tgaHeader.height     := bmp32.Height;
  tgaHeader.pixeldepth := $20; // 32 Bit
  tgaHeader.descriptor := $08; // Bits 00001000 = 8 = $08

  DataSize := bmp32.Width * bmp32.Height * 4;
  SetLength(DataArray, DataSize + 1);

  // Bitmap "flippen"
  n := 0;
  for Y := bmp32.Height - 1 downto 0 do
    for X := 0 to bmp32.Width - 1 do
    begin
      DataArray[n] := bmp32.Bits[X + Y * bmp32.Width];
      inc(n);
    end;

  fs := TFilestream.Create(TGAFileName, fmCreate);
  try
    fs.Seek(soFromBeginning, 0);
    fs.Write(tgaHeader, SizeOf(tgaHeader));
    fs.Write(DataArray[0], DataSize);
  finally
    FreeAndNil(fs);
  end;

  SetLength(DataArray, 0);
end;