procedure TMainForm.mmiSaveFileClick(Sender: TObject);
begin
if FileName = ' ' then
mmiSaveAsClick(nil)
else begin
imgDrawingPad.Picture.SaveToFile(FileName);
stbMain.Panels[0].Text := FileName;
Modified := False;
end;
end;
procedure TMainForm.mmiSaveAsClick(Sender: TObject);
begin
if SavePictureDialog1.Execute then
begin
FileName := SavePictureDialog1.FileName;
mmiSaveFileClick(nil)
end;
end;
|