(v) เหตุการณ์และฟังก์ชั่นของ TMainform และแอปพลิเคชันการพิมพ์ tprinter
///////////////////////////////////////////////////
[รายการรายการเมนู/พิมพ์] เหตุการณ์:
ขั้นตอน tmainform.filePrintItemClick (ผู้ส่ง: tobject);
เริ่ม
{kh1} print; {kh2}
Screen.cursor: = crhourglass;
พยายาม
ถ้า mdichildCount <> 0 แล้ว
ด้วย activemdichild เมื่อ tmdichild เริ่มต้นขึ้น
ด้วยเครื่องพิมพ์เริ่มต้นขึ้น
Begindoc;
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.Checked: = ไม่ใช่ toolbaritem.Checked;
Toolbar2.visible: = toolbaritem.Checked;
จบ;
[mainmenu1.onchange] เหตุการณ์
ขั้นตอน tmainform.mainmenu1change (... );
เริ่ม
fileprintitem.enabled: = mdichildCount> 0;
drawItem.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);
createemdichild (opendialog.filename, false);
จบ;;
จบ;
[tmainform.filesave, tmainform.filesaveas] เหตุการณ์
ขั้นตอน tmainform.filesave1execute (ผู้ส่ง: tobject);
เริ่ม
ด้วย activemdichild เมื่อ tmdichild เริ่มต้นขึ้น
ชื่อไฟล์: = extractfilename (คำบรรยาย);
ชื่อไฟล์: = defaultDirectory+ชื่อไฟล์;
savedialog.filename: = ชื่อไฟล์;
ถ้าไม่บันทึก execute ให้ออก;
ชื่อไฟล์: = savedialog.filename;
defaultDirectory: = extractFilename (ชื่อไฟล์);
ถ้า fileexists (ชื่อไฟล์) เริ่มต้น
ถ้า messagedlg (ชื่อไฟล์+'มีอยู่แล้วแทนที่มันหรือไม่', mtinformation, [mbyes, mbno], 0) = mryes แล้ว
DELETEFILE (ชื่อไฟล์)
ทางออกอื่น;
จบ;
Image1.picture.savetofile (ชื่อไฟล์);
คำบรรยายภาพ: = ชื่อไฟล์;
StatusBar.SimpleText: = ชื่อไฟล์;
จบ;
จบ;