Unit Q_GIF

Classes

Functions

load_gif - If interlace
move_gif - laduje gifa NAZWA do DANE, paleta do P, ile wart.

Types

Constants

bigbuflen

Variables

gifCheck
gifERROR


Functions


procedure load_gif (nazwa:string;var dane:obrwsk; var p:bpt; var ilepal:word;how,mem:boolean);

If interlace

procedure move_gif ( var GIFplik:file; var dane:obrwsk; var p:bpt; var ilepal:word;how,mem:boolean; ishead:boolean);

laduje gifa NAZWA do DANE, paleta do P, ile wart.palety do ILEPAL, GIFERROR wiadomo, HOW-jak skrocic obrazek gdy za duzy:2 mozliwosci, MEM-czy przydzielic pamiec?

klasa LZWdecode


Types


Constants

bigbuflen = 32000

uzywanie obrazkow GIF, troche wolne ale zawsze skuteczne! (C) 1993 UHO SOFTWARE Lukasz Knasiecki kontakt:ul.Spasowskiego 7c/5 Koszalin kopiowanie bez zgody autora zabronione! bledy GIFERROR: 1-to nie gif 2-blad przy czytaniu headera 3-plik uszkodzony [wewnetrznie] 4-blad dyskowy 5-za duzy obrazek

Variables

gifCheck : boolean

gifERROR : byte