1:
2:
3:
4:
5:
6:

Color:=ColorToRGB(Image1.Picture.Bitmap[x,y]);
R := GetRValue(Color);
G := GetGValue(Color);
B1 := GetBValue(Color);
Gr:= Trunc(B*0.11+G*0.59+R*0.3);
Image1.Picture.Pictur[x,y] := RGB(Gr, Gr, Gr);					

1:
2:
3:
4:

procedure TForm1.key(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  var
    i,j: Integer;
    Color: TColor;
begin
  for i := 0 to Image1.Picture.Bitmap.Width do
    for j := 0 to Image1.Picture.Bitmap.Height do begin
      Color := Image1.Picture.Bitmap.Canvas.Pixels[i,j];
      Color := Trunc(GetBValue(Color)*0.11+GetGValue(Color)*0.59+GetRValue(Color)*0.3);
      Image1.Picture.Bitmap.Canvas.Pixels[i,j] := RGB(Color,Color,Color);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
  pData: PRGBTriple;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    with bmp do begin
      // 24 Bit Pixelformat
      PixelFormat := pf24bit;

      // Konvertiert das Bild gleichzeitig nach bmp falls es sich zum Beispiel um ein JPEG handeln sollte.
      Width := Image1.Picture.Width;
      Height := Image1.Picture.Height;
      Canvas.Draw(0, 0, Image1.Picture.Graphic);

      // Zeile holen
      for Y := 0 to Height -1 do begin
        pData := ScanLine[Y];

        // Spalte
        for X := 0 to Width -1 do begin
          // In Grau umrechnen
          pData^.rgbtRed   := (pData^.rgbtRed + pData^.rgbtGreen + pData^.rgbtBlue) div 3;
          pData^.rgbtGreen := pData^.rgbtRed;
          pData^.rgbtBlue  := pData^.rgbtRed;

          // Pointer aufs nächste Pixel setzen.
          Inc(pData);
        end;
      end;
    end;

    // Bild wieder dem Image zuweisen
    Image1.Picture.Bitmap.Assign(bmp);
  finally
    // frei geben
    bmp.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
  Canceled : boolean;
begin
  Canceled := False;

  // Zeile
  for Y := 0 to Height -1 do begin

    // Spalte
    for X := 0 to Width -1 do begin
      // Irgendetwas machen

      // Taste abfragen
      if GetAsyncKeyState(VK_ESCAPE) <> 0 then begin
        Canceled := True;
        BREAK; // innere Schleife abbrehen
      end;
    end;

    // äußere Schleife abbrechen
    if Canceled then
      BREAK;
  end;

  // Bild zum Beispiel wieder dem Image zuweisen, wenn nicht abgebrochen wurde
  if not Canceled then
    // mach was.
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: integer;
  r1, g1, b1, r2, g2, b2, r3, g3, b3: integer;
  color: Tcolor;
begin
  color := clblue; //Farbton Auswahl
  for x := 0 to image1.Width do //x schleife
    for y := 0 to image1.Height do //y schleife
      begin
        r1 := getrvalue(image1.Canvas.pixels[x,y]); //Rot Anteile aus dem SW Bild
        g1 := getgvalue(image1.Canvas.pixels[x,y]); //Grün Anteile aus dem SW Bild
        b1 := getbvalue(image1.Canvas.pixels[x,y]); //Blau Anteile aus dem SW Bild
        r2 := getrvalue(color); //Rot Anteile der Mischfarbe
        g2 := getgvalue(color); //Grün Anteile der Mischfarbe
        b2 := getbvalue(color); //Blau Anteile der Mischfarbe
        r1 := 255 - r1; //SW R invertieren
        g1 := 255 - g1; //SW G invertieren
        b1 := 255 - b1; //SW B invertieren
        r3 := (r2 * r1); //R mischen
        g3 := (g2 * g1); //G mischen
        b3 := (b2 * b1); //B mischen
        image1.Canvas.pixels[x, y] := RGB(r3, g3, b3); //Farbe zusammenfügen und setzen
      end;
end;					

1:

[Fehler] ftsg.pas(161): Nicht genügend wirkliche Parameter					

1:

[Fehler] ftsg.pas(161): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen