Требуется дописать функцию сохранения картинки

[-SG-]

Люди добрые...

Нужно добавить кнопку по которой изображение сохранялось бы в файл.
+ Работает только если радиобатон чекнут ("осветлить" только. затемнить ваще не нужен), а надо чтобы по кнопке выполнить, можете переделать?

Сегодня до 16-20!!!!!!

unit shadows;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Spin;

type
  TForm1 = class(TForm)
    BitBtnopen: TBitBtn;
    OpenDialog: TOpenDialog;
    Imagebefore: TImage;
    Imageafter: TImage;
    BitBtnOK: TBitBtn;
    RadioButtonwhite: TRadioButton;
    RadioButtondark: TRadioButton;
    SpinEditwhite: TSpinEdit;
    SpinEditdark: TSpinEdit;
    procedure BitBtnopenClick(Sender: TObject);
    procedure BitBtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function ApplyWhite(Color:TColor; HowMuch:Byte):TColor;
Var r,g,b:Byte;
Begin
	Color:=ColorToRGB(Color);
	r:=GetRValue(Color);
	g:=GetGValue(Color);
	b:=GetBValue(Color);
	if r+HowMuch < 255 then r:=r+HowMuch else r:=255;
	if g+HowMuch < 255 then g:=g+HowMuch else g:=255;
	if b+HowMuch < 255 then b:=b+HowMuch else b:=255;
	result:=RGB(r,g,b);
End;

procedure TForm1.BitBtnopenClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    imagebefore.Picture.LoadFromFile(OpenDialog.FileName);
end;

procedure TForm1.BitBtnOKClick(Sender: TObject);
var
  CangedBmp: TBitmap;
  imgwidth, imgheight, i, j, darkvalue, whitevalue, err1, err2: integer;
begin
  CangedBmp := Tbitmap.Create;
  imgwidth := imagebefore.Picture.Width;
  imgheight := imagebefore.Picture.Height;
  CangedBmp.Width := imgwidth;
  CangedBmp.Height := imgheight;
  val(SpinEditdark.Text, darkvalue, err1);
  val(SpinEditwhite.Text, whitevalue, err2);

  if (err1 = 0) and (err2 = 0) then
    for i := 0 to imgwidth do
      for j := 0 to imgheight do
      begin
          if RadioButtonwhite.Checked then
            CangedBmp.Canvas.Pixels[i, j] :=
              applywhite(imagebefore.Canvas.Pixels[i, j], whitevalue);

    end;

  imageafter.Picture.Bitmap := CangedBmp;
  CangedBmp.Free;
end;

end.

вот вся задача (если делфи старый очень может не открыться)
http://depositfiles.com/files/xvljjw1w5

[Stilet]

-- No coments --

[-SG-]

[[[ЗАКРЫТО]]]