TGA Unit

[RobertP]

Naja da gibts wenig zu zeigen ^^

Delphi-Quellcode:

try
        bmp := TBitmap.Create;

        bmp.Assign(sourceimg);
        SaveToFileX(outpath, bmp, 2);
      finally
        bmp.Free;
      end;

In der targa.pas musste ich am Anfang noch was ändern, da sonst der Compiler gestreikt hat (Index1 und 2 werden im Code Werte zugewiesen):

Delphi-Quellcode:

const
  Index1:Word=0;
  Index2:Word=0;
  Const4096=8*1024;

zu

Delphi-Quellcode:

var
  Index1:Word=0;
  Index2:Word=0;
const
  Const4096=8*1024;

Das TGA wird auch gespeichert und ohne Fehlermeldung vom Grafikprogramm geöffnet, aber ist halt einfach nur schwarz.