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