(V) Evento y función de TmainForm y la aplicación de impresión Tprinter
///////////////// Impresión de conocimiento
[Artículo del menú Archivo/imprima] Evento:
procedimiento tmainform.filePrintitemClick (remitente: tobject);
Comenzar
{kh1} print; {kh2}
Screen.cursor: = crhourglass;
intentar
Si MdichildCount <> 0 entonces
con activemdichild como tmdichild comienza
con la impresora comience
Begindoc;
Canvas.Draw (0,0, Image1.Picture.Graphic);
Enddoc;
fin;
fin;
Finalmente
Screen.cursor: = CRDefault;
fin;
fin;
[Archivo de menú Archivo/Configuración de impresión] Evento:
procedimiento tmainform.filePrintsetClick (remitente: tobject);
Comenzar
Screen.cursor: = crhourglass;
PrintersetUpdialog1.Execute;
Screen.cursor: = CRDefault;
fin;
[Elemento de menú Editar/Preferencias/Barra de herramientas] Evento:
procedimiento tmainform.ToolBaritemClick (remitente: tobject);
Comenzar
Baritem de herramientas. Comprobado: = no Baritem de herramientas
Barra de herramientas2.Visible: = Tool Baritem.ecked;
fin;
[Mainmenu1.onchange] Evento
procedimiento tmainform.mainmenu1change (...);
Comenzar
FilePrintitem.enabled: = mdichildCount> 0;
Drawitem.enabled: = mdichildCount> 0;
fin;
[TMainForm.FormCreate] Evento
procedimiento tmainform.FormCreate (remitente: tobject);
Comenzar
CaptureNum: = 0;
DefaultDirectory: = ExtractFilePath (Application.exename);
fin;
Evento [tmainform.fileOpen]
procedimiento tmainForm.OpendialogExCute (remitente: tobject);
Comenzar
Opendialog.initialDir: = defaultDirectory;
Si Opendialog.ExCute entonces
Comenzar
DefaultDirectory: = ExtractFileName (Opendialog.FileName);
Createmdichild (Opendialog.FileName, falso);
fin;;
fin;
[Tmainform.filesave, tmainform.filesaveas] eventos
procedimiento tmainform.fileSave1Execute (remitente: tobject);
Comenzar
con activemdichild como tmdichild comienza
Nombre de archivo: = ExtractFileName (subtítulos);
Nombre de archivo: = defaultDirectory+nombre de archivo;
SaveDialog.FileName: = FileName;
Si no Savedialog.ExCute, entonces salga;
Nombre de archivo: = saveDialog.fileName;
DefaultDirectory: = ExtractFileName (nombre de archivo);
Si los fileexistas (nombre de archivo) comienzan
Si Messagedlg (FileName+'ya existe, reemplácelo?', MtInformation, [mbyes, mbno], 0) = mRYES entonces
DeleteFile (nombre de archivo)
más salida;
fin;
Image1.picture.savetofile (nombre de archivo);
Leyenda: = nombre de archivo;
Statusbar.simpletext: = FileName;
fin;
fin;