Home » Tutorials » Grafik und Spiele » Bitmaps
Bitmaps
Beispiel 1
Beispiel: Rot eingefärbtes Bitmap
Für die drei Farbwerte erstellen wir einen Typ namens ‚PixArray‘. Es ist ein Array, das drei Werte aufnehmen kann.
Da ScanLine einen Zeiger erwartet, erstellen wir eine Variable ‚p‘, die auf ‚PixArray‘ zeigt. Die Integervariablen h und w sind die Laufvariablen für Höhe und Breite des Bildes.
procedure TForm1.MakeRed(Bit: TBitmap); type PixArray = Array [1..3] of Byte; var p: ^PixArray; h,w: Integer; begin for h:=0 to Bit.Height-1 do begin p:= Bit.ScanLine[h]; for w:=0 to Bit.Width-1 do begin p^[3]:=255; Inc(p); end; end; end;
Das eigentliche Einfärben findet in der Zeile ‚p^[3]:= 255;‘ statt, hier wird dem Rot-Wert der höchstmögliche Wert zugeordnet (Byte : 0 – 255).