(5) تطبيق TMainform ووظيفة وتطبيق طباعة tprinter
///////////////////// طباعة المعرفة
[ملف عنصر القائمة/طباعة] الحدث:
الإجراء tmainform.FilePrintItemClick (المرسل: tobject) ؛
يبدأ
{kh1} print ؛ {kh2}
screen.cursor: = crhourglass ؛
يحاول
إذا كان MdichildCount <> 0 ثم
مع ActiveMdichild كما تبدأ tmdichild
مع الطابعة تبدأ
بيغندوك
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: = not 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) ؛
CreateMdichild (opendialog.filename ، false) ؛
نهاية؛؛
نهاية؛
[tmainform.filesave ، tmainform.filesaveas] الأحداث
الإجراء tmainform.filesave1execute (المرسل: tobject) ؛
يبدأ
مع ActiveMdichild كما تبدأ tmdichild
اسم الملف: = extractFilename (Caption) ؛
اسم الملف: = DefaultDirectory+اسم الملف ؛
SaveAdialog.filename: = اسم الملف ؛
إذا لم يتم حفظها. Execute ثم الخروج ؛
اسم الملف: = saveAdialog.Filename ؛
DefaultDirectory: = extractFilename (اسم الملف) ؛
إذا كانت ملفات fileexists (اسم الملف) ثم ابدأ
إذا كان messagedlg (اسم الملف+"موجود بالفعل ، استبدله؟" ، mtinformation ، [mbyes ، mbno] ، 0) = mryes ثم
DeleteFile (اسم الملف)
مخرج آخر
نهاية؛
image1.picture.savetofile (filename) ؛
التسمية التوضيحية: = اسم الملف ؛
statusbar.simpletext: = اسم الملف ؛
نهاية؛
نهاية؛