paintBox

[Фобия]

Скажите пожалуйста что должно быть в процедуре при сохранении и создании нового(paintBox)

procedure TForm1.N4Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
image1.Picture.LoadFromFile(OpenPic tureDialog1.FileName);
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if SavePictureDialog1.Execute then
image1.Picture.SaveToFile(SavePictu reDialog1.FileName);
end;


открыть/сохранить, но это действует только на image.( если заменить image painBox-ом... то выдает [Error] Unit21.pas(153): Undeclared identifier: 'Picture'

[Jaguar83]

Правильно, нет свойства Picture у PaintBox.
Вывод изображения на PaintBox осуществляется только через канву Canvas, этим он и неудобен.
В вашем случае возможен следующий код
1. Вывод изображения в PaintBox

var  Bitmap: TBitmap;
...
   Bitmap := TBitmap.Create;
   try
      Bitmap.LoadFromFile(OpenPictureDialog1.FileName);
      PaintBox1.Width := Bitmap.Width;
      PaintBox1.Height:= Bitmap.Height;
      PaintBox1.Canvas.Draw(0, 0, Bitmap);
    finally
      Bitmap.Free;
    end;

2.Сохранение PaintBox в файл

var
  Bitmap: TBitmap;
  Source: TRect;
  Dest: TRect;
...
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := PaintBox1.Width;
    Bitmap.Height:= PaintBox1.Height;
    Dest := Rect(0, 0, Bitmap.Width, Bitmap.Height);
    Source := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
    Bitmap.Canvas.CopyRect(Dest, PaintBox1.Canvas, Source);
    Bitmap.SaveToFile(SavePictureDialog1.FileName);
  finally
    Bitmap.Free;
  end;

Только учтите, изображения должны быть BMP