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.
