(V) Событие и функция Tmainform и приложение Tprinter Printing
///////////////////////printing знания
[Файл пункта меню/Печать] Событие:
Процедура tmainform.fileprintitemclick (отправитель: tobject);
Начинать
{kh1} print; {kh2}
Screen.cursor: = Crhourglass;
пытаться
Если mdichildcount <> 0, то
с ActiveMdichild, как tmdichild, начинаются
с принтером, начинается
BETHINDOC;
Canvas.draw (0,0, Image1.picture.graphic);
Enddoc;
конец;
конец;
Окончательно
Screen.cursor: = crdefault;
конец;
конец;
[Файл пункта меню/настройки печати] Событие: Событие:
Процедура tmainform.fileprintsetclick (отправитель: tobject);
Начинать
Screen.cursor: = Crhourglass;
Printersetupdialog1.execute;
Screen.cursor: = crdefault;
конец;
[Меню пункт редактировать/предпочтения/панель инструментов] Событие:
Процедура tmainform.toolbaritemClick (отправитель: tobject);
Начинать
ToolBaritem.cecked: = не инструментальный балл. Провернут;
Панель инструментов2.visible: = toolbaritem.cecked;
конец;
[Mainmenu1.onchange] Событие
Процедура tmainform.mainmenu1change (...);
Начинать
filePrintItem.enabled: = mdichildCount> 0;
DraitItem.enabled: = mdichildCount> 0;
конец;
[Tmainform.formcreate] событие
Процедура tmainform.formcreate (отправитель: tobject);
Начинать
Capturenum: = 0;
DefaultDirectory: = ExtractFilePath (Application.Exename);
конец;
[Tmainform.fileopen] событие
Процедура tmainform.opendialogexecute (отправитель: tobject);
Начинать
Opendialog.initialdir: = defaultDirectory;
Если opendialog.execute тогда
Начинать
DefaultDirectory: = ExtractFilEname (Opendialog.filename);
CreateMdichild (Opendialog.filename, false);
конец;;
конец;
[Tmainform.filesave, tmainform.filesaveas] События
Процедура tmainform.filesave1execute (отправитель: tobject);
Начинать
с ActiveMdichild, как tmdichild, начинаются
Имя файла: = ExtractFilEname (заголовок);
FileName: = defaultDirectory+FileName;
Savedialog.filename: = filename;
Если не savedialog.execute, тогда выйдите;
Имя файла: = savedialog.filename;
DefaultDirectory: = ExtractFilename (имя файла);
Если FileExists (имя файла), то начните
Если Messagedlg (имя файла+'уже существует, замените его?
DeleteFile (имя файла)
еще выход;
конец;
Image1.picture.savetofile (имя файла);
Подпись: = имя файла;
Statusbar.simpletext: = filename;
конец;
конец;