Delphi图象截取编程示例(3)

(五)TMainForm的事件和函数 和 TPrinter打印应用
////////// 打印知识
[菜单项file\打印] 事件：
procedure TMainForm.filePrintItemClick(Sender: TObject);
begin
  {kh1}print;{kh2}
  Screen.Cursor := crHourglass;
  try
    if MDIChildCount<>0 then
      with ActiveMDIChild as TMDIChild do begin
        with Printer do begin
          BeginDoc;                                  //开始打印
          Canvas.Draw(0,0,Image1.Picture.Graphic);   //图形输出
          EndDoc;                                    //结束打印
        end;
      end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

[菜单项file\打印设置] 事件：
procedure TMainForm.filePrintSetClick(Sender: TObject);
begin
  Screen.Cursor:=crHourglass;
  PrinterSetupDialog1.Execute ;
  Screen.Cursor:=crDefault;
end;
   
[菜单项edit\Preferences\ToolBar] 事件：
procedure TMainForm.toolbarItemClick(Sender: TObject);
begin
  toolbarItem.Checked := not toolbarItem.Checked ;
  ToolBar2.Visible := toolbarItem.Checked;
end; 
   
[MainMenu1.OnChange] 事件
procedure TMainForm.MainMenu1Change(...);
begin
  filePrintItem.Enabled := MDIChildCount>0;
  DrawItem.Enabled := MDIChildCount>0;
end;

[TMainForm.FormCreate] 事件
procedure TMainForm.FormCreate(Sender: TObject);
begin
  CaptureNum:=0;
  DefaultDirectory:=ExtractFilePath(Application.ExeName);
end;
   
[TMainForm.FileOpen] 事件
procedure TMainForm.OpenDialogExecute(Sender: TObject);
begin
  OpenDialog.InitialDir := DefaultDirectory;
  if OpenDialog.Execute then
  begin
    DefaultDirectory:=ExtractFileName(OpenDialog.FileName);
    CreateMDIChild(OpenDialog.FileName,false);
  end;;
end;

[TMainForm.FileSave、TMainForm.FileSaveAs] 事件
procedure TMainForm.FileSave1Execute(Sender: TObject);
begin
  with ActiveMDIChild as TMDIChild do begin
    FileName:=ExtractFileName(caption);
    FileName:=DefaultDirectory+FileName;
    SaveDialog.FileName:=FileName;
    if not SaveDialog.Execute then exit;
    FileName:=SaveDialog.FileName ;
    DefaultDirectory:=ExtractFileName(FileName);
    if FileExists(FileName)then begin
      if MessageDlg(FileName+'''' 已存在，替换它吗？'''',mtInformation,[mbYES,mbNO],0)=mrYES then
        DeleteFile(FileName)
      else exit;
    end;
    Image1.Picture.saveToFile(FileName);
    Caption:=FileName;
    StatusBar.SimpleText := FileName;
  end;
end;

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18