unit vimage

A unit to load a variety of image formats for VBXE

author: Steven Don, Tomasz Biela (Tebe)


VBXE

Constants:

name:value:description:
FileNotFound$01
UnsupportedFormat$02
TooLarge$03
BitShift: array [0..15] of word(1,2,4,8,$10,$20,$40,$80,$100,$200,$400,$800,$1000,$2000,$4000,$8000)

Register Variables:

name:address:type:description:
Buffer$0400array [0..0] of byte

Interface:

name:description:
UpdateXDL

procedure UpdateXDL(Location: cardinal; Top: word; Height: word);



    LoadPalette

    procedure LoadPalette(cnt: byte; x, ln, a,b,c: byte);



      LoadVPCX

      function LoadVPCX(Filename: TString; Location: cardinal): Boolean;


      This loads a PCX File (8bit)
        LoadVBMP

        function LoadVBMP(Filename: TString; Location: cardinal): Boolean;


        This loads a BMP File (4bit, 8bit)
          LoadVGIF

          function LoadVGIF(FileName: TString; Location: cardinal): Boolean;


          This loads a GIF File (GIF87a)