2017年7月11日
将QuickReport报表保存为图片（使用TMetaFile和TMetafileCanvas）
//将报表第iPageNo页存为BMP文件 procedure ReportSaveToBMPFile(sFileName :string; iPageNo :integer); var E: TMetaFile; B: TBitmap; begin E := QRPreview1.QRPrinte Read More
posted @ 2017-07-11 18:24 findumars Views(644) Comments(0) Diggs(0)
如何将JPEG缩略图放到LISTVIEW中（delphi listview自绘图形）
http://www.docin.com/p-567657457.html?qq-pf-to=pcqq.c2c http://www.cnblogs.com/snow001x/archive/2008/12/04/1347854.html 我看遍，只有cxlistview是cxlistview或li Read More
posted @ 2017-07-11 17:45 findumars Views(1454) Comments(0) Diggs(0)
2017年7月10日
Delphi7文件操作常用函数
1. AssignFile、Erase AssignFile procedure AssignFile(var F; FileName: string);：给文件变量连接一个外部文件名。这里需要注意的是AssignFile不能用在已打开的文件上。 procedure TForm1.Button1Cl Read More
posted @ 2017-07-10 21:07 findumars Views(3971) Comments(0) Diggs(0)
设置InputBox等提示框的字体以及样式
InputBox等窗体的字体大小设置方法 Graphics.DefFontData.Height:=48; Graphics.DefFontData.Style:=[fsBold,fsItalic, fsUnderline]; inputbox('aa','aa','dd'); Graphics.D Read More
posted @ 2017-07-10 21:05 findumars Views(1537) Comments(0) Diggs(0)
delphi判断线程状态函数（使用GetExitCodeThread API函数去判断线程的句柄）
//判断线程是否释放//返回值：0-已释放；1-正在运行；2-已终止但未释放；//3-未建立或不存在 function CheckThreadFreed(aThread: TThread): Byte;var i: DWord; IsQuit: Boolean;begin if Assigned(a Read More
posted @ 2017-07-10 21:04 findumars Views(2455) Comments(0) Diggs(0)