IDE: Add to Toolbar/coolbar options window a message about saving current desktop manually. Issue #34659, patch from FTurtle.

git-svn-id: trunk@59788 -
This commit is contained in:
juha 2018-12-11 00:03:23 +00:00
parent f4544c2ac8
commit 607ce76498
5 changed files with 131 additions and 81 deletions

View File

@ -21,7 +21,7 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
TabOrder = 0 TabOrder = 0
object dbGeneralSettings: TDividerBevel object dbGeneralSettings: TDividerBevel
Left = 0 Left = 0
Height = 15 Height = 13
Top = 5 Top = 5
Width = 503 Width = 503
Caption = 'Editor Toolbars Settings' Caption = 'Editor Toolbars Settings'
@ -37,9 +37,9 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
AnchorSideTop.Control = dbGeneralSettings AnchorSideTop.Control = dbGeneralSettings
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 19 Height = 17
Top = 32 Top = 30
Width = 108 Width = 96
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Toolbar is visible' Caption = 'Toolbar is visible'
OnClick = cbCoolBarVisibleClick OnClick = cbCoolBarVisibleClick
@ -61,11 +61,11 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 25 Height = 23
Top = 65 Top = 65
Width = 79 Width = 73
AutoSize = True AutoSize = True
BorderSpacing.Top = 14 BorderSpacing.Top = 18
Caption = 'Configure' Caption = 'Configure'
OnClick = bConfigClick OnClick = bConfigClick
TabOrder = 2 TabOrder = 2
@ -77,10 +77,10 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
AnchorSideRight.Control = cbPos AnchorSideRight.Control = cbPos
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 168 Left = 155
Height = 25 Height = 23
Top = 65 Top = 65
Width = 110 Width = 106
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -93,10 +93,10 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCoolBarVisible AnchorSideTop.Control = cbCoolBarVisible
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 140 Left = 128
Height = 15 Height = 13
Top = 34 Top = 32
Width = 32 Width = 27
BorderSpacing.Left = 32 BorderSpacing.Left = 32
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'lblpos' Caption = 'lblpos'
@ -108,12 +108,12 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
AnchorSideTop.Control = lblpos AnchorSideTop.Control = lblpos
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 178 Left = 161
Height = 23 Height = 21
Top = 30 Top = 28
Width = 100 Width = 100
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
ItemHeight = 15 ItemHeight = 13
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Top' 'Top'
@ -126,6 +126,25 @@ object EditorToolbarOptionsFrame: TEditorToolbarOptionsFrame
TabOrder = 1 TabOrder = 1
Text = 'Top' Text = 'Top'
end end
object lblNoAutoSaveActiveDesktop: TLabel
AnchorSideLeft.Control = cbCoolBarVisible
AnchorSideTop.Control = bConfig
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnTop
AnchorSideRight.Side = asrBottom
Left = 0
Height = 13
Top = 94
Width = 503
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Bottom = 6
Caption = 'lblNoAutoSaveActiveDesktop'
Font.Color = clInactiveCaption
ParentColor = False
ParentFont = False
WordWrap = True
end
end end
object imButtons: TImageList object imButtons: TImageList
left = 304 left = 304

View File

@ -49,6 +49,7 @@ type
cbPos: TComboBox; cbPos: TComboBox;
imButtons: TImageList; imButtons: TImageList;
dbGeneralSettings: TDividerBevel; dbGeneralSettings: TDividerBevel;
lblNoAutoSaveActiveDesktop: TLabel;
lblpos: TLabel; lblpos: TLabel;
pnTopCenterLabel: TLabel; pnTopCenterLabel: TLabel;
pnTop: TPanel; pnTop: TPanel;
@ -105,6 +106,7 @@ begin
for i := 0 to high(sLocalizedPosValues) do for i := 0 to high(sLocalizedPosValues) do
cbPos.Items[i] := sLocalizedPosValues[i]; // localized cbPos.Items[i] := sLocalizedPosValues[i]; // localized
cbPos.Caption := cbPos.Items[cbPos.ItemIndex]; cbPos.Caption := cbPos.Items[cbPos.ItemIndex];
lblNoAutoSaveActiveDesktop.Caption := lisNoAutoSaveActiveDesktop;
dbGeneralSettings.Caption := lisEditorToolbarSettings; // ToDo: Will be removed ... dbGeneralSettings.Caption := lisEditorToolbarSettings; // ToDo: Will be removed ...
cbCoolBarVisible.Caption := lisEditorToolbarVisible; cbCoolBarVisible.Caption := lisEditorToolbarVisible;
@ -122,6 +124,7 @@ begin
Opts := (AOptions as TEnvironmentOptions).Desktop.EditorToolBarOptions; Opts := (AOptions as TEnvironmentOptions).Desktop.EditorToolBarOptions;
cbCoolBarVisible.Checked := Opts.Visible; cbCoolBarVisible.Checked := Opts.Visible;
cbPos.ItemIndex := IndexFromEnglish(Opts.Position); cbPos.ItemIndex := IndexFromEnglish(Opts.Position);
lblNoAutoSaveActiveDesktop.Visible := not EnvironmentOptions.AutoSaveActiveDesktop;
// Disable controls when toolbar is hidden. // Disable controls when toolbar is hidden.
cbPos.Enabled := Opts.Visible; cbPos.Enabled := Opts.Visible;
bConfig.Enabled := Opts.Visible; bConfig.Enabled := Opts.Visible;

