Из Дельфи в Билдер!

[Lost_Angel]

Пожалуйста...людиии!
Нужна помощь!
Нужно переписать код написанный на дельфях в билдоровский..никак не прошарю, хоть и похоже все до ужаса...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtDlgs, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Image1: TImage;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    Button1: TButton;
    Button2: TButton;
    TrackBar1: TTrackBar;
    procedure Button1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Contrast(Bitmap: TBitmap; Value: Integer; Local: Boolean);

  function BLimit(B: Integer): Byte;
  begin
    if B < 0 then
      Result := 0
    else if B > 255 then
      Result := 255
    else
      Result := B;
  end;

//Value - значение контрастности на отрезке [-100..100]
//Local - если True, то применяется "местный контраст",
//если False, то - "общий" (более красивый)

var
  Dest: pRGBTriple;
  x, y, mr, mg, mb,
    W, H, tr, tg, tb: Integer;
  vd: Double;

begin
  if Value = 0 then
    Exit;
  W := Bitmap.Width - 1;
  H := Bitmap.Height - 1;
  if Local then
  begin
    mR := 128;
    mG := 128;
    mB := 128;
  end
  else
  begin
    tr := 0;
    tg := 0;
    tb := 0;
    for y := 0 to H do
    begin
      Dest := Bitmap.ScanLine[y];
      for x := 0 to W do
      begin
        with Dest^ do
        begin
          Inc(tb, rgbtBlue);
          Inc(tg, rgbtGreen);
          Inc(tr, rgbtRed);
        end;
        Inc(Dest);
      end;
    end;
    mB := Trunc(tb / (W * H));
    mG := Trunc(tg / (W * H));
    mR := Trunc(tr / (W * H));
  end;
  if Value > 0 then
    vd := 1 + (Value / 10)
  else
    vd := 1 - (Sqrt(-Value) / 10);
  for y := 0 to H do
  begin
    Dest := Bitmap.ScanLine[y];
    for x := 0 to W do
    begin
      with Dest^ do
      begin
        rgbtBlue := BLimit(mB + Trunc((rgbtBlue - mB) * vd));
        rgbtGreen := BLimit(mG + Trunc((rgbtGreen - mG) * vd));
        rgbtRed := BLimit(mR + Trunc((rgbtRed - mR) * vd));
      end;
      Inc(Dest);
    end;
  end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject); 
begin
Self.Image1.Parent.DoubleBuffered := true;
Contrast(Image1.Picture.Bitmap,TrackBar1.Position,true);
Image1.Refresh; 
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TrackBar1.Position:=0;
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

end.

[Drugnir]

Можно и так.
http://www.cyberguru.ru/programming/...ode-using.html

[Krok27]

  function BLimit(B: Integer): Byte;
  begin
    if B < 0 then
      Result := 0
    else if B > 255 then
      Result := 255
    else
      Result := B;
  end;

BYTE __fastcall BLimit(int B)
{
  if(B<0)
      return 0;
  else if(B > 255)
      return 255;
   return B;
}

procedure TForm1.TrackBar1Change(Sender: TObject); 
begin
Self.Image1.Parent.DoubleBuffered := true;
Contrast(Image1.Picture.Bitmap,TrackBar1.Position,true);
Image1.Refresh; 
end;

 void __fastcall TForm1::TrackBar1Change( TObject* Sender)
{
   this->Image1->Parent->DoubleBuffered = true;
   Contrast(Image1->Picture->Bitmap,TrackBar1->Position,true);
   Image1->Refresh();
}

[Lost_Angel]

Сообщение от Krok27

  function BLimit(B: Integer): Byte;
  begin
    if B < 0 then
      Result := 0
    else if B > 255 then
      Result := 255
    else
      Result := B;
  end;

BYTE __fastcall BLimit(int B)
{
  if(B<0)
      return 0;
  else if(B > 255)
      return 255;
   return B;
}

procedure TForm1.TrackBar1Change(Sender: TObject); 
begin
Self.Image1.Parent.DoubleBuffered := true;
Contrast(Image1.Picture.Bitmap,TrackBar1.Position,true);
Image1.Refresh; 
end;

 void __fastcall TForm1::TrackBar1Change( TObject* Sender)
{
   this->Image1->Parent->DoubleBuffered = true;
   Contrast(Image1->Picture->Bitmap,TrackBar1->Position,true);
   Image1->Refresh();
}

Благодарю))