(5) TMAINFORM Events and Functions and TPrinter Print Application // Print Knowledge [Menu Item File / Print] Event: Procedure TMAINFORM.FILEPRINTITEMCLICK (Sender: TOBJECT); begin {kh1} print; {kh2} screen.cursor: = CRHOURGLASS Try if mdichildcount <> 0 THEN WITHIVEMDICHILD AS TMDICHILD Do Begin with Printer Do Begin Begindoc; // Start printing canvas.draw (0, 0, image1.picture.graphic); // Graphics output Enddoc; // End Print End END; FINALLY Screen.cursor: = crdefault; end;
[Menu item file / print settings] event: procedure TMainForm.filePrintSetClick (Sender: TObject); begin Screen.Cursor: = crHourglass; PrinterSetupDialog1.Execute; Screen.Cursor: = crDefault; end; [menu item edit / Preferences / ToolBar] event: procedure TMainForm.toolbarItemClick (Sender: TObject); begin toolbarItem.Checked: = not toolbarItem.Checked; ToolBar2.Visible: = toolbarItem.Checked; end; [MainMenu1.OnChange] event procedure TMainForm.MainMenu1Change (...); Begin fileprintitem.enabled: = mdichildcount> 0; DrawItem.enabled: = mdichildcount> 0;
[TMainForm.FormCreate] event procedure TMainForm.FormCreate (Sender: TObject); begin CaptureNum: = 0; DefaultDirectory: = ExtractFilePath (Application.ExeName); end; [TMainForm.FileOpen] event procedure TMainForm.OpenDialogExecute (Sender: TObject); begin OpenDialog.InitialDir: = DefaultDirectory; if OpenDialog.Execute then begin DefaultDirectory: = ExtractFileName (OpenDialog.FileName); CreateMDIChild (OpenDialog.FileName, false); end ;; end;
