GFX LoadFile GIFanim Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Wie LoadFile_GIF. Lädt allerdings das "PicNr"-te Einzelbild eines animierten GIFs.

Deklaration

FUNCTION LoadFile_GIFanim(Name : STRING; PicNr : Word; X0, Y0, XE, YE : Integer) : Integer;

Beispiel

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

'Persönliche Werkzeuge
Extras