GFX LoadFile BMPTrans Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Wie LoadFile_BMP. Jedoch wird die im zusätzlichen Parameter TransCol angegebene Farbe transparent gesetzt.

Deklaration

FUNCTION LoadFile_BMPTrans(Name : STRING; X0, Y0, XE, YE : Integer; TransCol : LongInt) : Integer;

Beispiel

{ ACHTUNG: Sie sollten ein Testbild namens TEST.BMP,    }
{ das einige weiße Bereiche (Farbe $FFFFFF) aufweist    }
{ im gleichen Verzeichnis wie das Programm deponieren ! }
PROGRAM Test;
USES GFX, Crt;
BEGIN
  InitGraph(Mode800x600x24);    { 24bit-Farbtiefe bei 800x600 Bildpunkten }
  LoadFile_BMPTrans('TEST.BMP', 0,0,0,0, $FFFFFF); { lädt die BMP-Datei in voller Größe, }
  ReadKey;                                         { läßt jedoch alle weißen Punkte aus  }
END.

'Persönliche Werkzeuge
Extras