摘要： 2寸 3.5*5.3cm 626像素*413像素小2寸（护照） 4.8*3.3cm 567像素*390像素冲印照片的分辨率一般要求为300像素/英寸，即300dpi;换算成厘米就是300/2.54=118像素/厘米所心这张照片像素分别为：宽边3.5*118=413 像素 长边5.3*118=626 像素按下面说明，如果：一张照片是1600X1200的，则按300dpi分辨率冲印，则照片最大为长边：1600/300= 5.3 英寸宽边：1200/300= 4英寸当我们遇到一款数码相机的时候我们经常会看到类似“2304X1728、1600X1200、1027X768、640X480”这样的数字相乘 阅读全文

摘要： 如何从一张图片中裁剪一部分距形图片另存为文件? Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiMultimedia/html/delphi_2006121112045369.html如何从一张图片中裁剪一部分距形图片另存为文件? 需要一段实现的功能的代码procedure TForm1.Button1Click(Sender: TObject); var SrcBmp, DestBmp: TBitmap; begin SrcBmp := TBitmap.Create; SrcBmp.Load... 阅读全文

摘要： delphi TCanvas类类关系TObject->TPersistent对那些作图对象，可使用TCanvas对象作为画布。标准的window控件，例如编辑控件和列表框控件，当它们被Windows画出来时，并不需要一块画布。在创建一幅图像时，TCanvas对象提供有用的属性、方法和事件，主要通过以下方法：指定需要使用的刷子、画笔和字体类型。对各类形状和线条进行作图和填充。输入文体。对图像进行着色。对当前图像的变化能作出反应。TCanvas有两个子类，即TControlCanvas和TMetafileCanvas，它们对控件图像的作图和创建对象的图元文件图像有所帮助。属性列表Brush决 阅读全文

摘要： 用Delphi直接获取bmp图片的像素，并存储显示出。（此像素主要用在LED上显示）。希望高手能给出代码啊！！function getImagePixels(f: string): Integer;var jpg: TJpegImage; bmp: TBitmap;begin Result := 0; if not FileExists(f) then Exit; if SameText(ExtractFileExt(f), '.bmp') then begin bmp := TBitmap.Create; try bmp.LoadFromFile(f); Result := 阅读全文

摘要： 在窗体依据屏幕分辨率自适应调整尺度方面，昨天的工作可以说是一个突破点。昨天的工作找到了长期以来我的原有方案的问题所在，这是非常关键的。但是昨天晚上的解决方案并不完美，今天的这个才是比较完美的解决版。先补充说明一下这个问题的重要性。这本来只是一个很小的技术问题，但在现有的Windows软件开发过程中，这个问题非常常见。一些非常著名的商业化软件，也会发现这方面的问题。Delphi的IDE本身在不同屏幕分辨率的机器上运行时，有些界面也会出现变形和控件找不到的情况；Adobe是家软件大公司，他的PDF编辑器在不同屏幕分辨率的机器上运行时，也会出现按钮不见或者被吃掉一半的情况。因此，这实际上是软件开发过 阅读全文

摘要： ⑴让登录窗体在主窗体运行前打开，⑵根据登录窗体返回值判断主窗体是否应该运行。详细代码如下：//project.dpr文件program project;... ...... ...beginApplication.Initialize;EntryFrm:=TEntryFrm.Create(application); //登录窗口if EntryFrm.ShowModal=mrOK then //登录窗体关闭时返回了mrOK值，说明登录成功beginApplication.CreateForm(TMainFrm, MainFrm);//其它auto-create formsend;EntryFr 阅读全文

摘要： Delphi 对象的创建(create)与释放(free/destory)1、Create参数为:nil/self/application的区别，最好能看到实际效果的区别例如: My := TMy.Create(X); 其中的 X 将会成为控件 My 的 Owner 属性, 可能会不只一个控件把 X 当作 Owner. 当 X 释放时, 它会同时释放那些把它当作 Owner 的所有控件. 譬如: btn1 := TButton.Create(Panel1); btn2 := TButton.Create(Panel1); btn3 := TButton.Create(Panel1); 当 Pa 阅读全文

摘要： if form1.showmodal:=mrok then这句话什么意思？最佳答案这个问题说来话长，且听我慢慢道来。。。 首先，你仔细看一看，所有的命令按钮(不论是Button还是BitBtn)都有一个属性：ModalResult，该属性可以设置为mrOk 、mrCancel...等等，默认值是mrNone。 平时，ModalResult属性没什么用处，但如果命令按钮放置到用showmodal显示（模态显示，一般用于显示对话框）的窗体上时，就大大的有用了。 作用体现在： 1、当设置命令按钮的ModalResult属性为mrOk、mrCancel...等时，程序运行后，单击该按钮，按钮所在的窗体 阅读全文

摘要： 关于系统用户注销然后以另一用户身份登录的Delphi实现做一个普通的管理系统，有用户退出和用户注销的菜单。用户退出后整个系统关闭；用户注销后系统并不关闭，而是同重新启动系统一样，弹出登录窗体等待其他用户登录。看了n多资料，方法高深得很。但是看了一下program里的代码，借用窗体的事件，轻松地实现了。具体实现方法如下：在注销菜单的click事件中添加如下代码： Frm_Interface.Destroy;//程序主窗体销毁；我的程序中Frm_Interface是系统启动时自动生成的主窗体。 Application.Initialize; Application.CreateForm(TFrm_ 阅读全文

摘要： 关键技术是获取版本号功能和批处理删除自身的功能unit UnitUpG;interfaceuses Forms, Windows, SysUtils, Classes, Controls, URLMON, SHellAPi, iniFiles, Tlhelp32; procedure UpGrade; procedure KillExe;var SName:String; UpGradeB:Boolean;type TLANGANDCODEPAGE=record wLanguage,wCodePage:Word;end; PLANGANDCODEPAGE=^TLANGANDCODEPAGE;t 阅读全文