当前位置：文档之家 › cxGrid技巧汇总

cxGrid技巧汇总

  • 格式：doc
  • 大小：95.50 KB
  • 文档页数：24

cxGrid技巧汇总2009-04-01 12:48==========================================================================在主从TableView中根据主TableView得到对应的从TableViewvarADetailDC: TcxGridDataController;AView: TcxCustomGridTableView;beginwith cxGrid1DBTableView1.DataController doADetailDC := TcxGridDataController(GetDetailDataController(FocusedRecordIndex, 0));AView := ADetailDC.GridView;end;============================================================================== 定位在第一行并显示内置编辑器cxDBVerticalGrid1.FocusedRow := cxDBVerticalGrid1.Rows[0];cxDBVerticalGrid1.ShowEdit;============================================================================== 隐藏"<No data to display>" 字符串该文本存储在scxGridNoDataInfoText资源字符串,可以将该资源字符串的内容设为空来隐藏该文本。

uses cxClasses, cxGridStrs;...cxSetResourceString(@scxGridNoDataInfoText, '');//如果"<No data to display>" 字符串已经显示，需要调用：<View>.LayoutChanged;============================================================删除应用过滤后的行varI: Integer;beginwith <GridView> dofor I := 0 to ViewData.RecordCount - 1 dobeginViewData.Records[0].Focused := True;DataController.DataSet.Delete;end;=============================================================根据单元的值设置样式procedure <aForm>.<aColumn>StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);beginif ARecord.Values[AItem.Index] = aSomeValue thenAStyle := <aSomeStyle>;end;procedure <aForm>.<aView>StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);varAColumn: TcxCustomGridTableItem;beginAColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Email');if VarToStr(ARecord.Values[AColumn.Index]) = '' thenAStyle := cxStyleNullEmail;end;==============================================================================TcxCustomGridTableView.FindItemByName, TcxGridDBTableView.GetColumnByFieldName or TcxGridDBDataController.GetItemByFieldNamewith cxGrid1DBBandedTableView1.DataController doAValue := Values[FocusedRecordIndex, GetItemByFieldName('SomeFieldName').Index];===================================================================动态生成BandedViewvarAView: TcxCustomGridView;beginAView := <cxGrid>.CreateView(TcxGridDBBandedTableView); TcxGridDBBandedTableView(AView).DataController.DataSource := <DataSource>; TcxGridDBBandedTableView(AView).Bands.Add;with TcxGridDBBandedTableView(AView).Bands.Add dobeginVisible := False;FixedKind := fkLeft;end;TcxGridDBBandedTableView(AView).DataController.CreateAllItems;<cxGridLevel>.GridView := AView;======================================================================当底层数据集为空时显示一条空记录procedure <Form>.<cxGrid>Enter(Sender: TObject);varView: TcxGridDBTableView;beginView := TcxGridDBTableView((Sender as TcxGrid).FocusedView);if View.DataController.DataSet.IsEmpty thenbeginView.DataController.DataSet.Append;View.Controller.EditingController.ShowEdit;end;end;=======================================================================在当前View插入记录使用FocusedView属性得到当前焦点View，用View.DataController得到对应的Data Controller，之后使用Data Controller的方法来操作数据：- Append- Insert- Post- Cancel- DeleteFocused- DeleteSelection示例：varARecIndex: Integer;…View.DataController.Append;ARecIndex := View.DataController.FocusedRecordIndex;View.DataController.Values[ARecIndex, SomeItemIndex] := SomeValue;View.DataController.Post;另外一种方法是使用View.DataController.DataSource.DataSet得到底层数据集后，再用数据集的方法来操作数据。

