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); var I: Integer; mi: TMenuItem; cmi: TColumnEhMenuItem; // gmi: TDBGridEhMenuItem; begin if PopupMenu = nil then begin if DBGridEhIndicatorTitlePopupMenu = nil then begin DBGridEhIndicatorTitlePopupMenu := TPopupMenuEh.Create(Screen); DBGridEhIndicatorTitlePopupMenu.Name := ‘DBGridEhIndicatorTitlePopupMenu‘; end; while DBGridEhIndicatorTitlePopupMenu.Items.Count > 0 do begin mi := DBGridEhIndicatorTitlePopupMenu.Items[0]; DBGridEhIndicatorTitlePopupMenu.Items.Delete(0); if mi.Owner = DBGridEhIndicatorTitlePopupMenu then mi.Free; end; PopupMenu := DBGridEhIndicatorTitlePopupMenu; end else if PopupMenu.Items.Count > 0 then begin mi := TDBGridEhMenuItem.Create(PopupMenu); mi.Caption := ‘-‘; PopupMenu.Items.Add(mi); end; if Grid.IndicatorTitle.UseGlobalMenu and (itmVisibleColumnsEh in IndicatorTitleMenus) then begin if DBGridEhVisibleColumnsIndicatorMenuItem = nil then DBGridEhVisibleColumnsIndicatorMenuItem := TDBGridEhMenuItem.Create(Screen); if DBGridEhVisibleColumnsIndicatorMenuItem.Parent <> nil then DBGridEhVisibleColumnsIndicatorMenuItem.Parent.Remove(DBGridEhVisibleColumnsIndicatorMenuItem); DBGridEhVisibleColumnsIndicatorMenuItem.Clear; DBGridEhVisibleColumnsIndicatorMenuItem.Caption := SVisibleColumnsEh; //这里 PopupMenu.Items.Add(DBGridEhVisibleColumnsIndicatorMenuItem); for I := 0 to Grid.Columns.Count - 1 do begin if Grid.Columns[i].Title.Caption <> ‘‘ then begin // mi := PopupMenu.CreateMenuItem; cmi := TColumnEhMenuItem.Create(PopupMenu); cmi.ColumnEh := Grid.Columns[i]; cmi.Caption := Grid.Columns[i].Title.Caption; if Grid.TitleParams.MultiTitle then cmi.Caption := StringReplace(cmi.Caption, ‘|‘, ‘ - ‘, [rfReplaceAll]); cmi.Checked := Grid.Columns[i].Visible; cmi.OnClick := MenuVisibleColumnClick; cmi.CloseMenuOnClick := False; DBGridEhVisibleColumnsIndicatorMenuItem.Add(cmi); end; end; end; // itmCut if Grid.IndicatorTitle.UseGlobalMenu and (itmCut in IndicatorTitleMenus) then
EhLib TitleButton SVisibleColumnsEh = '错误的列';
时间: 2024-11-09 14:56:29