Обработка Image в Delphi

[LilliPut]

На форме Image1 и Image2. В Edit вводим значение и Image1 меняет яркость. Проблема: меняя яркость Image1, и введя новые значения, Image1 меняется не с исходными данными, а с тем, что было. Нужно прост изменять Image1 и присваивать значения в Image2, затем, при введении нового значения в Edit, снова меняем Image1 и присваиваем в Image2. Вот как это реализовать? Не могу придумать

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute = false then exit;
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile(OpenDialog1.FileName);
  Image1.Picture.Bitmap := Bmp;
  Image2.Picture.Bitmap := Bmp;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   d:=StrToInt(Edit1.Text);
  if d <= 0 then
    Exit;
  if d > 100 then
    d := 100;
  begin
  for i := 0 to Bmp.Width - 1 do
    for j := 0 to Bmp.Height - 1 do
    BEGIN
     R := GetRValue(Bmp.Canvas.Pixels[i,j]);
     G := GetGValue(Bmp.Canvas.Pixels[i,j]);
     B := GetBValue(Bmp.Canvas.Pixels[i,j]);
     R := R + (255 - R) * d div 100;
     G := G + (255 - G) * d div 100;
     B := B + (255 - B) * d div 100;
     Bmp.Canvas.Pixels[i,j] := RGB(R, G, B);
    END;
   Image1.Picture.Bitmap := Bmp;
  end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Swarog]

Проблема: меняя яркость Image1, и введя новые значения, Image1 меняется не с исходными данными, а с тем, что было.

Выход: Каждый раз загружать исходное изображение, перед изменением яркости допустим так...

procedure TForm1.Button2Click(Sender: TObject);
begin
iBmp.LoadFromFile(OpenDialog1.FileName);;//opendialog1 не должен изменяться
d:=StrToInt(Edit1.Text);

[LilliPut]

Не работает( Меняю яркость на 45, потом меняю на 15. В итоге меняется яркость на 60. То есть то же самое. Меняется только Image1.

[LilliPut]

Спасибо, что отредактировали))) Получилось) еху)

[Swarog]

а вот так

procedure TForm1.Button2Click(Sender: TObject);
begin
d:=StrToInt(Edit1.Text);
if d <= 0 then
Exit;
if d > 100 then
d := 100;
begin
for i := 0 to Bmp.Width - 1 do
for j := 0 to Bmp.Height - 1 do
BEGIN
R := GetRValue(Bmp.Canvas.Pixels[i,j]);
G := GetGValue(Bmp.Canvas.Pixels[i,j]);
B := GetBValue(Bmp.Canvas.Pixels[i,j]);
R := R + (255 - R) * d div 100;
G := G + (255 - G) * d div 100;
B := B + (255 - B) * d div 100;
Image1.Canvas.Pixels[i,j] := RGB(R, G, B); // правда будет моргать, зато работает :)
END;
//Image1.Picture.Bitmap := Bmp;
end;
end;

[LilliPut]

Случайно не знаете формулу изменения контраста? =D

[Swarog]

googl в помошь

вот вторая найденная страница...

bmp_contrast.html

[LilliPut]

Это на каждом сайте есть) Лан, будем разбираться..

[famaZzz]

Liliput ну что у тебя получилась прога??

Тебе надо было изменять контраст и яркость Image ??

[famaZzz]

Ребята помогите кто-то с такой прогой...

Нужна точно такая же для изменения Яркости и контраста изображения ...