========================================================================激活内置编辑控件1) <aView>.Controller.EditingController.ShowEdit(<aColumn>);2) <aView>.Controller.EditingController.StartEditShowingTimer(<aColumn>);3) <aView>.Controller.EditingItem := <aColumn>;4) <aColumn>.Editing := True;隐藏内置编辑控件<aView>.Controller.EditingController.HideEdit(True);===========================================================================移除一个分组列<aColumn>.GroupIndex := -1;<aColumn>.Visible := True;===========================================================================保存修改到数据库procedure <aForm>.FormClose(Sender: TObject; var Action: TCloseAction);beginif (<aGrid>.FocusedView <> nil) and (<aGrid>.FocusedView.DataController.EditState <> []) then <aGrid>.FocusedView.DataController.Post;end;============================================================================设置内置右键菜单内置右键菜单包括二个菜单:cxGridStdHeaderMenu, TcxGridStdFooterMenuuses cxGridStdPopupMenu;procedure TForm1.cxGridPopupMenu1Popup(ASenderMenu: TComponent;AHitTest: TcxCustomGridHitTest; X, Y: Integer; var AllowPopup: Boolean);beginif ASenderMenu is TcxGridStdHeaderMenu thenTcxGridStdHeaderMenu(ASenderMenu).OnPopup := StdHeaderMenuPopup;end;procedure TForm1.StdHeaderMenuPopup(Sender: TObject);varI: Integer;beginwith TcxGridStdHeaderMenu(Sender).Items dofor I := 0 to Count - 1 doif Items[I].Caption = 'Group By Box' thenbeginItems[I].Enabled := False;System.Break;endend;=========================================================================== 得到选中记录的值1) View.DataController.DataModeController.GridMode = False时RecIdx := View.Controller.SelectedRecords[i].RecordIndex;ColIdx := View.DataController.GetItemByFieldName(AFieldName).Index;OutputVal := View.DataController.Values[RecIdx, ColIdx];//RecID := View.DataController.GetRecordId(RecIdx);//OutputVal := ADataSet.Lookup(View.DataController.KeyFieldNames, RecID, AFieldName);2) View.DataController.DataModeController.GridMode = True时Bkm := View.DataController.GetSelectedBookmark(ASelectedRecordIndex);if ADataSet.BookmarkValid(TBookmark(Bkm)) thenbeginADataSet.Bookmark := TBookmark(Bkm);OutputVal := ADataSet.FieldByName(AFieldName).Value;end;View.BeginUpdate;View.DataController.BeginLocate;try// make changes here…finallyView.DataController.EndLocate;View.EndUpdate;end;============================================================= 在GridMode禁用内置的右键Footer菜单uses cxGridStdPopupMenu;procedure cxGridPopupMenuOnPopup(...)beginif (ASenderMenu is TcxGridStdFooterMenu) and<GridView>.DataController.DataModeController.GridMode then AllowPopup := False;end;============================================================== 主从表任何时候只能展开一个组procedure TForm1.ADetailDataControllerCollapsing( ADataController: TcxCustomDataController; ARecordIndex: Integer;var AAllow: Boolean);varI: Integer;C: Integer;beginAAllow := False;C := 0;for I := 0 to ADataController.RecordCount - 1 dobeginif ADataController.GetDetailExpanding(I) thenInc(C);if C > 1 thenAAllow := True;end;end;procedure TForm1.ADetailDataControllerExpanding(ADataController: TcxCustomDataController; ARecordIndex: Integer;var AAllow: Boolean);beginADataController.CollapseDetails;end;procedure TForm1.FormCreate(Sender: TObject);begincxGrid1DBTableView1.DataController.OnDetailExpanding := ADetailDataControllerExpanding; cxGrid1DBTableView1.DataController.OnDetailCollapsing := ADetailDataControllerCollapsing; end;=================================================================动态创建层次(Level)和视图(View)varGrid: TcxGrid;Level: TcxGridLevel;View: TcxGridDBTableView;begin// Creates a Grid instanceGrid := TcxGrid.Create(SomeOwner);Grid.Parent := SomeParent;// Creates a LevelLevel := Grid.Levels.Add; := 'SomeLevelName';// Creates a ViewView := Grid.CreateView(TcxGridDBTableView) as TcxGridDBTableView; := 'SomeViewName';// … and binds it to the LevelLevel.GridView := View;// Hooks up the View to the dataView.DataController.DataSource := SomeDataSource;// … and creates all columnsView.DataController.CreateAllItems;end;======================================================================获得Group Footer合计行对应的记录procedure TForm1.cxGrid1DBTableView1CustomDrawFooterCell(Sender: TcxGridTableView; ACanvas: TcxCanvas;AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);varALevel, ADataGroupIndex: Integer;AGridRecord, AGroupRecord: TcxCustomGridRecord;beginif AViewInfo is TcxGridRowFooterCellViewInfo and // Row footer(TcxGridDBColumn(AViewInfo.Column).DataBinding.FieldName = 'Area') then // Area column beginAGridRecord := TcxGridRowFooterCellViewInfo(AViewInfo).GridRecord;ALevel := TcxGridRowFooterCellViewInfo(AViewInfo).Container.GroupLevel; ADataGroupIndex := Sender.DataController.Groups.DataGroupIndexByRowIndex[AGridRecord.Index];if ADataGroupIndex <> -1 thenbeginAGroupRecord := AGridRecord;while AGroupRecord.Level <> ALevel doAGroupRecord := AGroupRecord.ParentRecord;AViewInfo.Text := AGroupRecord.DisplayTexts[0];end;end;end;===========================================================================访问过滤之后的记录varI: Integer;beginMemo1.Lines.Clear;with cxGrid1DBTableView1.DataController dofor I := 0 to FilteredRecordCount - 1 doMemo1.Lines.Add(DisplayTexts[FilteredRecordIndex[I], 0]);end;============================================================================获得单元的FontcxGrid1DBTableView1.ViewInfo.RecordsViewInfo.Items[1].GetCellViewInfoByItem(cxGrid1DBTableView1Company).EditViewInfo.Font;============================================================================ 根据Level名称找到Level对象function GetLevelByName(AGrid: TcxGrid; ALevelName: string): TcxGridLevel;function LoopThroughLevels(ALevel: TcxGridLevel; ALevelName: string): TcxGridLevel;varI: Integer;beginResult := nil;for I := 0 to ALevel.Count - 1 dobeginif ALevel[I].Name = ALevelName thenbeginResult := ALevel[I];Exit;end;if ALevel[I].Count > 0 thenbeginResult := LoopThroughLevels(ALevel[I], ALevelName);if Result <> nil thenExit;end;end;end;varI: Integer;beginResult := nil;for I := 0 to AGrid.Levels.Count - 1 dobeginif AGrid.Levels[I].Name = ALevelName thenbeginResult := AGrid.Levels[I];Exit;end;if AGrid.Levels[I].Count > 0 thenbeginResult := LoopThroughLevels(AGrid.Levels[I], ALevelName);if Result <> nil thenExit;end;end;end;============================================================================指定Filter Builder打开/保存过滤文件的默认路径uses..., cxFilterControlDialog;procedure TForm.GridView1FilterControlDialogShow(Sender: TObject);beginTfmFilterControlDialog(Sender).OpenDialog.InitialDir := 'D:\'end;============================================================================保存/恢复带汇总行的布局<TableView>.StoreToIniFile('c:\Grid.ini', True, [gsoUseSummary]);<GridView>.RestoreFromIniFile(<inifilename>,True,False {or True, optional},[gsoUseSummary]); ============================================================================取消过滤时移到第一行usescxCustomData;procedure TYour_Form.AViewDataControllerFilterChanged(Sender: TObject);varFilter: TcxDataFilterCriteria;beginwith Sender as TcxDataFilterCriteria doif IsEmpty thenDataController.FocusedRowIndex := 0;end;============================================================================= 排序后移到第一行可以设置DataController.Options.FocusTopRowAfterSorting := True，也可以使用如下的代码：usescxCustomData;procedure TYour_Form.Your_ViewDataControllerSortingChanged(Sender: TObject);beginTcxCustomDataController(Sender).FocusedRowIndex := 0;end;============================================================================== 判断当前行是否第一行或最后一行可以使用DataController的IsBOF, IsEOF方法，或者：<AView>.Controller.Controller.FocusedRow.IsFirst<AView>.Controller.Controller.FocusedRow.IsLast============================================================================== 根据指定值查找记录DataController提供了好几个方法来得到指定值对应的RecordIndex对于Bound View可以使用FindRecordIndexByKeyValue方法=============================================================================== 编辑和显示Blob字段该字段的Properties设置为BlobEdit，并将BlobPaintStyle 属性设为bpsText=============================================================================== 得到可见行数<View>.ViewInfo.VisibleRecordCount=============================================================================== 保存后的行设置为当前行constCM_SETFOCUSEDRECORD = WM_USER + 1002;typeTForm1 = class(TForm)cxGrid1DBTableView1: TcxGridDBTableView;cxGrid1Level1: TcxGridLevel;cxGrid1: TcxGrid;dxMemData1: TdxMemData;dxMemData1Field1: TStringField;dxMemData1Field2: TIntegerField;DataSource1: TDataSource;cxGrid1DBTableView1RecId: TcxGridDBColumn;cxGrid1DBTableView1Field1: TcxGridDBColumn;cxGrid1DBTableView1Field2: TcxGridDBColumn;Timer1: TTimer;CheckBox1: TCheckBox;procedure Timer1Timer(Sender: TObject);procedure dxMemData1AfterPost(DataSet: TDataSet);procedure CheckBox1Click(Sender: TObject);privateprocedure CMSetFocusedRecord(var Msg: TMessage); message CM_SETFOCUSEDRECORD; public{ Public declarations }end;varForm1: TForm1;FocusedIdx: Integer;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);begindxMemData1.AppendRecord(['', IntToStr(Random(1000)), Random(1000)]);end;procedure TForm1.dxMemData1AfterPost(DataSet: TDataSet);beginPostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(cxGrid1DBTableView1), MakeLParam(cxGrid1DBTableView1.Controller.FocusedRowIndex,cxGrid1DBTableView1.Controller.TopRowIndex));end;procedure TForm1.CMSetFocusedRecord(var Msg: TMessage);beginTcxGridDBTableView(msg.WParam).Controller.FocusedRowIndex := Msg.LParamLo; TcxGridDBTableView(msg.WParam).Controller.TopRowIndex := Msg.LParamHi;end;procedure TForm1.CheckBox1Click(Sender: TObject);beginTimer1.Enabled := TCheckBox(Sender).Checked;end;end.=============================================================================== ==删除记录并获得焦点procedure TForm1.BtnDeleteClick(Sender: TObject);varFocusedRow, TopRow: Integer;View: TcxGridTableView;DataController: TcxGridDataController;beginView := cxGrid1.FocusedView as TcxGridTableView;DataController := View.DataController;// Remember the top row (the vertical scrollbar position)TopRow := View.Controller.TopRowIndex;// Remember the focused row(!) indexFocusedRow := DataController.FocusedRowIndex;DataController.DeleteFocused;// After deletion the same row must be focused,// although it will correspond to a different data recordDataController.FocusedRowIndex := FocusedRow;// Restore the top rowView.Controller.TopRowIndex := TopRow;end;分享一下ExpressQuantumGrid4的cxGrid的一些使用方法和经验日期：2006年2月6日作者：wangxian11 人气：9427 查看:[大字体中字体小字体]使用cxGrid有一些时间了，在这里总结一下使用cxGrid的一些方法，希望给刚开始接触cxGrid的人一些帮助。

