(V) L'événement et la fonction de TMainform et l'application d'impression TPrinter
//////////////////// Connaissance de l'impression
[Fichier de l'élément de menu / impression] Événement:
procédure tmainform.FilePrintemClick (expéditeur: tobject);
Commencer
{kh1} print; {kh2}
Screen.Cursor: = Crhourglass;
essayer
Si mdichildCount <> 0 alors
avec activemdichild comme tmdichild commence
avec l'imprimante commence
Begindoc; // commencer à imprimer
Canvas.Draw (0,0, image1.picture.graphic);
Enddoc; // fin d'impression
fin;
fin;
Enfin
Screen.Cursor: = Crdefault;
fin;
fin;
[Paramètres de fichier / imprimé élément de menu] Événement:
procédure tmainform.FilePrintSetClick (expéditeur: tobject);
Commencer
Screen.Cursor: = Crhourglass;
ImprimersetupDialog1.execute;
Screen.Cursor: = Crdefault;
fin;
[Élément de menu Modifier / Préférences / barre d'outils] Événement:
procédure tmainform.toolBaritemClick (expéditeur: tobject);
Commencer
Toolbaritem.Checked: = Not ToollBaritem.Checked;
Toolbar2.Visible: = Toolbaritem.checked;
fin;
Événement [MainMenu1.onChange]
procédure tmainform.mainMenu1Change (...);
Commencer
filePrintem.enabled: = mdichildCount> 0;
DrawItem.enabled: = mdichildCount> 0;
fin;
Événement [tmainform.formCreate]
procédure tmainform.formCreate (expéditeur: tobject);
Commencer
Capturénum: = 0;
DefaultDirectory: = ExtractFilePath (application.exename);
fin;
Événement [tmainform.fileopen]
procédure tmainform.OpendialogexECUTE (expéditeur: tobject);
Commencer
OpenDialog.InitialDir: = DefaultDirectory;
Si openDialog.excute alors
Commencer
DefaultDirectory: = ExtractFileName (OpenDialog.FileName);
CreateMdichild (OpenDialog.FileName, false);
fin;;
fin;
[Tmainform.filesave, tmainform.filesAaveas] événements
procédure tmainform.filesAve1ExECute (expéditeur: tobject);
Commencer
avec activemdichild comme tmdichild commence
Nom de fichier: = ExtractFileName (Légende);
FileName: = DefaultDirectory + FileName;
SAVEDIALOG.FILENAME: = nom de fichier;
Si non SaveDedialog.Exécute, soyez sortie;
FileName: = SAVEDIALOG.FILENAME;
DefaultDirectory: = ExtractFileName (nom de fichier);
Si des fichiers (nom de fichier) alors commencez
Si messagedlg (nom de fichier + 'existe déjà, remplacez-le?
DeleteFile (nom de fichier)
else sort;
fin;
Image1.picture.savetofile (nom de fichier);
Légende: = nom de fichier;
Statusbar.simpletext: = nom de fichier;
fin;
fin;