Сохранение нарисованного на картинке

[Aries]

Среда: PascalABCNET.
Надо сделать сохранение ВСЕГО изображения в файл. То есть, то, что было загруженно и то, что нарисованно на загруженном изображении.

Использовал в обхявлении pictureabc и просто picture. В общем два способа сохранения знаю: savewindow(имя файла) и переменная.save(имя файла). В первом случае только то, что нарисованно мышью, во втором - загруженное изображение.

Ниже мой исходник. Там пока что сделано то, что будет в общем (особо не критикуйте). Исправте так, чтобы всё работало так, как описано выше.

program graph;

uses graphabc,abcobjects;

var image:pictureabc;

procedure mousedown(x,y,mb: integer);
begin
moveto(x,y);
end;

procedure mousemove(x,y,mb: integer);
begin
if mb=1 then lineto(x,y);
end;

procedure keydown(key:integer);
begin
if key=vk_numpad0 then setpencolor(clwhite);
if key=vk_numpad1 then setpencolor(clred);
if key=vk_numpad2 then setpencolor(clgreen);
if key=vk_numpad3 then setpencolor(clblue);
if key=vk_numpad4 then setpencolor(clyellow);
if key=vk_numpad5 then setpencolor(clorange);
if key=vk_numpad6 then setpencolor(clchocolate);
if key=vk_numpad7 then setpencolor(clpink);
if key=vk_numpad8 then setpencolor(clgray);
if key=vk_numpad9 then setpencolor(clpurple);
if key=vk_b then setpenwidth(10);
if key=vk_space then setpenwidth(1);
if key=vk_space then setpencolor(clblack);
if key=vk_r then clearwindow;
if key=ord('0') then clearwindow(clblack);
if key=ord('1') then clearwindow(clred);
if key=ord('2') then clearwindow(clgreen);
if key=ord('3') then clearwindow(clblue);
if key=ord('4') then clearwindow(clyellow);
if key=ord('5') then clearwindow(clorange);
if key=ord('6') then clearwindow(clchocolate);
if key=ord('7') then clearwindow(clpink);
if key=ord('8') then clearwindow(clgray);
if key=ord('9') then clearwindow(clpurple);
if key=vk_s then savewindow('image.gif'); {вот здесь я и застрял}
end;

begin
setwindowsize(700,550);
image:=new pictureabc(0,0,'image.gif');
onmousedown:=mousedown;
onmousemove:=mousemove;
onkeydown:=keydown;
end.

Нужен именно код, который всё сохраняет. Иначе не пойму.

[Aries]

Ну помогите кто-нибудь!

[ImmortalAlexSan]

Может быть вам стоит попробывать поэкспериментировать с SaveDialog ?