合集下载

delphi中cxGrid使用汇总（二）（转）

delphi中cxGrid使用汇总（二）（转）

delphi中cxGrid使用汇总（二）（转）delphi中cxGrid使用汇总（二）（转）2011-12-27 22:05:14| 分类： delphi |字号订阅50 保存/恢复带汇总行的布局<TableView>.StoreToIniFile('c:\Grid.ini', True, [gsoUseSummary]);<GridView>.RestoreFromIniFile(<inifilename>,True,False {or True, optional},[gsoUseSummary]);*************************************************************** *************51 取消过滤时移到第一行解决：usescxCustomData;procedure TYour_Form.AViewDataControllerFilterChanged( Sender: TObject);varFilter: TcxDataFilterCriteria;beginwith Sender as TcxDataFilterCriteria doif IsEmpty thenDataController.FocusedRowIndex := 0;end;*************************************************************** *************52 排序后移到第一行解决：可以设置DataController.Options.FocusTopRowAfterSorting := True，也可以使用如下的代码：usescxCustomData;procedure TYour_Form.Your_ViewDataControllerSortingCh anged(Sender: TObject);beginTcxCustomDataController(Sender).FocusedRowIndex := 0;end;*************************************************************** *************53 判断当前行是否第一行或最后一行解决：可以使用DataController的IsBOF, IsEOF方法，或者：<AView>.Controller.Controller.FocusedRow.IsFirst<AView>.Controller.Controller.FocusedRow.IsLast*************************************************************** *************54 根据指定值查找记录解决：DataController提供了好几个方法来得到指定值对应的RecordIndex对于Bound View可以使用FindRecordIndexByKeyValue方法*************************************************************** *************55 编辑和显示Blob字段解决：该字段的Properties设置为BlobEdit，并将BlobPaintStyle 属性设为 bpsText*************************************************************** *************56 得到可见行数解决：<View>.ViewInfo.VisibleRecordCount*************************************************************** *************57 保存后的行设置为当前行解决：constCM_SETFOCUSEDRECORD = WM_USER + 1002;typeTForm1 = class(TForm)cxGrid1DBTableView1: TcxGridDBTableView;cxGrid1Level1: TcxGridLevel;cxGrid1: TcxGrid;dxMemData1: TdxMemData;dxMemData1Field1: TStringField;dxMemData1Field2: TIntegerField;DataSource1: TDataSource;cxGrid1DBTableView1RecId: TcxGridDBColumn;cxGrid1DBTableView1Field1: TcxGridDBColumn;cxGrid1DBTableView1Field2: TcxGridDBColumn;Timer1: TTimer;CheckBox1: TCheckBox;procedure Timer1Timer(Sender: TObject);procedure dxMemData1AfterPost(DataSet: TDataSet);procedure CheckBox1Click(Sender: TObject);privateprocedure CMSetFocusedRecord(var Msg: TMessage); message CM_SETFOCUSEDRECORD;public{ Public declarations }end;varForm1: TForm1;FocusedIdx: Integer;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);begindxMemData1.AppendRecord(['', IntToStr(Random(1000)), Random(1000)]);end;procedure TForm1.dxMemData1AfterPost(DataSet: TData Set);beginPostMessage(Handle,CM_SETFOCUSEDRECORD, Integer(cxGrid1DBTableView1), Ma keLParam(cxGrid1DBTableView1.Controller.FocusedRowIndex, cxGrid1DBTableView1.Controller.TopRowIndex));end;procedure TForm1.CMSetFocusedRecord(var Msg: TMes sage);beginTcxGridDBTableView(msg.WParam).Controller.FocusedRowIn dex := Msg.LParamLo;TcxGridDBTableView(msg.WParam).Controller.TopRowIndex := Msg.LParamHi;end;procedure TForm1.CheckBox1Click(Sender: TObject);beginTimer1.Enabled := TCheckBox(Sender).Checked;end;end.*************************************************************** *************58 删除记录并获得焦点解决：procedure TForm1.BtnDeleteClick(Sender: TObject);varFocusedRow, TopRow: Integer;View: TcxGridTableView;DataController: TcxGridDataController;beginView := cxGrid1.FocusedView as TcxGridTableView;DataController := View.DataController;// Remember the top row (the vertical scrollbar p osition)TopRow := View.Controller.TopRowIndex;// Remember the focused row(!) indexFocusedRow := DataController.FocusedRowIndex;DataController.DeleteFocused;// After deletion the same row must be focused, // although it will correspond to a different data recordDataController.FocusedRowIndex := FocusedRow;// Restore the top rowView.Controller.TopRowIndex := TopRow;end;*************************************************************** *************59 cxGrid的 TableView 数据排序与对应的数据集同步解决：COPYRIGHT BY cnCharles, ALL RIGHTS RESERVED.delphi群: 16497064, blog: /cnCharles //描述: cxGrid的 TableView 数据排序与对应的数据集同步, 该方法主要用于打印时// 的排序与所见到的排序保持一致;//参数: @tv: 排序的cxGridTableView//说明: @tv: 对应的数据集只支持 ADOQuery与 ClientDataSet;procedure cxGridSortSyncToDataSet(tv: TcxGridDBTableView); overload;//描述: 功能同上, 实现代码一样, 如果有更改就同步更改procedure cxGridSortSyncToDataSet(tv: TcxGridDBBandedT ableView); overload;procedure cxGridSortSyncToDataSet(tv: TcxGridDBTableView);constSortArray: array[soAscending..soDescending] of string = (’ASC’, ’DESC’);varAscFields, DescFields, S, SortOrder: string;IndexPrint: string;I: integer;Index: integer;cds: TClientDataSet;beginS := ’’;AscFields := ’’;DescFields := ’’;if tv.SortedItemCount = 0 thenExit;if tv.DataController.DataSource.DataSet is TADOQuery then beginfor I := 0 to tv.SortedItemCount - 1 do beginSortOrder := SortArray[tv.SortedItems[I].SortOrder];if S <> ’’ thenS := S + ’, ’;Index := tv.SortedItems[I].Index;S := S + tv.Columns[Index].DataBinding.Field.FieldName + ’ ’ + SortOrder;end;(tv.DataController.DataSource.DataSet asTADOQuery).Sort := S;end else if (tv.DataController.DataSource.DataSet is TClientDataSet) then beginCds := tv.DataController.DataSource.DataSet as TClientDataSet;for I := 0 to tv.SortedItemCount - 1 do beginIndex := tv.SortedItems[I].Index;S := tv.Columns[Index].DataBinding.Field.FieldName +’;’;AscFields := AscFields + S;if tv.SortedItems[I].SortOrder = soDescending thenDescFields := DescFields + S;end;if AscFields <> ’’ thenDelete(AscFields, Length(AscFields), 1); //删除 ;if DescFields <> ’’ thenDelete(DescFields, Length(DescFields), 1);IndexPrint := TimeToStr(Now());Cds.IndexDefs.Clear;IndexPrint := TimeToStr(Now());cds.AddIndex(IndexPrint, AscFields, [], DescFields);cds.IndexName := IndexPrint;end;end;*************************************************************** *************60 cxGRID怎么遍历已经选择的单元格解决：n := cxGrid1DBTableView1.DataController.GetSelectedCount;for i:=0 to n - 1 dobeginIndex := cxGrid1DBTableView1.DataController.GetSelecte dRowIndex(i);if Index < 0 then continue;AccID :=cxGrid1DBTableView1.DataController.GetRowvalue(cxGrid1DBTableView1.DataController.GetRowInfo(Index),0);AccID := dsData.DataSet.FieldByName(’AccountID’).As String;end;n := cxGrid1DBTableView1.DataController.GetSelectedCount;for i:=0 to n - 1 dobeginIndex := cxGrid1DBTableView1.DataController.GetSelecte dRowIndex(i);if Index < 0 then continue;AccID := cxGrid1DBTableView1.DataController.GetRowvalue(cxGrid1DBTableView1.DataController.GetRowInfo(Index),0);//这里的0是列的索引，能指定，也可用通过GridView获取end;*************************************************************** *************61 动态设置显示格式解决：procedure SetDisplayFormat(ACtrlData: TClientDataSet;TbView: TcxGridDBTableView);vari: integer;beginif ACtrlData.RecordCount <= 0 then Exit;tryTbView.ClearItems;ACtrlData.First;for i := 0 to ACtrlData.RecordCount - 1 dobeginif ACtrlData.FieldByName('SQBF_DisplayInGrid').AsString = '1' then //在表格中显示with TbView.CreateColumn dobeginDataBinding.FieldName := ACtrlData.FieldByName('SQBF_FieldName').AsString;Caption := ACtrlData.FieldByName('SQBF_Caption').AsString; //字段中文标题Hint := ACtrlData.FieldByName('SQBF_Hint').AsString;Width := ACtrlData.FieldByName('SQBF_Width').AsInteger;HeaderAlignmentHorz := taCenter;end;ACtrlData.Next;end;excepton E: Exception doSaveLog('设置显示格式时出错：' + E.Message);end;end;*************************************************************** *************62 给cxGRID加序号列解决：procedure SetRowNumber(var ASender: TcxGridTableView;AViewInfo: TcxCustomGridIndicatorItemViewInfo;var ACanvas: TcxCanvas; var ADone: boolean);uses cxLookAndFeelPainters;procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;var ACanvas: TcxCanvas; var ADone: boolean);varAIndicatorViewInfo: TcxGridIndicatorRowItemViewInfo;ATextRect: TRect;AFont: TFont;AFontTextColor, AColor: TColor;beginAFont := ACanvas.Font;AColor := clBtnFace;AFontTextColor := clWindowText ;if (AViewInfo is TcxGridIndicatorHeaderItemViewInfo) then beginATextRect := AViewInfo.Bounds;InflateRect(AT extRect, -1, -1);ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.Bounds,ATextRect, [], cxBordersAll, cxbsNormal, taCenter, vaCenter, False, False, '序号', AFont, AFontTextColor, AColor);ADone := True;end ;if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then Exit;ATextRect := AViewInfo.ContentBounds;AIndicatorViewInfo := AViewInfo as TcxGridIndicatorRowItemViewInfo;InflateRect(AT extRect, -1, -1);ASender.LookAndFeelPainter.DrawHeader(ACanvas, AViewInfo.ContentBounds,ATextRect, [], [bBottom, bLeft, bRight], cxbsNormal, taCenter, vaCenter,False, False, IntToStr(AIndicatorViewInfo.GridRecord.Index + 1),AFont, AFontTextColor, AColor);ADone := True;ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind);end;如果你不要行标志的话,你可以不改控件直接注释掉这一行: ASender.LookAndFeelPainter.DrawIndicatorImage(ACanvas, ATextRect, AIndicatorViewInfo.IndicatorKind);要标志的话,在DrawIndicatorImage 从这里跟进去(Ctrl+左键单击)在 cxLookAndFeelPainters 单元中作如下修改:class procedure TcxCustomLookAndFeelPainter.DrawIndicatorImage(ACanvas: TcxCanvas;const R: TRect; AKind: TcxIndicatorKind);varX, Y: Integer;beginif AKind = ikNone then Exit;with cxIndicatorImages, R dobeginX := (Left + Right - Width); //靠右Y := (Top + Bottom - Height) div 2; //居中end;cxIndicatorImages.Draw(ACanvas.Canvas, X, Y, Ord(AKind) - 1);end;注意,我已注明靠右的那一行, 就是去掉 DIV 2 了,还要改一个地方:SKIN控件目录下的dxSkinLookAndFeelPainter单元,找到TdxSkinLookAndFeelPainter.DrawIndicatorImage 函数的OffsetRect(ARect, (Left + Right - cx div 2) , (Top + Bottom - cy) div 2);这一行,将 (Left + Right - cx div 2) 改为(Left + Right - cx) 也是去掉 div 2 就是靠右;修改后: OffsetRect(ARect, (Left + Right - cx) , (Top + Bottom - cy) div 2);使用procedureTForm1.cxGrid1DBTableView1CustomDrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas;AViewInfo: T cxCustomGridIndicatorItemViewInfo; var ADone: Boolean);beginSetRowNumber(Sender,AviewInfo,ACanvas,ADone);end;另外序号列的列宽最好改为25以上!效果图:*************************************************************** *************63 cxGrid自带过滤后数据也数据集同步解决：在cxGrid的View Filter事件的OnBeforeChange中写代码就可以了.procedurecxgd1DBTableView1DataControllerFilterBeforeChange ( Sender: T cxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterT ext: String); begin //这里可以增加数据集控件的filter:=false; //如：adoquery.filter:=false; //如果使用的是cxgrid的汉化版本，可以将AFilterText中的中文等于，小于替换成= <等//adoquery.filter:=替换了中文的AFilterText; ShowMessage(AFilterText); end; 写了上述步骤后可以在tvcxgd1DBTableView1DataControllerFilterChanged写adoquery.filter:=true; 这样就起到了cxgrid过滤后的数据同步到adoquery。

