Search - Form1 - CodeBus

Search - Form1 - List

[Delphi VCL] tuxinxianshijiqiao DL : 0: 图形显示技巧,这是其中一段代码 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
Date : 2008-10-13 Size : 215.74kb User : dyming
[Delphi VCL] tuxinxianshijiqiao DL : 0: 图形显示技巧,这是其中一段代码 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 -Graphical display techniques, this is one piece of code procedure TForm1.Button1Click (Sender: TObject) var newbmp: TBitmap i, bmpheight, bmpwidth: integer// push-pull 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 (120100, newbmp) end newbmp.free end
Date : 2025-12-21 Size : 215kb User : dyming
[Delphi VCL] Color-Lines.ZIP DL : 0: const maxWidth = 200 maxHeight = 150 var thumbnail : TBitmap thumbRect : TRect begin thumbnail := Form1.GetFormImage try thumbRect.Left := 0 thumbRect.Top := 0 //proportional resize if thumbnail.Width > thumbnail.Height then begin thumbRect.Right := maxWidth thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width end else begin thumbRect.Bottom := maxHeight thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height end thumbnail.Canvas.StretchDraw(thumbRect, thumbnail) //resize image thumbnail.Width := thumbRect.Right thumbnail.Height := thumbRect.Bottom //display in a TImage control Image1.Picture.Assign(thumbnail) finally thumbnail.Free end end -const maxWidth = 200 maxHeight = 150 var thumbnail : TBitmap thumbRect : TRect begin thumbnail := Form1.GetFormImage try thumbRect.Left := 0 thumbRect.Top := 0 //proportional resize if thumbnail.Width > thumbnail.Height then begin thumbRect.Right := maxWidth thumbRect.Bottom := (maxWidth * thumbnail.Height) div thumbnail.Width end else begin thumbRect.Bottom := maxHeight thumbRect.Right := (maxHeight * thumbnail.Width) div thumbnail.Height end thumbnail.Canvas.StretchDraw(thumbRect, thumbnail) //resize image thumbnail.Width := thumbRect.Right thumbnail.Height := thumbRect.Bottom //display in a TImage control Image1.Picture.Assign(thumbnail) finally thumbnail.Free end end
Date : 2025-12-21 Size : 7kb User : dia trung hai
[Delphi VCL] kkk DL : 0: 基于决策支持系统的 DELPHI编程的小结-unit Unit3 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, jpeg, ExtCtrls type TForm3 = class(TForm) MainMenu1: TMainMenu N1: TMenuItem Exel1: TMenuItem N3: TMenuItem N4: TMenuItem ADOConExcel: TADOConnection ADOQryExcel: TADOQuery DataSource1: TDataSource Image1: TImage procedure N3Click(Sender: TObject) procedure N1Click(Sender: TObject) procedure Exel1Click(Sender: TObject) procedure N2Click(Sender: TObject) private { Private declarations } public { Public declarations } end var Form3: TForm3 implementation uses Unit1, Unit4, Unit6, Unit5 {$R*.dfm} procedure TForm3.N3Click(Sender: TObject) begin form1.ShowModal end procedure TForm3.N1Click(Sender: TObject) begin form4.ShowModal end procedure TForm3.Exel1Click(Sender: TObject) begin try //查询Excel 表1 的数据
Date : 2025-12-21 Size : 3.22mb User : 张三
[Delphi VCL] Delphi-Code DL : 0: 在Form1放置Image1及Button1等组件，但本例不要Form1因调用scaleBy方法而改变大小-Image1 and Button1 Form1 place the components, but in this case do not Form1 call scaleBy method to change the size of
Date : 2025-12-21 Size : 530kb User : Chenxg
[Delphi VCL] Delphi-code-2 DL : 0: 在form1内放置一个edit组件与3个button组件，并让edit1可以拖拽和附着，而form1可以被附着-Placed in form1 an edit component with three button components, and to let edit1 can drag and attached, and form1 can be attached
Date : 2025-12-21 Size : 162kb User : Chenxg
[Delphi VCL] Delphi-Code3 DL : 0: 利用form1所属类（TForm1）的createNew与create方法，来动态建立新的窗体。-Use the form1 belongs to the class (TForm1) createNew create method to dynamically create a new form.
Date : 2025-12-21 Size : 171kb User : Chenxg
[Delphi VCL] Delphi-Code4 DL : 0: 在form1上放置“Additional”选项卡的shape、image组件，以及其他组件-" Additional" tab, shape, image component, and other components placed in form1
Date : 2025-12-21 Size : 180kb User : Chenxg
[Delphi VCL] db_manpower DL : 0: 批量打印工作证，这是一个Delphi源码，数据库使用的是Access，本程序可以实现用姓名查找某个人的工作证并打印，也可以打印所有人的工作证。本例是用Qreport打印控件编写的打印模版，使用了QRLable标签控件、QRDBText显示数据文本控件、QRShape图形控件。注意：来电的号码和查询的号码必须一至，否则查询的客户信息会不准确。　　Delphi批量打印工作证实现过程：　　（1）新建一个标准工程，创建一个新窗体，默认名为Form1。　　（2）在BDE的Standard标签页中选择两个GroupBox控件放在Form1窗体上,并分别设置Align的属性为alLeft、alClient。　　（3）在BDE的Data Controls标签页中选择两个DBGrid控件分别放在两个GroupBox上，并设置DBGrid的Align属性为alClient。　　（4）在BDE的Standard标签页中选择Panel控件放在Form1窗体上，并设置Align的属性为alBottom。　　（5）在BDE的Standard标签页中选择Button控件放在Panel上。　　（6）在BDE的System标签面中选择Timer控件放在Form1窗体上。　　（7）获取电话号的主要程序代码。　　 -Batch printing work permit, which is a Delphi source code, using the Access database, the program can achieve Name Find a personal work permit and print can also print a work permit for all. This case is to to control written Qreport Print Print templates, use the QRLable label control, QRDBText, the data text controls, QRShape, graphical controls. Note: the caller s number and the number of queries must be one to inaccurate or query customer information. Delphi batch printing work permit implementation process: (1) to create a new standard project, to create a new form, default named the Form1. (2) BDE Standard tab, select two GroupBox controls on the Form1 form and set the the properties for alLeft alClient Align. Align property (3) in the BDE Data Controls tab, select two DBGrid control were placed in two GroupBox and set the DBGrid alClient. (4) BDE Standard tab, select Panel control on the Form1 form, and set the Align attribute alBottom. (5) in the Standard tab in the BDE B
Date : 2025-12-21 Size : 114kb User : 何朝飞