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.BlendFrame(var bmp: TBitmap);
type
  PixArray = Array [0..2] of Byte;
var
  i, j: Integer;
  p: ^PixArray;
begin
  // switch pixelformat
  bmp.PixelFormat := pf24Bit;

  // calculate overlay
  i := FocusFrame.Top;
  repeat
    if not ((i < 0) or (i > Screen.Height - 1)) then begin
      p := bmp.ScanLine[i];
      Inc(p, FocusFrame.Left);
      j := FocusFrame.Left;
      repeat
        if not ((j < 0) or (j > Screen.Width - 1)) then begin
          p^[0] := Round(p^[0] - ((p^[0] - GetBValue(clHighlight)) / 100 * OverlayIntensity));
          p^[1] := Round(p^[1] - ((p^[1] - GetGValue(clHighlight)) / 100 * OverlayIntensity));
          p^[2] := Round(p^[2] - ((p^[2] - GetRValue(clHighlight)) / 100 * OverlayIntensity));
        end;
        Inc(p);
        Inc(j);
      until j = FocusFrame.Right;
    end;
  Inc(i);
  until i = FocusFrame.Bottom;
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:

procedure TnMagWND.BlendFrame(var bmp: TBitmap);
type
  PixArray = Array [0..2] of Byte;
var
  i, j, a: Integer;
  p: ^PixArray;
  r, g, b: Byte;
begin
  // switch pixelformat
  bmp.PixelFormat := pf24Bit;

  // vars
  b := GetBValue(clHighlight);
  g := GetGValue(clHighlight);
  r := GetRValue(clHighlight);
  a := 100 * OverlayIntensity;

  // calculate overlay
  i := FocusFrame.Top;
  repeat
    if not ((i < 0) or (i > Screen.Height - 1)) then begin
      p := bmp.ScanLine[i];
      Inc(p, FocusFrame.Left);
      j := FocusFrame.Left;
      repeat
        if not ((j < 0) or (j > Screen.Width - 1)) then begin
//          p^[0] := Round(p^[0] - ((p^[0] - GetBValue(clHighlight)) / 100 * OverlayIntensity));
//          p^[1] := Round(p^[1] - ((p^[1] - GetGValue(clHighlight)) / 100 * OverlayIntensity));
//          p^[2] := Round(p^[2] - ((p^[2] - GetRValue(clHighlight)) / 100 * OverlayIntensity));
          p^[0] := Round(p^[0] - ((p^[0] - b) / a));
          p^[1] := Round(p^[1] - ((p^[1] - g) / a));
          p^[2] := Round(p^[2] - ((p^[2] - r) / a));
        end;
        Inc(p);
        Inc(j);
      until j = FocusFrame.Right;
    end;
  Inc(i);
  until i = FocusFrame.Bottom;
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:

uses Math;

procedure TForm1.BlendFrame(var bmp: TBitmap);
type
  PixArray = Array [0..2] of Byte;
var
  y, x: Integer;
  p: ^PixArray;
  Dest: TRect;
  r, g, b: Byte;
  LUTr, LUTg, LUTb: array[0..255] of Byte;
begin
  bmp.PixelFormat := pf24Bit;

  b := GetBValue(ColorToRGB(clHighlight));
  g := GetGValue(ColorToRGB(clHighlight));
  r := GetRValue(ColorToRGB(clHighlight));

  for x := 0 to 255 do begin
    LUTr[x] := x - Round((x-r) / 100 * OverlayIntensity);
    LUTg[x] := x - Round((x-g) / 100 * OverlayIntensity);
    LUTb[x] := x - Round((x-b) / 100 * OverlayIntensity);
  end;

  Dest.Left:=Max(FocusFrame.Left, 0);
  Dest.Top:=Max(FocusFrame.Top, 0);
  Dest.Right:=Min(FocusFrame.Right, Screen.Width-1);
  Dest.Bottom:=Min(FocusFrame.Bottom, Screen.Height-1);

  for y:=Dest.Top to Dest.Bottom do begin
    p := bmp.ScanLine[y];;
    Inc(p, Dest.Left);
    for x:=Dest.Left to Dest.Right do begin
      p^[0] := LUTb[p^[0]];
      p^[1] := LUTg[p^[1]];
      p^[2] := LUTr[p^[2]];
      Inc(p);
    end;
  end;
end;					

1:

Red := Trunc((Red_1 * FaqF1) + (Red_2 * FaqF2));					

1:

Red := Round((Red_1 * FaqF1) + (Red_2 * FaqF2));					

1:

Red := ((Red_1 * Faq1) + (Red_2 * Faq2)) div $FF;					

1:

Red := ((Red_1 * Faq1) + (Red_2 * Faq2)) shr 8;					

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

var
  Faq1, Faq2: Byte;
begin
  Faq1 := $FF * OverlayIntensity div 100;
  Faq2 := $FF - Faq1;

  for y := 0 to height do
    for y := 0 to height do
      // Pixel berechnen
      pDest^[0] := ((pSrc1^[0] * Faq1) + (pSrc2^[0] * Faq2)) shr 8;
      pDest^[1] := ((pSrc1^[1] * Faq1) + (pSrc2^[1] * Faq2)) shr 8;
      pDest^[2] := ((pSrc1^[2] * Faq1) + (pSrc2^[2] * Faq2)) shr 8;
    end;
  end;					

1:
2:
3:

  for i := 0 to 100000000 do begin
    a:=a+1;
  end;					

1:
2:
3:

  repeat
    a:=a+1;
  until a=100000000;					

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

procedure TMainForm.ButtonRepeatClick(Sender: TObject);
var
  start, stop: Int64;
  a: Integer;
begin
  a := 0;
  QueryPerformanceCounter(start);
  repeat
    a := a + 1;
  until a = 100000000;
  QueryPerformanceCounter(stop);
  LabelRepeat.Caption := IntToStr(stop-start);
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  start, stop, freq: Int64;
  a: Integer;
begin
  a := 0;
  QueryPerformanceFrequency(freq);
  QueryPerformanceCounter(start);
  repeat
    a := a + 1;
  until a = 100000000;
  QueryPerformanceCounter(stop);
  Label1.Caption := IntToStr(Round((stop-start)*1000/freq)); // ausgabe in millisekunden
end;