cxgrid绘制曲线实例

cxgrid绘制曲线实例

cxgrid绘制曲线实例在C++的图形用户界面开发中，cxGrid是一个常用的控件，它提供了丰富的功能和灵活的布局方式。

但是，对于一些需要更高级绘图需求的场景，我们可能需要借助其他的图形库来实现。

在这篇文章中，我们将介绍如何使用cxGrid控件来绘制曲线。

一、准备工作首先，确保你已经安装了适当的C++开发环境，并且熟悉cxGrid的基本用法。

二、绘制曲线步骤1.创建cxGrid控件并设置布局：在程序中创建一个cxGrid控件，并使用合适的布局方式（如网格布局）来安排控件的位置和大小。

2.添加绘图组件：在cxGrid控件中添加适当的绘图组件，如线条、椭圆、矩形等。

这些组件通常提供了一些属性，如颜色、线宽等，可以用来绘制曲线。

3.绘制曲线：使用绘图组件的属性或函数来绘制曲线。

通常需要提供曲线的起点、终点以及中间的各个点。

可以通过循环或数组等方式来生成这些点，并使用绘图组件的函数将它们连接起来。

4.调整绘图效果：根据需要，可以调整绘图组件的属性（如颜色、线宽）或使用其他绘图技巧（如渐变、阴影等）来增强曲线的视觉效果。

