图形显示技巧,这是其中一段代码 procedure TForm1.Button1Click(Sender: TObject) var newbmp:TBitmap i,bmpheight,bmpwidth:integer //推拉 begin newbmp:=TBitmap.Create newbmp.Width:=image1.Width newbmp.Height:=image1.Height bmpheight:=image1.Height bmpwidth:=image1.Width for i:=0 to bmpheight do begin newbmp.Canvas.CopyRect(Rect(0,bmpheight-i,bmpwidth,bmpheight),image1.Canvas,Rect(0,0,bmpwidth,i)) Form1.Canvas.Draw(120,100,newbmp) end newbmp.free end
标签： procedure TBitmap TObject Button
上传时间： 2016-01-18
上传用户：comua
先运行力控应用程序（如演示工程——反应釜），实时数据库系统亦随之启动。 然后启动delphi6.0，创建一个新的工程。 在Form1窗体中，放置DdeClientConv控件（system标签页），设置ConnectMode属性值为ddeAutomatic、DdeService属性值为db、DdeTopic属性值为db； 接下来放置DdeClientItem控件（system标签页），设置DdeConv为DdeClientConv1，设置DdeItem属性值为所要读取的数据库点参数值如dbmixvol.pv； 放置一个edit控件； 放置一个timer控件，设置interval属性值为100；在ontimer脚本中加入： procedure TForm1.Timer1Timer(Sender: TObject) begin edit1.text:=Form1.DdeClientItem1.Text end
上传时间： 2014-01-22
上传用户：lwwhust
应用程序：Example 项目概述 ======================================================================== 应用程序向导已为您创建了此 Example 应用程序。 本文件概要介绍组成 Example 应用程序的每个文件的内容。 Example.vcproj 这是使用应用程序向导生成的 VC++ 项目的主项目文件。 它包含生成该文件的 Visual C++ 的版本信息，以及有关使用应用程序向导选择的 平台、配置和项目功能的信息。 Example.cpp 这是主应用程序源文件。 包含用于显示窗体的代码。 Form1.h 包含窗体类的实现和 InitializeComponent() 函数。 AssemblyInfo.cpp 包含用于修改程序集元数据的自定义属性。 ///////////////////////////////////////////////////////////////////////////// 其他标准文件： StdAfx.h, StdAfx.cpp 这些文件用于生成名为 Example.pch 的预编译头文件 和名为 StdAfx.obj 的预编译类型文件。
上传时间： 2017-07-23
上传用户：dragonhaixm
My JSP 'TeacherMain.jsp' starting page var $=function(id) { return document.getElementById(id); } function show_menu(num){ for(i=0;i
标签： C++
上传时间： 2015-07-03
上传用户：xiyuzhu
可以自定义和继承 /// <summary> /// 设计器支持所需的方法 - 不要 /// 使用代码编辑器修改此方法的内容。 /// </summary> private void InitializeComponent() { this.components = new System.ComponentModel.Container(); this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font; this.Text = "Form1"; }
上传时间： 2016-08-15
上传用户：baobao9437
