GFX LoadFile GIF Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Lädt GIF-Dateien mit 2-, 16-, 256-Farben der Versionen 87a und 89a. ACHTUNG: bei animierten GIFs wird nur das erste Bild angezeigt!

X0,Y0 gibt die Bildschirmkoordinaten der linken oberen Ecke des Bildes an. XE,YE bezeichnet die rechte untere Ecke. Ist das Bild größer, wird es abgeschnitten. Wird für XE,YE 0,0 eingegeben, wird das Bild in voller Größe geladen.

Zurückgelieferte Fehlercodes:

 0 - alles OK
-1 - Dateifehler (z.B. Datei kann nicht gelesen werden)
-2 - kein GIF-Bild

Deklaration

FUNCTION LoadFile_GIF(Name : STRING; X0, Y0, XE, YE : Integer) : Integer;

Beispiel

{ ACHTUNG: Sie sollten ein Testbild namens TEST.GIF     }
{ im gleichen Verzeichnis wie das Programm deponieren ! }
PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  LoadFile_GIF('TEST.GIF', 0,0,0,0); { lädt die GIF-Datei in voller Größe }
  ReadKey;
END.

---