5.保存和展示：最后，可以将绘制好的曲线保存为图片或直接展示给用户。

三、示例代码下面是一个简单的示例代码，展示了如何使用cxGrid控件绘制一条简单的曲线：```cpp//创建cxGrid控件并设置布局cxGrid*grid=newcxGrid(this,CXGRID_V_BOX);grid->SetColCount(3);//设置列数grid->SetColWidth(0,200);//设置第一列的宽度grid->SetColLabel(0,"X坐标");//设置列标签grid->SetColLabelSize(0,30);//设置标签大小grid->SetRowCount(5);//设置行数grid->SetRowLabel(0,"Y坐标");//设置行标签grid->SetRowLabelSize(0,25);//设置标签大小grid->SetRowHeight(0,40);//设置第一行的行高//添加绘图组件并绘制曲线cxGridCell*cell=grid->AddCell(1,0);//添加第一个绘图组件到第一行第二列cell->AddString("x=1");//设置坐标系的第一点坐标和标签cell=grid->AddLine(1,1,2,2,CXGRID_LINE_SOLID,RGB(255,0,0));//在第二行第二列绘制一条红色的实线cell->SetText("y=f(x)=x^2");//设置曲线的标签和公式cell=grid->AddCell(3,0);//在第三行第一列添加第二个绘图组件cell->AddString("f'(x)=2x");//设置曲线的导数公式和坐标系第二点坐标cell=grid->AddLine(4,1,3,2,CXGRID_LINE_DASHED,RGB(0,255,0));//在第四行第二列绘制一条蓝色的虚线表示导数曲线//保存和展示绘制好的曲线grid->SaveImage("curve.png",CXGRID_IMAGE_PNG);//将绘制好的曲线保存为图片```这段代码创建了一个cxGrid控件，并在其中添加了三个绘图组件来绘制一条曲线。

