?

?

unit EhLibConsts;

interface

resourcestring
SClearSelectedCellsEh = '清除選擇的單元？';
SInvalidTextFormatEh = '錯誤的文本格式';
SInvalidVCLDBIFFormatEh = '錯誤的 VCLDBIF 格式';
SErrorDuringInsertValueEh = '插入值過程中出錯：';
SIgnoreErrorEh = '忽略錯誤？';
STabularInformationEh = '表格信息';
SPageOfPagesEh = '第 %d 頁共 %d 頁';
SPreviewEh = '預覽';
SFieldNameNotFoundEh = '字段名 ''%s'' 沒有找到';
SFindDialogStringNotFoundMessageEh = '字符串 "%s" 沒有找到。';
SVisibleColumnsEh = '錯誤的列'; 應該是 顯示的列或者可見的列

?

procedure TDBGridEhCenter.DefaultBuildIndicatorTitleMenu(Grid: TCustomDBGridEh; var PopupMenu: TPopupMenu); varI: Integer;mi: TMenuItem;cmi: TColumnEhMenuItem; // gmi: TDBGridEhMenuItem; beginif PopupMenu = nil thenbeginif DBGridEhIndicatorTitlePopupMenu = nil thenbeginDBGridEhIndicatorTitlePopupMenu := TPopupMenuEh.Create(Screen);DBGridEhIndicatorTitlePopupMenu.Name := 'DBGridEhIndicatorTitlePopupMenu';end;while DBGridEhIndicatorTitlePopupMenu.Items.Count > 0 dobeginmi := DBGridEhIndicatorTitlePopupMenu.Items[0];DBGridEhIndicatorTitlePopupMenu.Items.Delete(0);if mi.Owner = DBGridEhIndicatorTitlePopupMenu thenmi.Free;end;PopupMenu := DBGridEhIndicatorTitlePopupMenu;end else if PopupMenu.Items.Count > 0 thenbeginmi := TDBGridEhMenuItem.Create(PopupMenu);mi.Caption := '-';PopupMenu.Items.Add(mi);end;if Grid.IndicatorTitle.UseGlobalMenu and (itmVisibleColumnsEh in IndicatorTitleMenus) thenbeginif DBGridEhVisibleColumnsIndicatorMenuItem = nil thenDBGridEhVisibleColumnsIndicatorMenuItem := TDBGridEhMenuItem.Create(Screen);if DBGridEhVisibleColumnsIndicatorMenuItem.Parent <> nil thenDBGridEhVisibleColumnsIndicatorMenuItem.Parent.Remove(DBGridEhVisibleColumnsIndicatorMenuItem);DBGridEhVisibleColumnsIndicatorMenuItem.Clear;DBGridEhVisibleColumnsIndicatorMenuItem.Caption := SVisibleColumnsEh; //這里PopupMenu.Items.Add(DBGridEhVisibleColumnsIndicatorMenuItem);for I := 0 to Grid.Columns.Count - 1 dobeginif Grid.Columns[i].Title.Caption <> '' thenbegin // mi := PopupMenu.CreateMenuItem;cmi := TColumnEhMenuItem.Create(PopupMenu);cmi.ColumnEh := Grid.Columns[i];cmi.Caption := Grid.Columns[i].Title.Caption;if Grid.TitleParams.MultiTitle thencmi.Caption := StringReplace(cmi.Caption, '|', ' - ', [rfReplaceAll]);cmi.Checked := Grid.Columns[i].Visible;cmi.OnClick := MenuVisibleColumnClick;cmi.CloseMenuOnClick := False;DBGridEhVisibleColumnsIndicatorMenuItem.Add(cmi);end;end;end;// itmCutif Grid.IndicatorTitle.UseGlobalMenu and (itmCut in IndicatorTitleMenus) then

?

轉載于:https://www.cnblogs.com/CodeGear/p/4307596.html

總結

以上是生活随笔為你收集整理的EhLib TitleButton SVisibleColumnsEh = '错误的列';的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。