(V) Acara dan Fungsi TMainForm dan Aplikasi Pencetakan TPrinter
/////////////////// Pengetahuan Pencetakan
[File Item Menu/Cetak] Acara:
Prosedur tMainForm.fileprintitemClick (pengirim: TOBJEKS);
Mulai
{kh1} print; {kh2}
Screen.cursor: = crhourglass;
mencoba
Jika mdichildcount <> 0 lalu
dengan activeMdichild sebagai tmdichild dimulai
dengan printer mulai
Begindoc; // Mulai Pencetakan
Canvas.draw (0,0, gambar1.picture.graphic);
Enddoc; // akhir pencetakan
akhir;
akhir;
Akhirnya
Screen.cursor: = crdefault;
akhir;
akhir;
[File Item Menu/Pengaturan Cetak] Acara:
Prosedur tMainForm.fileprintsetClick (pengirim: TOBJEKS);
Mulai
Screen.cursor: = crhourglass;
Printersetupdialog1. eksekut;
Screen.cursor: = crdefault;
akhir;
[Menu Item Edit/Preferensi/Toolbar] Acara:
Prosedur tMainForm.toolBaritemClick (pengirim: TOBJEKS);
Mulai
toolbaritem.Checked: = not toolbaritem.Checked;
Toolbar2.visible: = toolbaritem.Checked;
akhir;
Acara [MainMenu1.onchange]
Prosedur tMainForm.mainmenu1change (...);
Mulai
fileprintitem.enabled: = mdichildcount> 0;
DrawItem.enabled: = mdichildcount> 0;
akhir;
Event [tMainForm.FormCreate]
Prosedur tMAintForm.FormCreate (pengirim: Tobject);
Mulai
Capturenum: = 0;
DefaultDirectory: = ExtractFilePath (Application.exename);
akhir;
Acara [tMAintForm.fileopen]
Prosedur tMainForm.OpendialogExecute (pengirim: Tobject);
Mulai
OpenDialog.InitialDir: = DefaultDirectory;
Jika OpenDialog.Execute maka
Mulai
DefaultDirectory: = ExtractFileName (OpenDialog.FileName);
CreateMdichild (openDialog.filename, false);
akhir;;
akhir;
[TMAintForm.filesave, tMAintForm.filesaveas] Acara
Prosedur tMainForm.filesave1Execute (pengirim: tobject);
Mulai
dengan activeMdichild sebagai tmdichild dimulai
Nama file: = ExtractFileName (Keterangan);
Nama file: = DefaultDirectory+nama file;
SaveDialog.filename: = nama file;
Jika tidak disimpan. Eksekutasi lalu keluar;
Nama file: = saveDialog.filename;
DefaultDirectory: = ExtractFileName (nama file);
Jika FileExists (nama file) maka mulailah
Jika MessagedLg (nama file+'sudah ada, ganti?', Mtinformation, [mbyes, mbno], 0) = mryes kemudian
DeleteFile (nama file)
Lain keluar;
akhir;
Image1.picture.Savetofile (nama file);
Keterangan: = nama file;
Statusbar.simpleText: = fileName;
akhir;
akhir;