GFX LoadFile PCX Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Lädt eine PCX-Datei mit 1-, 4-, 8- oder 24-bpp Farbtiefe.

X0,Y0 gibt die linke obere Ecke des Bildes an; XE,YE 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 - unbekanntes Format

Deklaration

FUNCTION LoadFile_PCX(FileName: STRING; X0, Y0, XE, YE : Integer) : Integer;

Beispiel

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

---