CXGRID用法(取行、列值,定位选中某行等等)

CXGRID用法(取行、列值,定位选中某行等等)

CXGRID用法（取行、列值；定位选中某行等等）Delphi Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableView1.Controller.FocusedColumn 当前列cxGrid1DBTableView1.Controller.FocusedColumnIndex 当前列号cxGrid1DBTableView1.Controller.EditingItem 当前编辑中的单元框cxGrid1DBTableView1.Controller.EditingController.Edit 当前的编辑框在编辑状态下可以这样取当前单元格的值:if cxGrid1DBTableView1.Controller.FocusedColumn.Editing thenShowMessage(cxGrid1DBTableView1.Controller.EditingController.Edit.EditingValue)elsecxGrid1DBTableView1.DataController.GetValue(cxGrid1DBTableView1.DataController.FocusedRecordIndex,cxGrid1DBTableView1.Controller.FocusedItemIndex);非编辑状态下可以这样取得单元格内的值:OnCellClick事件代码:procedure TForm1.cxGrid1DBTableView1CellClick(Sender: TcxCustomGridTableView;ACellViewInfo: TcxGridTableDataCellViewInfo; AB utton: TMouseButton;AShift: TShiftState; var AHandled: Boolean);varv : Variant;beginv := ACellViewInfo.Value;end;取列值i := cxGrid1DBBandedTableView1.Controller.FocusedC olumn.Index;cxGrid1DBBandedTableView1.DataController.GetValue(cxGrid1DBBandedTableView1.Controller.SelectedRows[0].RecordIn dex,i);cxGrid1DBTableView1.DataController.Values[行,列]取得焦点cxGrid1DBTableView1.Columns[5].FocusWithSelection;cxGrid1DBTableView1.Columns[4].Focused:=True;得到当前点击的单元格的值uses Clipbrd;OnCellClick事件代码:procedure TForm1.cxGrid1DBTableView1CellClick(Sender: TcxCustomGridTableView;ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseB utton;AShift: TShiftState; var AHandled: Boolean);varv : Variant;beginv := ACellViewInfo.Value;//值Clipboard.AsText := vartostr(v);//保存到clipboardend;cxGrid的DBTableView的名称为dgtv11. 返回选中的行数gdtv1.DataController.GetSelectedCount;2. 返回选中行的索引: gdtv1.DataController.GetSelectedRowIndex(0) , 表示第一个选中行的索引3. 返回选中行的数据;varI, J:Integer;beginfor I:=0 to gdtv1.DataController.GetSelectedCount - 1 do beginJ := gdtv1.DataController.GetSelectedRowIndex(I);ShowMessage(VarToStr(gdtv1.DataController.GetValue(J, 0))); //选择中行的第列的值end;end;4. 获取cxGrid排序规则constOrderArray: array[soNone..soDescending] of string = ('None', 'ASC', 'DESC');varI: integer;S, OrderStr: string;beginfor I := 0 to gdtv1.SortedItemCount - 1 do beginif S <> '' thenS := S + ', ';OrderStr := OrderStr + gdtv1.SortedItem s[I].DataBinding.DefaultCaption + ' ';OrderStr := OrderStr + OrderArray[TcxDataSortOrder(gdtv1.SortedItem s[I].SortOrder)];S := S + OrderStr;end;ShowMessage('ORDER BY ' + S);5.获取多选的值for i := 0 to cxgrid1.SelectedRows.Count-1 dobegincxgrid1.DataSource.DataSet.GotoBookmark(Pointer(cxgrid1.SelectedRows.Items[i])); //定位选中的字段end;6.//选择行的第1列的值for I:=0 to cxGrid1DBTableView1.DataController.GetSelectedCount - 1 dobeginJ := cxGrid1DBTableView1.DataController.GetSelectedRowIndex(I);ShowMessage(VarToStr(cxGrid1DBTableView1.DataController.GetValue(J, 0)));end;7.获取所选行的值with cxGrid1DBTableView1.Controller dobeginfor i:=0 to SelectedRowCount-1 dobeginSelectedRows[i].Focused:=True;ShowMessage(ADOQuery1.fieldbyname('mc').AsString);end;end;。

