首页 相关文章 Delphi图象截取编程示例(3)

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

  (五)TMainForm的事件和函数 和 TPrinter打印应用
  ////////// 打印知识
  [菜单项file打印] 事件:
  procedure TMainForm.filePrintItemClick(Sender: TObject);
  begin
   {kh1}print;{kh2}
   Screen.Cursor := crHourglass;
   try
   if MDIChildCount0 then
   with ActiveMDIChild as TMDIChild do begin
   with Printer do begin
   BeginDoc; //开始打印
   Canvas.Draw(0,0,Image...[ 查看全文 ]

2016-02-19 标签:
  •   创建一个新的Form3,保存为Capture3.pas。设置属性BorderIcons的四个属性为false. BorderStyle设为bsNone,FormStyle设为fsStayOnTop. 一个私有变量:fDragging:Boolean; 两个公共变量:fRect:TRect,fBmp:TBitmap; unit Capture3; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs;...[ 查看全文 ]
  •   创建一个新的Form2,保存为Capture2.pas。设置属性BorderIcons的四个属性为false. BorderStyle设为bsNone,FormStyle设为fsStayOnTop. 两个公共变量:fRect:TRect,fBmp:TBitmap; unit Capture2; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs; type   TForm2 = ...[ 查看全文 ]
  • 注意,本例在 Delphi7.0下调试通过 /////////////////////////////////////////////////////////// (一)建立项目   new Items--Projects--MDI Application   (二)重新设计MDI子窗体--ChildWin,实现抓取的图象在ChildWin中显示。     在ChildWin子窗体中去掉原有的Memo1控件,添加Image控件,Image1.Align=alClient。   &n...[ 查看全文 ]
  •   (四)创建抓取图象的单元文件ScrnCpt unit ScrnCpt; interface uses windows,forms,controls,classes,Graphics; function CaptureScreenRect(ARect:TRect):TBitmap; function CaptureScreen:TBitmap; function CaptureClientImage(Control:TControl):TBitmap; function CaptureControlImage(Control:TControl):TBitmap; function CaptureWindowImage(Wn...[ 查看全文 ]
  •   (六)TMainForm的 (抓图)Action 事件 [Capture Desktop]  Action 事件 procedure TMainForm.cptDesktopExecute(Sender: TObject); begin   inc(CaptureNum,1);   Application.Minimize ;  //窗体最小化   Delay(500);             //最小化后延时,为了全屏抓图不把自身...[ 查看全文 ]
  •      抓取窗体或控件图片,即要用到一个新的Form2,参见《Delphi图象截取编程示例(7)》    在Main单元implementation的uses中添加Capture2。    [Capture Windows or Controls]窗体或控件抓图的Action 事件 procedure TMainForm.cptWindowsExecute(Sender: TObject); var p:TPoint; Handles:HWnd; begin   Inc(CaptureNum,...[ 查看全文 ]
  •   创建一个新的Form1,保存为Capture1.pas。设置属性BorderIcons的四个属性为false. BorderStyle设为bsNone,Cursor设为crCross,FormStyle设为fsStayOnTop. 添加一个私有变量:fDragging:Boolean;两个公共变量:fRect:TRect,fBmp:TBitmap; Form1的作用:在区域抓图时创建,抓图后消失. unit Capture1; interface uses   Windows, Messages, SysUtil...[ 查看全文 ]
  • 标签:ASP
      <!--#include virtual="/learn/test/lib_graphicdetect.asp"-- <html<head <TITLEdbtable.asp</TITLE </head <body bgcolor="#FFFFFF" <%    graphic="images/learnaspiconmain.gif"    HW = ReadImg(graphic)    Response.Write graphic & " Dimensions: " & HW(0) & &q...[ 查看全文 ]
  • 标签:Delphi
      拖放 (DragDrop)是 Windows 提供的一种快捷的操作方式。作为基于 Windows 的开发工具, Delphi同样支持拖放操作,而且开发应用系统的拖放功能十分方便,真正体现了 Delphi 的强大功能和方便性。 Delphi提供的所有控件 (Control ,即能获得输入焦点的部件 ) 都支持拖放操作,并有相应的拖放属性、拖放事件和拖放方法。下面我们先介绍控件的拖放支持,而后再给出开发拖放操作的一般步骤和应...[ 查看全文 ]
  • 标签:Delphi
      Delphi作为一门新起的Windows编程语言,由于其集众多的优秀特性于一身,因而越来越得到广大编程人员和发烧友的青睐。以下十则技巧涉及的面比较广泛,希望能够对Delphi的爱好者有所裨益。 1.类似于vb.中的doevents功能。 大家或许发现,在Delphi中没有类似于vb.中的doevents函数,这样有的时候,我们将无法使Windows响应多个同时发生的事件。其实,在Delphi的application对象中包括...[ 查看全文 ]
  • 标签:Delphi
    在Delphi中涉及到系统编程的方面毫无例外都要调用API函数,在ShellAPI.pas单元中有要用到的API函数的原型。 实战演练: 一.新建一个应用程序:File->New Applicaton 在Interface部分定义一个消息常量:const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。 二.定义一个全局变量: NotifyIcon:TNotifyIconData,NotifyIcon是非常重要的一个变量,整个程序基本上是围着...[ 查看全文 ]
  • MainActivity如下: 代码如下: package cn.testmediametadataretriever; import java.io.File; import java.io.FileOutputStream; import android.media.MediaMetadataRetriever; import android.os.Bundle; import android.os.Environment; import android.app.Activity; import android.graphics.Bitmap; import android.graphics.Bitmap.CompressFormat; import android.view.View; import an...[ 查看全文 ]
  • 标签:Delphi
      1. 控制INI文件几法 要利用.INI文件做程序有关数据的存储工作,就需要能读和写.INI文件,所以列了如下方法给大家参考: 从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时,返回的默认值 strResult, //存放取得字符 100, //取得字符的允许最大长度 'c:\forwin95\win.in...[ 查看全文 ]
  • 标签:Delphi
      直线时,用户只有在松开鼠标才能看见直线,对直线的变化不能进行实时观测。这是因为鼠标移动时程序没有进行某种应。 Delphi 定义了 OnMouseMove事件来响应鼠标移动。以下代码可使用户随时观测直线的变化: procedure TForm1.FormMouseMove(Sender:Tobject) begin Drowto(X,Y); Moveto(origin); end. origin是起始点。 5.2.3 绘图功能的实现 绘图软件常根据用户的要求改变绘图...[ 查看全文 ]
  • 标签:Delphi
    注册表是windows系统的一个庞大数据库,它存储着系统硬件、软件及用户信息。适当修改注册表的参数值,可以提高系统的性能。注册表的修改通常有两种途径:其一是利用windows系统提供的"RegEdit"命令进行修改。此种方法虽说直观,但由于注册表的复杂性,对于一般用户来说,此方法并不十分可行。其二就是以编程方式来访问注册表。掌握这种方法,对于程序员来说,是一个重要的基本技术。因为在我们的编程过...[ 查看全文 ]
  • 标签:Delphi
      Delphi作为一种面向对象的可视化开发工具,以其开发程序的高速度和编译代码的高效率越来越受到广大编程人员的喜爱。尽管Delphi已经提供了非常强大的开发组件(VCL),但灵活使用API函数一定可以使你的程序增色不少。 状态键的检查 当今不少流行软件的编辑窗口(包括Delphi的代码编辑窗口)的底部都有一个状态条用来显示一些状态信息,比如当前光标的位置等。通常键盘的状态键...[ 查看全文 ]
  • 标签:Delphi
      在 Delphi 中,专门定义了一组对象和部件用以绘制图形,完成一些简单的图像功能。利用这些对象、部件的方法,可以方便地绘制各种常用图形;通过设置它们的属性,能得到不同风格的图形。另外,通过对鼠标事件的定义,可以方便的设计图形绘制程序。 本章将介绍以下内容: 1. TCanvas,TPen,TBrush,TColor对象的方法及属性; 2. 绘图功能的实现; 3. TImage,TPicture,TBitBtn,...[ 查看全文 ]
  • 标签:Delphi
    Http协议的通信遵循一定的约定.例如,请求一个文件的时候先发送Get请求,然后服务器会返回请求的数据.如果需要进行断点传输,那么先发送HEAD /请求,其中返回的Content-Length: 就是文件实际大小.将其和我们本地需要断点下载的文件大小比较,发送GET请求和发送需要下载的文件开始位置RANGE: bytes=+inttostr(iFilePos)+-+#13#10;服务器如果支持断点下载的话就会接着发送余下的数据了.因为这方面的文章比较多...[ 查看全文 ]
  • 标签:Delphi
      众所周知,ASP技术是我们在以internet/intranet为平台的web程序的主要技术,在asp应用程序中我们一般使用vbscripts和javascripts两种脚本语言。但是脚本语言是一种非编译的语言,其所开发的web程序存在先天的安全性、执行效率扩张性方面的问题,因此我们一般在开发web系统时用高级语言编写asp执行体,然后用脚本语言作为连接代码去调用asp执行体执行存取。在这方面由于asp技术是微软推出的,因...[ 查看全文 ]
  • 标签:Delphi
      Delphi 的编程语言是以 Pascal为基础的。 Pascal 语言具有可读性好、编写容易的特点,这使得它很适合作为基础的开发语言。同时,使用编译器创建的应用程序只生成单个可执行文件 (.EXE) ,正是这种结合,使得 Pascal 成为 Delphi这种先进开发环境的编程语言。         本章中,我们将讨论 Object Pascal 的主要特点,并讲解如何在事件处理过程和其他应用程序中...[ 查看全文 ]
手机页面 收藏网站 回到头部