张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  delphi TcxTreeList

摘要:procedure TfrmstPostImageCollate.LoadCollateImage(AOrderID: integer);var mySql: string; node: TcxTreeListNode; cPhoto, cFullPhoto: string;begin ... 阅读全文

posted @ 2015-12-16 16:20 ╰★张志峰★╮ 阅读(496) 评论(1) 推荐(1)

摘要:TcxImageComboBoxProperties(MID_Comp.Properties).Items.Clear;这样就可以使用属性了。if lstPaper.FocusedNode.Values[mSelected.ItemIndex] = TcxCheckBoxProperties(... 阅读全文

posted @ 2015-09-08 19:10 ╰★张志峰★╮ 阅读(1051) 评论(0) 推荐(0)

摘要:如果控制单元格变颜色,只需要把注释的放开就可以了, 也就是判断当前列,是否是你想让变颜色的列。 如果想整行变颜色, 则只需要注释下面的就可以了。procedure TfrmwpOrderSendingSet.grdDataCustomDrawCell(Sender: TObject; ACanvas... 阅读全文

posted @ 2015-09-08 10:46 ╰★张志峰★╮ 阅读(1148) 评论(0) 推荐(0)

摘要:ACanvas.Font.Color := clRed; //如果有加印的 变颜色 阅读全文

posted @ 2015-09-07 11:25 ╰★张志峰★╮ 阅读(404) 评论(0) 推荐(0)

摘要:ACanvas.Font.Color := clRed; //如果有加印的 变颜色 阅读全文

posted @ 2015-09-07 11:21 ╰★张志峰★╮ 阅读(259) 评论(0) 推荐(0)

摘要:procedure Tfrmaaa.grd1Editing(Sender: TObject; AColumn: TcxTreeListColumn; var Allow: Boolean);begin //在此控制是否能够编辑 //if not Assigned(grd1.FocusedNod... 阅读全文

posted @ 2014-10-27 17:39 ╰★张志峰★╮ 阅读(1098) 评论(0) 推荐(0)

摘要:最近设置TcxTreelist的滚动条,发现水平的不起作用, 即使设置 sboth也不起作用。查找,发现设置的一些属性导致了这个原因, 建立备忘,如下图:1.属性, 这个页面,设置的表格,怎么也看不到滚动条,只能看到竖直的。2. 原来表格 属性 OptionsView.ColumnAutoWidth = True 在搞怪 ,把这个属性设置为False, 可以了,如下图。希望对你有帮助。 阅读全文

posted @ 2013-11-21 14:20 ╰★张志峰★╮ 阅读(697) 评论(0) 推荐(0)

摘要: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 ╰★张志峰★╮ 阅读(1688) 评论(0) 推荐(0)

摘要:在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 ╰★张志峰★╮ 阅读(798) 评论(0) 推荐(0)

摘要: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 ╰★张志峰★╮ 阅读(521) 评论(0) 推荐(0)

摘要:Delphi TcxTreeList 读取 TcxImageComboBoxItem类型的值:Node.Values[wiNodeLevel.ItemIndex];//值Node.Texts[wiNodeLevel.ItemIndex];//文本 阅读全文

posted @ 2013-08-28 16:54 ╰★张志峰★╮ 阅读(627) 评论(0) 推荐(0)

摘要:TcxTreeList 怎们显示下拉列表, 操作如下:1.定义一个TStringlist中存储你的信息。2.然后选定在TcxTreeList的哪个列要变成TCombobox, 如下图: 3. 进行赋值,代码如下: TcxComboBoxProperties(wcMappingFieldCode.Properties).Items.AddStrings(FFieldList); 这样就有值了, 不过这个代码必须保证表格至少有一行,才不会报错。4.设置TcxTreelst显示下拉列表 OK,运行程序,就可以看到效果了。 阅读全文

posted @ 2013-08-28 14:49 ╰★张志峰★╮ 阅读(831) 评论(0) 推荐(0)

摘要: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 ╰★张志峰★╮ 阅读(2803) 评论(0) 推荐(0)

摘要:TdxComponentPrinter页头页脚的设定抄一段备忘.用程序控制也一样.如果是这样,那么 双击TdxComponentPrinter控件,在出现的窗口中,点击ADD,建立一个与TcxGrid对应的报表,起个name,设置好后,点击本窗口右下方的 page Setup,在出现的“Page Setup”窗口里,点击“Header\Footer”页,里面有"Header" 和 "Footer"设置内容,可以在FOOTER中间的文本框内,点击下面的图标,那里的图标会提示图标的功能,右边三个图标就可以实现上面的效果了。 阅读全文

posted @ 2013-08-20 13:40 ╰★张志峰★╮ 阅读(791) 评论(0) 推荐(0)

摘要:有谁知道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 ╰★张志峰★╮ 阅读(1588) 评论(0) 推荐(0)

摘要:delphi 编译的时候 把Warning去除的方法在添加{$WARNINGS OFF} 阅读全文

posted @ 2013-08-02 11:35 ╰★张志峰★╮ 阅读(417) 评论(0) 推荐(0)

摘要:DELPHI7已经考虑到了移植到点NET的问题,在点NET里,指针是不安全的。至于为什么有的人遇到,有的人没有遇到,那是因为各人的编译选项不同。在Project菜单下选Options“CompilerMessages”,最下面三个选项就是了...........如果程序不移植到点NET,那么把这三个选项的勾取了(默认也是取了的)。 阅读全文

posted @ 2013-07-25 16:53 ╰★张志峰★╮ 阅读(1492) 评论(0) 推荐(0)

摘要:1. TcxTreelist的表格总是总是缩进去,如下效果 :但是,新建一个没有偏移 ,经过观察,原来在 属性Images造成的, 把imgToolbars去除就可以了。效果: 阅读全文

posted @ 2013-07-19 10:45 ╰★张志峰★╮ 阅读(479) 评论(0) 推荐(0)

摘要://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 ╰★张志峰★╮ 阅读(7043) 评论(0) 推荐(0)

摘要:需要给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 ╰★张志峰★╮ 阅读(896) 评论(0) 推荐(0)