CxGrid汇总

CxGrid汇总

cxGrid使用汇总1. 去掉cxGrid中台头的Box (4)2．统计功能 (4)3．去掉cxgrid 中的过滤下拉箭头 (5)4．让“Drag a column here to group by that column”不显示 (5)5．GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文 (6)6．如何实现如下功能： (6)+财务部 (6)+原材料仓库 (6)+成品库 (6)+冲压车间 (6)+软件开发部 (6)这个是部门的名称,点击加号就可以将本部门的人员情况显示出来。

(6)7．类似PageControl显示 (7)8．如何设定左边几列，不能滚动 (7)9. 怎样实现如EXCEL一样的，当前格=G14+G15+G16 这样的功能 (8)10. 鼠标右击cxGrid1DBBandedTableView1菜单里的Edit Layout什么用，怎么使用？ (8)11．怎样将cxGrid里的数据导入到EXCEL，HTML，XML和TEXT (8)12. 如何使满足条件的数据显示不同的颜色？ (9)13. 如何从外边的TXT文件导入到cxGrid？ (10)14如何改变列的颜色？ (13)16. 怎样使鼠标移动时，相应的单元里的文字变色？ (14)17. 怎样设计多表头的cxGrid？ (16)18. 在主从表结构时，当点开“+”时怎样将焦点聚在相应主表的记录上？1719 CXGrid4如何展开全部节点 (17)20. cxGrid如何动态创建Items的Editor的项? (18)21. 拷贝文件时有进度显示 (18)22. cxGrid 设置斑马线 (20)23根据记录内容更改字体颜色 (20)24用代码展开/收缩主从结构 (21)25在内置右键菜单的后面增加菜单项 (21)26根据某列的值设定其它列的可编辑性 (31)27保存/恢复Grid布局 (31)28保存/恢复带汇总行的布局 (33)29定位在第一行并显示内置编辑器 (34)30修改"<No data to display>" 字符串 (34)31删除应用过滤后的行 (34)32根据单元的值设置样式 (35)33动态生成BandedView (36)34当底层数据集为空时显示一条空记录 (37)35 在当前View插入记录 (37)36激活内置编辑控件 (38)37隐藏内置编辑控件 (38)38 移除一个分组列 (39)39 保存修改到数据库 (39)41得到选中记录的值 (40)42在GridMode禁用内置的右键Footer菜单 (41)43主从表任何时候只能展开一个组 (42)44动态创建层次(Level)和视图(View) (43)45获得Group Footer合计行对应的记录 (44)46访问过滤之后的记录 (45)47获得单元的Font (46)48根据Level名称找到Level对象 (46)49指定Filter Builder打开/保存过滤文件的默认路径 (48)50在主从TableView中根据主TableView得到对应的从TableView (48)51取消过滤时移到第一行 (49)52排序后移到第一行 (49)53判断当前行是否第一行或最后一行 (50)54根据指定值查找记录 (50)55 编辑和显示Blob字段 (50)56得到可见行数 (51)57保存后的行设置为当前行 (51)58删除记录并获得焦点 (53)59cxGrid的TableView 数据排序与对应的数据集同步 (54)60cxGRID怎么遍历已经选择的单元格 (57)61动态设置显示格式 (58)62给cxGRID加序号列 (59)63 cxGrid自带过滤后数据也数据集同步 (62)1. 去掉cxGrid中台头的Box解决：在tableview1的ptionsview的groupbybox=false;*************************************************************************** **2．统计功能解决：(1) tableviewtableview1的optionsviewfooter=ture然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind=skSum在Footer的第一列显示[合计:]加一个Summary项,Column设为Grid的第一列,Kind设为skNone在该Summary项的OnGetText事件中,输入:procedureExpenseTcxGridDBDataControllerTcxDataSummaryFooterSummaryItems2GetText(Sender: TcxDataSummaryItem; const AValue: Variant;AIsFooter: Boolean;var AText: String);beginAText := '合计:';end;(2) 按条件汇总:在TableView的DataController->Summary->FooterSummary->OnSummary事件中,输入:procedureExpenseDataControllerSummaryFooterSummaryItemsSummary(ASender: TcxDataSummaryItems; Arguments:TcxSummaryEventArguments;var OutArguments: TcxSummaryEventOutArguments);begin//得到字段名TcxDBDataSummaryItem(Arguments.SummaryItem).FieldName;if (ASender.DataController.Values[Arguments.RecordIndex,tvExpenseLevel.Index] > 1) //只统计Level列=1的值and (TcxDBDataSummaryItem(Arguments.SummaryItem).Kind = skSum) thenOutArguments.Value := 0; //Level > 1的统计值设为0end;OptionView中属性GroupFooters设为gfAlwaysVisible并设置需要求和的列,在summary.default for Groups 下add加入需要合计的字段,column下显示fieldname 为统计字段,format为格式,kind为统计方法,position 为位子spfooter 在分组的下面,spgroup 在分组的上面或用cxGridPopupMenu1,在运行時可对任意数字类型列求和,方法是只需设置cxGridPopupMenu1的属性Grid为cxGrid1DBTableView1的cxGrid,*************************************************************************** **3．去掉cxgrid 中的过滤下拉箭头解决：选择tableview1.optionscustomize.columnfiltering=fasle;*************************************************************************** *4．让“Drag a column here to group by that column”不显示解决：在cxGrid1DBTableView1->optionsview->groupbybox:=false即可*************************************************************************** *5．GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文解决：最简单的方法是TcxGridTableView.OnCustomDrawPartBackground,也可用OnCustomDrawGroupCell：procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(Sender: TcxGridTableView; ACanvas: TcxCanvas;AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);beginAViewInfo.Text:='动态设置GroupBox 的显示内容';ACanvas.FillRect(AViewInfo.Bounds);end;注：改成中文后将字段拖上去中文还是会显示，最好是设置空值*************************************************************************** *6．如何实现如下功能：+财务部+原材料仓库+成品库+冲压车间+软件开发部这个是部门的名称,点击加号就可以将本部门的人员情况显示出来。