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).