[vah-smile]

Доброе время суток!
Итак, у меня на форме расположены:

• PaintBox1;
• Button1 - Открывает (загружает) фыйл (*.bmp) в PaintBox1;
• Button2 - Сохраняет рисунок из PaintBox1 у файл.

Как реализовать открытие и сохранение файла в (из) PaintBox?

У меня написано следующее:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

// Открытие файла procedure TForm1.N2Click(Sender: TObject); var bmp:TBitmap; begin   OpenDialog1.Title := 'Відкрити файл...';   if (OpenDialog1.Execute) then     begin       bmp:=TBitmap.create;       bmp.loadfromfile('D:\1.bmp');       paintbox1.width:=bmp.width;       paintbox1.height:=bmp.height;       paintbox1.canvas.draw(0,0,bmp);       bmp.Free;     end; end;   // Сохранение в файла procedure TForm1.N3Click(Sender: TObject); var bmp: TBitmap; begin   SaveDialog1.Title:=' Зберегти файл як...'; // заголовок вікна діалогу збереження файлу   if SaveDialog1.Execute then     begin     bmp := TBitmap.Create;     try       bmp.Width := PaintBox1.Width;       bmp.Height := PaintBox1.Height;       bmp.Canvas.CopyRect(Rect(0, 0, bmp.Width, bmp.Height), Canvas, rect (0,0,PaintBox1.Width, PaintBox1.Height));       bmp.SaveToFile(SaveDialog1.Filename);       finally         bmp.Free;       end;     end; end;

Но результат нечто искаженный (смотри вложенный файл)