(V) Ereignis und Funktion von TMainForm und TPRINER -Druckanwendung
///////////////////// Printing Knowledge
[Menüelementdatei/Druck] Ereignis:
procedure tmainForm.FileprintItemClick (Absender: Tobject);
Beginnen
{kh1} print; {kh2}
Screen.cursor: = crhourglass;
versuchen
Wenn MdichildCount <> 0 dann
mit ActivemDichild als tmdichild beginnt
mit dem Drucker beginnen
Begindoc; // Drucken beginnen
Canvas.draw (0,0, Image1.Picture.graphic);
Enddoc;
Ende;
Ende;
Endlich
Screen.cursor: = crdefault;
Ende;
Ende;
[Menüelementdatei/Druckeinstellungen] Ereignis:
procedure tmainForm.FilePintSetClick (Absender: Tobject);
Beginnen
Screen.cursor: = crhourglass;
Printersetupdialog1.execute;
Screen.cursor: = crdefault;
Ende;
[Menüelement Bearbeiten/Einstellungen/Symbolleiste] Ereignis:
procedure tmainForm.toolBarItemClick (Absender: Tobject);
Beginnen
ToolBarItem.Conted: = nicht Symbollbartem.Conted;
Symbolleiste2.Visible: = SymbollbarItem.Conted;
Ende;
[Mainmenu1.onchange] Ereignis
Verfahren tmainForm.mainmenu1change (...);
Beginnen
fileprintItem.Enabled: = MdichildCount> 0;
Drawitem.Enabled: = MdichildCount> 0;
Ende;
[TmainForm.Formcreate] Ereignis
Prozedur tmainForm.FormCreate (Absender: Tobject);
Beginnen
Capturenum: = 0;
DefaultDirectory: = extractFilepath (application.exename);
Ende;
[TmainForm.FileOpen] Ereignis
procedure tmainForm.opendialOgexecute (Absender: tobject);
Beginnen
Opendialog.initialdir: = defaultDirectory;
Wenn opendialog.execute dann
Beginnen
DefaultDirectory: = extractFileName (Opendialog.FileName);
CreatemDichild (Opendialog.FileName, False);
Ende;;
Ende;
[TmainForm.filesave, tmainForm.filesaveas] Ereignisse
procedure tmainForm.Filesave1Execute (Absender: tobject);
Beginnen
mit ActivemDichild als tmdichild beginnt
Dateiname: = extractFileName (Bildunterschrift);
Dateiname: = defaultDirectory+Dateiname;
Savedialog.FileName: = Dateiname;
Wenn nicht gespeichert. Execute, dann beenden Sie;
Dateiname: = Savedialog.FileName;
DefaultDirectory: = extractFileName (Dateiname);
Wenn File exists (Dateiname), beginnen Sie
Wenn Messagedlg (Dateiname+'bereits existiert, ersetzen Sie es?', Mtinformation, [MBYES, MBNO], 0) = Mryes dann
DeleteFile (Dateiname)
sonst beenden;
Ende;
Image1.Picture.SaveToFile (Dateiname);
Bildunterschrift: = Dateiname;
StatusBar.Simpletext: = Dateiname;
Ende;
Ende;