алгоритм Гаусса

[Євгеній Бєлік]

Здравствуйте!
Кто может помочь с данной программой...мне нужно что ты БМП загружалось в имейдж1, а после алгоритма загружалось в имейдж2. Сможете?

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBitmap;
  n:string;
begin
  if not openDialog1.Execute then
  exit;

  b:= TBitmap.Create;
  n:= OpenDialog1.Filename;
  b.PixelFormat := pf24Bit;
  b.LoadFromFile(n);
  StretchBlt(Image1.Canvas.Handle,0,0,Image1.Width,Image1.Height,
   b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
  GBlur(b,StrToFloat(Edit1.text));
  StretchBlt(Image2.Canvas.Handle,0,0,Image2.Width,Image2.Height,
   b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY);
  b.Free;
end;

Подходит?

[Євгеній Бєлік]

спасибо, принцип правильный...
но когда загружаю изображение, получается вот такое:

[Євгеній Бєлік]

Можна ли как-то убрать этот дефект?

[BDA]

Во-первых, свои сообщения можно редактировать 24 часа после написания.
Во-вторых, попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
  b: TBitmap;
  n: string;
begin
  if not OpenDialog1.Execute then
    exit;
  b := TBitmap.Create;
  n := OpenDialog1.Filename;
  b.PixelFormat := pf24Bit;
  b.LoadFromFile(n);
  Image1.picture.Assign(b);
  GBlur(b, StrToFloat(Edit1.text));
  Image2.picture.Assign(b);
  b.Free;
end;

[Євгеній Бєлік]

ммм..всё супер, большое спасибо
тема закрыта!