View File

@ -17,26 +17,26 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 251 Height = 264
Top = 200 Top = 187
Width = 520 Width = 520
Align = alClient Align = alClient
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 251 ClientHeight = 264
ClientWidth = 520 ClientWidth = 520
Constraints.MinHeight = 115 Constraints.MinHeight = 115
TabOrder = 1 TabOrder = 1
object pnButtons: TPanel object pnButtons: TPanel
AnchorSideLeft.Control = pnBottom
AnchorSideRight.Control = pnBottom AnchorSideRight.Control = pnBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnBottom AnchorSideBottom.Control = lblNoAutoSaveActiveDesktop
AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 35 Height = 35
Top = 216 Top = 210
Width = 520 Width = 520
Align = alBottom Anchors = [akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 35 ClientHeight = 35
@ -48,9 +48,9 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 23
Top = 2 Top = 6
Width = 36 Width = 45
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -64,10 +64,10 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 105 Left = 120
Height = 27 Height = 23
Top = 2 Top = 6
Width = 50 Width = 57
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -81,10 +81,10 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 48 Left = 57
Height = 27 Height = 23
Top = 2 Top = 6
Width = 51 Width = 57
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -98,10 +98,10 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnButtons AnchorSideBottom.Control = pnButtons
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 459 Left = 453
Height = 27 Height = 23
Top = 2 Top = 6
Width = 55 Width = 61
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -112,15 +112,21 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
end end
end end
object sbCoolBar: TScrollBox object sbCoolBar: TScrollBox
AnchorSideLeft.Control = pnBottom
AnchorSideTop.Control = pnBottom
AnchorSideRight.Control = pnBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnButtons
Left = 0 Left = 0
Height = 188 Height = 198
Top = 0 Top = 0
Width = 520 Width = 520
HorzScrollBar.Page = 75 HorzScrollBar.Page = 75
VertScrollBar.Page = 22 VertScrollBar.Page = 25
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Bottom = 12
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 188 ClientHeight = 198
ClientWidth = 520 ClientWidth = 520
Constraints.MinHeight = 75 Constraints.MinHeight = 75
TabOrder = 0 TabOrder = 0
@ -146,22 +152,40 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
OnResize = CoolbarResize OnResize = CoolbarResize
end end
end end
object lblNoAutoSaveActiveDesktop: TLabel
AnchorSideLeft.Control = pnBottom
AnchorSideRight.Control = pnBottom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnBottom
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 13
Top = 245
Width = 520
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Bottom = 6
Caption = 'lblNoAutoSaveActiveDesktop'
Font.Color = clInactiveCaption
ParentColor = False
ParentFont = False
WordWrap = True
end
end end
object pnTop: TPanel object pnTop: TPanel
Left = 0 Left = 0
Height = 179 Height = 168
Top = 0 Top = 0
Width = 520 Width = 520
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 179 ClientHeight = 168
ClientWidth = 520 ClientWidth = 520
Constraints.MinWidth = 350 Constraints.MinWidth = 350
TabOrder = 0 TabOrder = 0
object dbGeneralSettings: TDividerBevel object dbGeneralSettings: TDividerBevel
Left = 0 Left = 0
Height = 15 Height = 13
Top = 5 Top = 5
Width = 520 Width = 520
Caption = 'General Coolbars Settings' Caption = 'General Coolbars Settings'
@ -178,25 +202,25 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnTopCenterLabel AnchorSideRight.Control = pnTopCenterLabel
Left = 0 Left = 0
Height = 80 Height = 78
Top = 60 Top = 55
Width = 257 Width = 257
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'Grab Style' Caption = 'Grab Style'
ClientHeight = 64 ClientHeight = 60
ClientWidth = 255 ClientWidth = 253
TabOrder = 1 TabOrder = 1
object lbGrabWidth: TLabel object lbGrabWidth: TLabel
AnchorSideTop.Control = spGrabWidth AnchorSideTop.Control = spGrabWidth
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = spGrabWidth AnchorSideRight.Control = spGrabWidth
Left = 94 Left = 107
Height = 15 Height = 13
Top = 40 Top = 37
Width = 73 Width = 58
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Grab Width:' Caption = 'Grab Width:'
@ -207,9 +231,9 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbGrabStyle AnchorSideRight.Control = gbGrabStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 173 Left = 171
Height = 21 Height = 21
Top = 37 Top = 33
Width = 76 Width = 76
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -225,12 +249,12 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideRight.Control = gbGrabStyle AnchorSideRight.Control = gbGrabStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 21
Top = 6 Top = 6
Width = 243 Width = 241
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 13
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'gsSimple' 'gsSimple'
@ -253,10 +277,10 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnTop AnchorSideBottom.Control = pnTop
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 459 Left = 453
Height = 27 Height = 23
Top = 146 Top = 139
Width = 55 Width = 61
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -269,9 +293,9 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideTop.Control = dbGeneralSettings AnchorSideTop.Control = dbGeneralSettings
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 22 Height = 17
Top = 32 Top = 30
Width = 123 Width = 97
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Coolbar is visible' Caption = 'Coolbar is visible'
OnClick = cbCoolBarVisibleClick OnClick = cbCoolBarVisibleClick
@ -286,15 +310,15 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideBottom.Control = gbGrabStyle AnchorSideBottom.Control = gbGrabStyle
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 263 Left = 263
Height = 80 Height = 78
Top = 60 Top = 55
Width = 257 Width = 257
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'Band Border Style' Caption = 'Band Border Style'
ClientHeight = 64 ClientHeight = 60
ClientWidth = 255 ClientWidth = 253
TabOrder = 2 TabOrder = 2
object cbBorderStyle: TComboBox object cbBorderStyle: TComboBox
AnchorSideLeft.Control = gbBorderStyle AnchorSideLeft.Control = gbBorderStyle
@ -302,12 +326,12 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideRight.Control = gbBorderStyle AnchorSideRight.Control = gbBorderStyle
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 21
Top = 6 Top = 6
Width = 243 Width = 241
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 13
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'None' 'None'
@ -324,10 +348,10 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCoolBarVisible AnchorSideTop.Control = cbCoolBarVisible
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 155 Left = 129
Height = 15 Height = 13
Top = 36 Top = 32
Width = 83 Width = 66
Alignment = taRightJustify Alignment = taRightJustify
BorderSpacing.Left = 32 BorderSpacing.Left = 32
Caption = 'Coolbar width' Caption = 'Coolbar width'
@ -338,9 +362,9 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lbCoolBarWidth AnchorSideTop.Control = lbCoolBarWidth
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 244 Left = 201
Height = 21 Height = 21
Top = 33 Top = 28
Width = 64 Width = 64
BorderSpacing.Left = 6 BorderSpacing.Left = 6
MaxValue = 5000 MaxValue = 5000
@ -366,8 +390,8 @@ object IdeCoolbarOptionsFrame: TIdeCoolbarOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 13
Top = 179 Top = 168
Width = 520 Width = 520
Caption = 'Add/Config/Delete Toolbar(s)' Caption = 'Add/Config/Delete Toolbar(s)'
Align = alTop Align = alTop

View File

@ -57,6 +57,7 @@ type
imButtons: TImageList; imButtons: TImageList;
dbAddConfigDelete: TDividerBevel; dbAddConfigDelete: TDividerBevel;
dbGeneralSettings: TDividerBevel; dbGeneralSettings: TDividerBevel;
lblNoAutoSaveActiveDesktop: TLabel;
pnTopCenterLabel: TLabel; pnTopCenterLabel: TLabel;
lbGrabWidth: TLabel; lbGrabWidth: TLabel;
lbCoolBarWidth: TLabel; lbCoolBarWidth: TLabel;
@ -162,6 +163,7 @@ begin
IDEImages.AssignImage(bDelete, 'laz_delete'); IDEImages.AssignImage(bDelete, 'laz_delete');
bDefaultToolbar.Caption := lisCoolbarRestoreDefaults; bDefaultToolbar.Caption := lisCoolbarRestoreDefaults;
IDEImages.AssignImage(bDefaultToolbar, 'restore_defaults'); IDEImages.AssignImage(bDefaultToolbar, 'restore_defaults');
lblNoAutoSaveActiveDesktop.Caption := lisNoAutoSaveActiveDesktop;
end; end;
procedure TIdeCoolbarOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TIdeCoolbarOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
@ -190,6 +192,7 @@ begin
cbBorderStyle.ItemIndex := Opts.BorderStyle; cbBorderStyle.ItemIndex := Opts.BorderStyle;
FTempCoolBar.Coolbar.BandBorderStyle := TBorderStyle(Opts.BorderStyle); FTempCoolBar.Coolbar.BandBorderStyle := TBorderStyle(Opts.BorderStyle);
EnableDisableGeneralButtons; EnableDisableGeneralButtons;
lblNoAutoSaveActiveDesktop.Visible := not EnvironmentOptions.AutoSaveActiveDesktop;
// ToDo: More tests? // ToDo: More tests?
if Opts.ToolBars.Count = 0 then if Opts.ToolBars.Count = 0 then

View File

@ -4840,6 +4840,7 @@ resourcestring
lisEditorToolbarVisible = 'Editor Toolbar is &visible'; lisEditorToolbarVisible = 'Editor Toolbar is &visible';
lisEditorToolbarSettings = 'Editor Toolbar Settings'; lisEditorToolbarSettings = 'Editor Toolbar Settings';
lisPosition = 'Position'; lisPosition = 'Position';
lisNoAutoSaveActiveDesktop = 'You need save current desktop manually for next sessions because option ''Auto save active desktop'' is turned off';
// components palette settings and list form // components palette settings and list form
lisCmpPages = 'Pages'; lisCmpPages = 'Pages';