?

?

unit EhLibConsts;

interface

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

?

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

?

轉(zhuǎn)載于:https://www.cnblogs.com/CodeGear/p/4307596.html

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。