摘要：procedure TfrmstPostImageCollate.LoadCollateImage(AOrderID: integer);var mySql: string; node: TcxTreeListNode; cPhoto, cFullPhoto: string;begin ...
阅读全文
posted @ 2015-12-16 16:20
随笔分类 - delphi TcxTreeList
摘要：TcxImageComboBoxProperties(MID_Comp.Properties).Items.Clear;这样就可以使用属性了。if lstPaper.FocusedNode.Values[mSelected.ItemIndex] = TcxCheckBoxProperties(...
阅读全文
posted @ 2015-09-08 19:10
摘要：如果控制单元格变颜色，只需要把注释的放开就可以了， 也就是判断当前列，是否是你想让变颜色的列。 如果想整行变颜色， 则只需要注释下面的就可以了。procedure TfrmwpOrderSendingSet.grdDataCustomDrawCell(Sender: TObject; ACanvas...
阅读全文
posted @ 2015-09-08 10:46
摘要：ACanvas.Font.Color := clRed; //如果有加印的 变颜色
阅读全文
posted @ 2015-09-07 11:25
摘要：ACanvas.Font.Color := clRed; //如果有加印的 变颜色
阅读全文
posted @ 2015-09-07 11:21
摘要：procedure Tfrmaaa.grd1Editing(Sender: TObject; AColumn: TcxTreeListColumn; var Allow: Boolean);begin //在此控制是否能够编辑 //if not Assigned(grd1.FocusedNod...
阅读全文
posted @ 2014-10-27 17:39
摘要：最近设置TcxTreelist的滚动条，发现水平的不起作用， 即使设置 sboth也不起作用。查找，发现设置的一些属性导致了这个原因， 建立备忘，如下图：1.属性， 这个页面，设置的表格，怎么也看不到滚动条，只能看到竖直的。2. 原来表格 属性 OptionsView.ColumnAutoWidth = True 在搞怪 ，把这个属性设置为False， 可以了，如下图。希望对你有帮助。
阅读全文
posted @ 2013-11-21 14:20
摘要：1.设置图片如下：设置默认值：if Trim(FQuery.fieldByName('cPersonCategory').AsString) = '' then begin CNode.Values[PersoncPersonCategory.ItemIndex] := '07'; end else begin CNode.Values[PersoncPersonCategory.ItemIndex] := Trim(FQuery.fieldByName('cPers...
阅读全文
posted @ 2013-11-12 12:13
摘要：在Footer的第一列显示[合计:] 加一个Summary项,Column设为Grid的第一列,Kind设为skNone 在该Summary项的OnGetText事件中,输入: procedure TFormExpense.tvExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText( Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: String); begin AText := '合计:
阅读全文
posted @ 2013-10-29 19:48
摘要：procedure TfrmSetOutPzTradeDeptPerson.grdTradeClientEditing(Sender: TObject; AColumn: TcxTreeListColumn; var Allow: Boolean);begin if not Assigned(grdTradeClient.FocusedNode) then Exit; Allow := grdTradeClient.FocusedNode.Level = 1;end;
阅读全文
posted @ 2013-10-23 11:17
摘要：Delphi TcxTreeList 读取 TcxImageComboBoxItem类型的值：Node.Values[wiNodeLevel.ItemIndex]；//值Node.Texts[wiNodeLevel.ItemIndex]；//文本
阅读全文
posted @ 2013-08-28 16:54
摘要：TcxTreeList 怎们显示下拉列表, 操作如下：1.定义一个TStringlist中存储你的信息。2.然后选定在TcxTreeList的哪个列要变成TCombobox， 如下图： 3. 进行赋值，代码如下： TcxComboBoxProperties(wcMappingFieldCode.Properties).Items.AddStrings(FFieldList); 这样就有值了， 不过这个代码必须保证表格至少有一行，才不会报错。4.设置TcxTreelst显示下拉列表 OK，运行程序，就可以看到效果了。
阅读全文
posted @ 2013-08-28 14:49
摘要：Delphi TcxtreeList控件说明树。cxTreeList属性：Align：布局，靠左，靠右，居中等AlignWithMargins：带边框的布局Anchors：停靠 （akTop上,akBottom下,akLeft左,akRight右）Bands: 分组面板Caption：面板标题 AlignHorz：文字水平位置（居中，靠左，靠右） AlignVert：文字垂直位置（居中，靠左，靠右）Glyph：面板图标 GlyphAlignHorz：图标水平位置（居中，靠左，靠右） GlyphAlignVert：图标垂直位置（居中，靠左，靠右） MultiLine: 面板文字分多行 ShowE
阅读全文
posted @ 2013-08-28 10:39
摘要：TdxComponentPrinter页头页脚的设定抄一段备忘.用程序控制也一样.如果是这样，那么 双击TdxComponentPrinter控件，在出现的窗口中，点击ADD，建立一个与TcxGrid对应的报表，起个name,设置好后，点击本窗口右下方的 page Setup，在出现的“Page Setup”窗口里，点击“Header\Footer”页，里面有"Header" 和 "Footer"设置内容，可以在FOOTER中间的文本框内，点击下面的图标，那里的图标会提示图标的功能，右边三个图标就可以实现上面的效果了。
阅读全文
posted @ 2013-08-20 13:40
摘要：有谁知道TdxComponentPrinter怎样联上dxdbgrid中的数据打印？有谁知道TdxComponentPrinter怎样联上dxdbgrid中的数据打印？回复人：comanche(太可怕)( ) 信誉：1542002-03-06 13:39:05Z得分:0?你用的是不是 devloper express 的控件, 我也想要一个，在哪下？先谢了Top回复人：forgot2000(忘记2000年)( ) 信誉：952002-03-06 21:00:46Z得分:20?拉一个 TdxComponentPrinter dxComponentPrinter1放到form中，在其中添一个Rep
阅读全文
posted @ 2013-08-20 13:38
摘要：delphi 编译的时候 把Warning去除的方法在添加{$WARNINGS OFF}
阅读全文
posted @ 2013-08-02 11:35
摘要：DELPHI7已经考虑到了移植到点NET的问题，在点NET里，指针是不安全的。至于为什么有的人遇到，有的人没有遇到，那是因为各人的编译选项不同。在Project菜单下选Options“CompilerMessages”，最下面三个选项就是了...........如果程序不移植到点NET，那么把这三个选项的勾取了（默认也是取了的）。
阅读全文
posted @ 2013-07-25 16:53
摘要：1. TcxTreelist的表格总是总是缩进去，如下效果 ：但是，新建一个没有偏移 ，经过观察，原来在 属性Images造成的， 把imgToolbars去除就可以了。效果：
阅读全文
posted @ 2013-07-19 10:45
摘要：//Char 类型与其编码值的转换:varb: Byte;c: Char;beginb := Ord('A'); {返回: 65}b := Ord(#65); {返回: 65}b := Ord($41); {返回: 65}b := Ord(#$41); {返回: 65}b := Byte('A'); {返回: 65}b := Byte(#65); {返回: 65}b := Byte($41); {返回: 65}b := Byte(#$41); {返回: 65}c := Chr(65); {返回: A }c := Chr($41); {返回: A }c := Ch
阅读全文
posted @ 2013-07-16 17:59
摘要：需要给TcxTreelist的列添加图片，操作如下1.设置列， 设置Properties为ImageComboBox ，2. 设置Properties -> Items 添加内容 对应的增加相应的图片， value 为将来要填冲的内容， 设置为 ShorInt4. 填充数据的时候， 保证 字段为短整型，vNode.Values[colR_aaa.ItemIndex] := Ord(FieldByName(aaa).AsBoolean); //已完成vNode.Values[colR_bbb.ItemIndex] := Ord(FieldByName(bbb).AsBoolean); //
阅读全文
posted @ 2013-07-16 15:26
浙公网安备 33010602011771号