随笔分类 -  Delphi-Controls使用

摘要:1、设置QuickReport的DataSet为空。2、在QuickReport的BeforePrint里面将要显示的数据集合初始化,如Query1.First;3、在OnNeedData里面写代码,同时设置MoreData的状态、移动数据集合如:QrLabel1.Caption:=Query1.F 阅读全文
posted @ 2017-08-23 00:25 findumars 阅读(577) 评论(0) 推荐(0) 编辑
摘要:用QRCompositeReport控件,所谓复合报表,可把不同的报表加在一起,Example procedure TForm1.QRCompositeReport1AddReports( Sender: TObject); begin QRCompositeReport1.Reports.Add( 阅读全文
posted @ 2017-08-22 23:58 findumars 阅读(772) 评论(0) 推荐(0) 编辑
摘要:利用FR导出pdf,然后在unigui中显示,发现汉字乱码,改成gb2312,不乱码,但不自动折行,最后是改成DefaultCharSet搞定。FR版本:5.4.6后记:有的浏览器中还是乱码,把字体嵌入到pdf中搞定。 frxPDFExport1.EmbeddedFonts:=True; //嵌入使 阅读全文
posted @ 2017-08-13 17:37 findumars 阅读(759) 评论(0) 推荐(0) 编辑
摘要://将报表第iPageNo页存为BMP文件 procedure ReportSaveToBMPFile(sFileName :string; iPageNo :integer); var E: TMetaFile; B: TBitmap; begin E := QRPreview1.QRPrinte 阅读全文
posted @ 2017-07-11 18:24 findumars 阅读(630) 评论(0) 推荐(0) 编辑
摘要: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 阅读全文
posted @ 2017-07-11 17:45 findumars 阅读(1439) 评论(0) 推荐(0) 编辑
摘要:还有SubDetail的行高: 阅读全文
posted @ 2017-06-08 23:43 findumars 阅读(845) 评论(0) 推荐(0) 编辑
摘要:最近在做stringgrid的项目, 下面delphi7 正常使用,均摘抄网路,但做过细微调整才能正常使用 首先排序的过程 procedure Quicksort(Grid: TStringGrid; var List: array of integer; min, max, sortcol, da 阅读全文
posted @ 2017-03-15 01:40 findumars 阅读(1249) 评论(0) 推荐(0) 编辑
摘要:你要获得组合框的句柄做什么呢?是要读取组合框条目的值还是进行什么操作呢?要读取值用selectedIndex读取索引值(从0开始),用selectedItem读取选项的内容(要进行类型转换),用selectedIndex.key可以获得按键值;要完成句柄的操作也有三种方式,用其一也可,但工程较大,用 阅读全文
posted @ 2017-02-01 06:59 findumars 阅读(2300) 评论(0) 推荐(0) 编辑
摘要:它有一个 MaskEdit 属性(注意,属性) 打开后有一个 Input Mask 编辑框 格式符意义 L 允许输入英文字母,且一定要输入 l 允许输入英文字母,不一定要输入 A 允许输入英文字母和阿拉伯数字,一定要输入 a 允许输入英文字母和阿拉伯数字,不一定要输入 C 允许输入任何字符,一定要输 阅读全文
posted @ 2017-01-24 23:57 findumars 阅读(1099) 评论(0) 推荐(0) 编辑
摘要:现象:MainMenu设置Images属性后,看不到快捷按键的下划线,如:新建(&N) 分析:VCL中Menus.pas单元的代码,看到如下语句procedure TMenuItem.AdvancedDrawItem(ACanvas: TCanvas; ARect: TRect; State: TO 阅读全文
posted @ 2017-01-24 23:29 findumars 阅读(589) 评论(0) 推荐(0) 编辑
摘要:http://blog.csdn.net/zswang/article/details/111607 阅读全文
posted @ 2017-01-24 23:13 findumars 阅读(847) 评论(0) 推荐(0) 编辑
摘要:You use composite reports for this(TQrCompositeReport) on the quickreports tabTake a look in the Demos\QuickRep\QR3 project with QRCompositeReport1.Re 阅读全文
posted @ 2016-08-09 21:17 findumars 阅读(1237) 评论(0) 推荐(0) 编辑
摘要:很好用的一个列表控件,可以用来代替Delphi自带的ListView和TreeView,而且也一直在更新,目前已经支持最新的XE2 官方网站:http://www.soft-gems.net SVN地址:http://virtual-treeview.googlecode.com/svn/trunk 阅读全文
posted @ 2016-06-10 16:22 findumars 阅读(1401) 评论(0) 推荐(0) 编辑
摘要:如题1:如何把一个panel分割成四个小的panle 2:也就是如何加上spliter,分割条,任意调整大小 3、如何有独立的handle使用多个总共5个为什么呢,你放4个panel 然后放spliter,不行吗?? 放5个不够,1、先在窗体放一个大的,作为容器,如果直接使用窗体,这个可以省。 2、 阅读全文
posted @ 2016-02-05 23:02 findumars 阅读(2721) 评论(0) 推荐(0) 编辑
摘要:解决方案很简单,就是把Memo所在的Band勾选Stretch就行了。另外还可勾选StartNewPage。至于UserDataSet本身,猜测就是人为的构造一个类似数据库的集合,大致使用代码如下:var MyData: array[1..100, 1..20] of String; M... 阅读全文
posted @ 2015-10-28 17:26 findumars 阅读(1421) 评论(0) 推荐(0) 编辑
摘要:预步骤第一步,定义数据结构type PMyRec = ^TMyRec; TMyRec = record Caption: WideString; end;预步骤第二步,规定取得节点数据时候的大小procedure TMainForm.FormCreate(Sender: TObject);begin VST.NodeDataSize := SizeOf(TMyRec); // 如果没用到数据,貌似屏蔽也没关系 // VST.RootNodeCount := 20; // 可以尝试指定节点数据end;第一步,初始化节点的内容(赋值):procedure TMainForm.VST... 阅读全文
posted @ 2014-01-27 01:09 findumars 阅读(1791) 评论(0) 推荐(0) 编辑
摘要:重要的类:TBaseVirtualTree = class(TCustomControl)TCustomVirtualStringTree = class(TBaseVirtualTree)TVirtualStringTree = class(TCustomVirtualStringTree)TCu... 阅读全文
posted @ 2013-09-21 05:32 findumars 阅读(2106) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示