paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 22:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Option MultiLinePages added

Browse Source 
git-svn-id: trunk@64914 -
This commit is contained in:
michl 2021-04-03 18:40:14 +00:00
parent 4b78f92518
commit cf64cce4f8
18 changed files with 275 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

105
components/anchordocking/anchordocking.pas
View File

@ -512,6 +512,7 @@ type
FHeaderFilled: boolean;
FHeaderHighlightFocused: boolean;
FHideHeaderCaptionFloatingControl: boolean;
FMultiLinePages: boolean;
FPageAreaInPercent: integer;
FScaleOnResize: boolean;
FShowHeader: boolean;
@ -527,6 +528,7 @@ type
procedure SetHeaderHint(AValue: string);
procedure SetHeaderStyle(AValue: THeaderStyleName);
procedure SetHideHeaderCaptionFloatingControl(AValue: boolean);
procedure SetMultiLinePages(AValue: boolean);
procedure SetPageAreaInPercent(AValue: integer);
procedure SetScaleOnResize(AValue: boolean);
procedure SetShowHeader(AValue: boolean);
@ -555,6 +557,7 @@ type
property HeaderFilled: boolean read FHeaderFilled write SetHeaderFilled;
property HeaderHighlightFocused: boolean read FHeaderHighlightFocused write SetHeaderHighlightFocused;
property DockSitesCanBeMinimized: boolean read FDockSitesCanBeMinimized write SetDockSitesCanBeMinimized;
property MultiLinePages: boolean read FMultiLinePages write SetMultiLinePages;
procedure IncreaseChangeStamp; inline;
property ChangeStamp: integer read FChangeStamp;
procedure LoadFromConfig(Config: TConfigStorage); overload;
@ -596,6 +599,7 @@ type
FDockSitesCanBeMinimized: boolean;
FIdleConnected: Boolean;
FManagerClass: TAnchorDockManagerClass;
FMultiLinePages: boolean;
FOnCreateControl: TADCreateControlEvent;
FOnOptionsChanged: TNotifyEvent;
FOnShowOptions: TADShowDockMasterOptionsEvent;
@ -662,6 +666,7 @@ type
procedure SetHeaderFilled(AValue: boolean);
procedure SetHeaderHighlightFocused(AValue: boolean);
procedure SetDockSitesCanBeMinimized(AValue: boolean);
procedure SetMultiLinePages(AValue: boolean);
procedure SetShowMenuItemShowHeader(AValue: boolean);
procedure SetupSite(Site: TWinControl; ANode: TAnchorDockLayoutTreeNode;
@ -794,6 +799,7 @@ type
property SplitterWidth: integer read FSplitterWidth write SetSplitterWidth default 4;
property ScaleOnResize: boolean read FScaleOnResize write SetScaleOnResize default true; // scale children when resizing a site
property AllowDragging: boolean read FAllowDragging write SetAllowDragging default true;
property MultiLinePages: boolean read FMultiLinePages write SetMultiLinePages default false;
property OptionsChangeStamp: int64 read FOptionsChangeStamp;
procedure IncreaseOptionsChangeStamp; inline;
@ -1342,6 +1348,13 @@ begin
IncreaseChangeStamp;
end;
procedure TAnchorDockSettings.SetMultiLinePages(AValue: boolean);
begin
if FMultiLinePages = AValue then Exit;
FMultiLinePages := AValue;
IncreaseChangeStamp;
end;
procedure TAnchorDockSettings.SetPageAreaInPercent(AValue: integer);
begin
if FPageAreaInPercent=AValue then Exit;
@ -1422,6 +1435,7 @@ begin
FHeaderHint := Source.FHeaderHint;
FHeaderStyle := Source.FHeaderStyle;
FHideHeaderCaptionFloatingControl := Source.FHideHeaderCaptionFloatingControl;
FMultiLinePages := Source.FMultiLinePages;
FPageAreaInPercent := Source.FPageAreaInPercent;
FScaleOnResize := Source.FScaleOnResize;
FShowHeader := Source.FShowHeader;
@ -1449,6 +1463,7 @@ begin
HeaderHighlightFocused:=Config.GetValue('HeaderHighlightFocused',False);
HeaderStyle:=Config.GetValue('HeaderStyle','Frame3D');
HideHeaderCaptionFloatingControl:=Config.GetValue('HideHeaderCaptionFloatingControl',true);
MultiLinePages:=Config.GetValue('MultiLinePages',false);
PageAreaInPercent:=Config.GetValue('PageAreaInPercent',40);
ScaleOnResize:=Config.GetValue('ScaleOnResize',true);
ShowHeader:=Config.GetValue('ShowHeader',true);
@ -1472,6 +1487,7 @@ begin
Config.SetDeleteValue(Path+'HeaderHighlightFocused',HeaderHighlightFocused,False);
Config.SetDeleteValue(Path+'HeaderStyle',HeaderStyle,'Frame3D');
Config.SetDeleteValue(Path+'HideHeaderCaptionFloatingControl',HideHeaderCaptionFloatingControl,true);
Config.SetDeleteValue(Path+'MultiLinePages',MultiLinePages,false);
Config.SetDeleteValue(Path+'PageAreaInPercent',PageAreaInPercent,40);
Config.SetDeleteValue(Path+'ScaleOnResize',ScaleOnResize,true);
Config.SetDeleteValue(Path+'ShowHeader',ShowHeader,true);
@ -1494,6 +1510,7 @@ begin
Config.SetDeleteValue('HeaderHighlightFocused',HeaderHighlightFocused,False);
Config.SetDeleteValue('HeaderStyle',HeaderStyle,'Frame3D');
Config.SetDeleteValue('HideHeaderCaptionFloatingControl',HideHeaderCaptionFloatingControl,true);
Config.SetDeleteValue('MultiLinePages',MultiLinePages,false);
Config.SetDeleteValue('PageAreaInPercent',PageAreaInPercent,40);
Config.SetDeleteValue('ScaleOnResize',ScaleOnResize,true);
Config.SetDeleteValue('ShowHeader',ShowHeader,true);
@ -1517,6 +1534,7 @@ begin
and (HeaderHint=Settings.HeaderHint)
and (HeaderStyle=Settings.HeaderStyle)
and (HideHeaderCaptionFloatingControl=Settings.HideHeaderCaptionFloatingControl)
and (MultiLinePages=Settings.MultiLinePages)
and (PageAreaInPercent=Settings.PageAreaInPercent)
and (ScaleOnResize=Settings.ScaleOnResize)
and (ShowHeader=Settings.ShowHeader)
@ -1540,6 +1558,7 @@ begin
HeaderHighlightFocused:=Config.GetValue(Path+'HeaderHighlightFocused',False);
HeaderStyle:=Config.GetValue(Path+'HeaderStyle','Frame3D');
HideHeaderCaptionFloatingControl:=Config.GetValue(Path+'HideHeaderCaptionFloatingControl',true);
MultiLinePages:=Config.GetValue(Path+'MultiLinePages',false);
PageAreaInPercent:=Config.GetValue(Path+'PageAreaInPercent',40);
ScaleOnResize:=Config.GetValue(Path+'ScaleOnResize',true);
ShowHeader:=Config.GetValue(Path+'ShowHeader',true);
@ -2614,6 +2633,13 @@ begin
OptionsChanged;
end;
procedure TAnchorDockMaster.SetScaleOnResize(AValue: boolean);
begin
if FScaleOnResize=AValue then Exit;
FScaleOnResize:=AValue;
OptionsChanged;
end;
procedure TAnchorDockMaster.SetHeaderFlatten(AValue: boolean);
begin
if FHeaderFlatten=AValue then Exit;
@ -2647,10 +2673,25 @@ begin
EnableAllAutoSizing;
OptionsChanged;
end;
procedure TAnchorDockMaster.SetScaleOnResize(AValue: boolean);
procedure TAnchorDockMaster.SetMultiLinePages(AValue: boolean);
var
Site: TAnchorDockHostSite;
i: Integer;
begin
if FScaleOnResize=AValue then Exit;
FScaleOnResize:=AValue;
if FMultiLinePages=AValue then Exit;
FMultiLinePages:=AValue;
for i:=0 to ComponentCount-1 do
begin
Site:=TAnchorDockHostSite(Components[i]);
if not (Site is TAnchorDockHostSite) then continue;
if Assigned(Site.Pages) then
begin
DisableControlAutoSizing(Site);
Site.Pages.MultiLine:=AValue;
end;
end;
EnableAllAutoSizing;
OptionsChanged;
end;
@ -2846,6 +2887,7 @@ begin
FHeaderAlignTop:=80;
HeaderAlignLeft:=120;
FHeaderHint:='';
FMultiLinePages:=false;
FShowHeader:=true;
FShowHeaderCaption:=true;
FHideHeaderCaptionFloatingControl:=true;
@ -3532,44 +3574,46 @@ end;
procedure TAnchorDockMaster.LoadSettings(Settings: TAnchorDockSettings);
begin
DragTreshold := Settings.DragTreshold;
AllowDragging := Settings.AllowDragging;
DockOutsideMargin := Settings.DockOutsideMargin;
DockParentMargin := Settings.DockParentMargin;
DockSitesCanBeMinimized := Settings.DockSitesCanBeMinimized;
DragTreshold := Settings.DragTreshold;
PageAreaInPercent := Settings.PageAreaInPercent;
HeaderAlignTop := Settings.HeaderAlignTop;
HeaderAlignLeft := Settings.HeaderAlignLeft;
SplitterWidth := Settings.SplitterWidth;
HeaderAlignTop := Settings.HeaderAlignTop;
HeaderFilled := Settings.HeaderFilled;
HeaderFlatten := Settings.HeaderFlatten;
HeaderHighlightFocused := Settings.HeaderHighlightFocused;
HeaderStyle := Settings.HeaderStyle;
HideHeaderCaptionFloatingControl := Settings.HideHeaderCaptionFloatingControl;
MultiLinePages := Settings.MultiLinePages;
ScaleOnResize := Settings.ScaleOnResize;
ShowHeader := Settings.ShowHeader;
ShowHeaderCaption := Settings.ShowHeaderCaption;
HideHeaderCaptionFloatingControl := Settings.HideHeaderCaptionFloatingControl;
AllowDragging := Settings.AllowDragging;
HeaderStyle := Settings.HeaderStyle;
HeaderFlatten := Settings.HeaderFlatten;
HeaderFilled := Settings.HeaderFilled;
HeaderHighlightFocused := Settings.HeaderHighlightFocused;
DockSitesCanBeMinimized := Settings.DockSitesCanBeMinimized;
SplitterWidth := Settings.SplitterWidth;
end;
procedure TAnchorDockMaster.SaveSettings(Settings: TAnchorDockSettings);
begin
Settings.DragTreshold:=DragTreshold;
Settings.DockOutsideMargin:=DockOutsideMargin;
Settings.DockParentMargin:=DockParentMargin;
Settings.PageAreaInPercent:=PageAreaInPercent;
Settings.HeaderAlignTop:=HeaderAlignTop;
Settings.HeaderAlignLeft:=HeaderAlignLeft;
Settings.SplitterWidth:=SplitterWidth;
Settings.ScaleOnResize:=ScaleOnResize;
Settings.ShowHeader:=ShowHeader;
Settings.ShowHeaderCaption:=ShowHeaderCaption;
Settings.HideHeaderCaptionFloatingControl:=HideHeaderCaptionFloatingControl;
Settings.AllowDragging:=AllowDragging;
Settings.HeaderStyle:=HeaderStyle;
Settings.HeaderFlatten:=HeaderFlatten;
Settings.HeaderFilled:=HeaderFilled;
Settings.HeaderHighlightFocused:=HeaderHighlightFocused;
Settings.DockSitesCanBeMinimized:=DockSitesCanBeMinimized;
Settings.AllowDragging := AllowDragging;
Settings.DockOutsideMargin := DockOutsideMargin;
Settings.DockParentMargin := DockParentMargin;
Settings.DockSitesCanBeMinimized := DockSitesCanBeMinimized;
Settings.DragTreshold := DragTreshold;
Settings.PageAreaInPercent := PageAreaInPercent;
Settings.HeaderAlignLeft := HeaderAlignLeft;
Settings.HeaderAlignTop := HeaderAlignTop;
Settings.HeaderFilled := HeaderFilled;
Settings.HeaderFlatten := HeaderFlatten;
Settings.HeaderHighlightFocused := HeaderHighlightFocused;
Settings.HeaderStyle := HeaderStyle;
Settings.HideHeaderCaptionFloatingControl := HideHeaderCaptionFloatingControl;
Settings.MultiLinePages := MultiLinePages;
Settings.ScaleOnResize := ScaleOnResize;
Settings.ShowHeader := ShowHeader;
Settings.ShowHeaderCaption := ShowHeaderCaption;
Settings.SplitterWidth := SplitterWidth;
end;
function TAnchorDockMaster.SettingsAreEqual(Settings: TAnchorDockSettings
@ -4428,6 +4472,7 @@ begin
FPages.FreeNotification(Self);
FPages.Parent:=Self;
FPages.Align:=alClient;
FPages.MultiLine:=DockMaster.MultiLinePages;
end;
procedure TAnchorDockHostSite.FreePages;

133
components/anchordocking/anchordockoptionsdlg.lfm
View File

@ -14,9 +14,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = DragThresholdSpinEdit
AnchorSideTop.Side = asrCenter
Left = 10
Height = 15
Top = 14
Width = 111
Height = 13
Top = 10
Width = 95
BorderSpacing.Left = 10
BorderSpacing.Top = 10
Caption = 'DragThresholdLabel'
@ -31,7 +31,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 10
Height = 47
Top = 29
Top = 23
Width = 404
Max = 20
OnChange = DragThresholdTrackBarChange
@ -48,8 +48,8 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
Left = 127
Height = 30
Left = 111
Height = 21
Top = 6
Width = 60
BorderSpacing.Left = 6
@ -64,9 +64,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = DragThresholdTrackBar
AnchorSideTop.Side = asrBottom
Left = 10
Height = 15
Top = 86
Width = 103
Height = 13
Top = 80
Width = 87
BorderSpacing.Top = 10
Caption = 'SplitterWidthLabel'
ParentColor = False
@ -80,7 +80,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 10
Height = 47
Top = 101
Top = 93
Width = 404
Min = 1
OnChange = SplitterWidthTrackBarChange
@ -96,9 +96,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = SplitterWidthTrackBar
AnchorSideTop.Side = asrBottom
Left = 10
Height = 23
Top = 152
Width = 159
Height = 17
Top = 144
Width = 137
BorderSpacing.Top = 4
Caption = 'ScaleOnResizeCheckBox'
ParentFont = False
@ -111,9 +111,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = ScaleOnResizeCheckBox
AnchorSideTop.Side = asrBottom
Left = 10
Height = 23
Top = 175
Width = 149
Height = 17
Top = 161
Width = 128
Caption = 'ShowHeaderCheckBox'
OnChange = ShowHeaderCheckBoxChange
ParentFont = False
@ -126,9 +126,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = ShowHeaderCheckBox
AnchorSideTop.Side = asrBottom
Left = 25
Height = 23
Top = 198
Width = 191
Height = 17
Top = 178
Width = 165
BorderSpacing.Left = 15
Caption = 'ShowHeaderCaptionCheckBox'
ParentFont = False
@ -141,9 +141,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = ShowHeaderCaptionCheckBox
AnchorSideTop.Side = asrBottom
Left = 25
Height = 23
Top = 221
Width = 249
Height = 17
Top = 195
Width = 214
Caption = 'HideHeaderCaptionForFloatingCheckBox'
ParentFont = False
ParentShowHint = False
@ -157,14 +157,14 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 122
Height = 30
Top = 290
Width = 292
Left = 110
Height = 21
Top = 246
Width = 304
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 10
ItemHeight = 0
ItemHeight = 13
OnDrawItem = HeaderStyleComboBoxDrawItem
ParentFont = False
Style = csDropDownList
@ -175,9 +175,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HeaderStyleComboBox
AnchorSideTop.Side = asrCenter
Left = 20
Height = 15
Top = 298
Width = 96
Height = 13
Top = 250
Width = 84
BorderSpacing.Left = 10
Caption = 'HeaderStyleLabel'
ParentColor = False
@ -188,9 +188,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HideHeaderCaptionForFloatingCheckBox
AnchorSideTop.Side = asrBottom
Left = 25
Height = 23
Top = 244
Width = 164
Height = 17
Top = 212
Width = 141
Caption = 'FlattenHeadersCheckBox'
ParentFont = False
ParentShowHint = False
@ -202,9 +202,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = FlattenHeadersCheckBox
AnchorSideTop.Side = asrBottom
Left = 25
Height = 23
Top = 267
Width = 154
Height = 17
Top = 229
Width = 131
Caption = 'FilledHeadersCheckBox'
ParentFont = False
ParentShowHint = False
@ -216,9 +216,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HeaderStyleComboBox
AnchorSideTop.Side = asrBottom
Left = 25
Height = 23
Top = 320
Width = 175
Height = 17
Top = 267
Width = 148
Caption = 'HighlightFocusedCheckBox'
ParentFont = False
ParentShowHint = False
@ -230,9 +230,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = SplitterWidthLabel
AnchorSideTop.Side = asrCenter
Left = 119
Height = 30
Top = 78
Left = 103
Height = 21
Top = 76
Width = 60
BorderSpacing.Left = 6
MaxValue = 10
@ -247,9 +247,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = DockSitesCanBeMinimized
AnchorSideTop.Side = asrBottom
Left = 10
Height = 15
Top = 376
Width = 117
Height = 13
Top = 311
Width = 101
BorderSpacing.Top = 10
Caption = 'HeaderAlignTopLabel'
ParentColor = False
@ -263,7 +263,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 10
Height = 47
Top = 391
Top = 324
Width = 404
Frequency = 10
Max = 150
@ -282,9 +282,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = HeaderAlignTopLabel
AnchorSideTop.Side = asrCenter
Left = 133
Height = 30
Top = 368
Left = 117
Height = 21
Top = 307
Width = 60
BorderSpacing.Left = 6
MaxValue = 150
@ -297,9 +297,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HeaderAlignTopTrackBar
AnchorSideTop.Side = asrBottom
Left = 10
Height = 15
Top = 448
Width = 120
Height = 13
Top = 381
Width = 102
BorderSpacing.Top = 10
Caption = 'HeaderAlignLeftLabel'
ParentColor = False
@ -313,7 +313,7 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideRight.Side = asrBottom
Left = 10
Height = 47
Top = 463
Top = 394
Width = 404
Frequency = 10
Max = 200
@ -332,9 +332,9 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = HeaderAlignLeftLabel
AnchorSideTop.Side = asrCenter
Left = 136
Height = 30
Top = 440
Left = 118
Height = 21
Top = 377
Width = 60
BorderSpacing.Left = 6
MaxValue = 200
@ -347,13 +347,28 @@ object AnchorDockOptionsFrame: TAnchorDockOptionsFrame
AnchorSideTop.Control = HighlightFocusedCheckBox
AnchorSideTop.Side = asrBottom
Left = 25
Height = 23
Top = 343
Width = 170
Height = 17
Top = 284
Width = 142
Caption = 'DockSitesCanBeMinimized'
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 16
end
object MultiLinePagesCheckBox: TCheckBox
AnchorSideLeft.Control = ShowHeaderCheckBox
AnchorSideTop.Control = HeaderAlignLeftTrackBar
AnchorSideTop.Side = asrBottom
Left = 10
Height = 17
Top = 445
Width = 137
BorderSpacing.Top = 4
Caption = 'MultiLinePagesCheckBox'
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 17
end
end

18
components/anchordocking/anchordockoptionsdlg.pas
View File

@ -39,6 +39,7 @@ type
HighlightFocusedCheckBox: TCheckBox;
DockSitesCanBeMinimized: TCheckBox;
ScaleOnResizeCheckBox: TCheckBox;
MultiLinePagesCheckBox: TCheckBox;
ShowHeaderCaptionCheckBox: TCheckBox;
ShowHeaderCheckBox: TCheckBox;
SplitterWidthLabel: TLabel;
@ -347,15 +348,16 @@ begin
TheSettings.HeaderAlignLeft:=HeaderAlignLeftTrackBar.Position;
TheSettings.SplitterWidth:=SplitterWidthTrackBar.Position;
end;
TheSettings.DockSitesCanBeMinimized:=DockSitesCanBeMinimized.Checked;
TheSettings.HeaderFilled:=FilledHeadersCheckBox.Checked;
TheSettings.HeaderFlatten:=FlattenHeadersCheckBox.Checked;
TheSettings.HeaderHighlightFocused:=HighlightFocusedCheckBox.Checked;
TheSettings.HeaderStyle:=DockMaster.HeaderStyleName2ADHeaderStyle.Data[HeaderStyleComboBox.ItemIndex].StyleDesc.Name;
TheSettings.HideHeaderCaptionFloatingControl:=HideHeaderCaptionForFloatingCheckBox.Checked;
TheSettings.MultiLinePages:=MultiLinePagesCheckBox.Checked;
TheSettings.ScaleOnResize:=ScaleOnResizeCheckBox.Checked;
TheSettings.ShowHeader:=ShowHeaderCheckBox.Checked;
TheSettings.ShowHeaderCaption:=ShowHeaderCaptionCheckBox.Checked;
TheSettings.HideHeaderCaptionFloatingControl:=HideHeaderCaptionForFloatingCheckBox.Checked;
TheSettings.HeaderFlatten:=FlattenHeadersCheckBox.Checked;
TheSettings.HeaderFilled:=FilledHeadersCheckBox.Checked;
TheSettings.HeaderStyle:=DockMaster.HeaderStyleName2ADHeaderStyle.Data[HeaderStyleComboBox.ItemIndex].StyleDesc.Name;
TheSettings.HeaderHighlightFocused:=HighlightFocusedCheckBox.Checked;
TheSettings.DockSitesCanBeMinimized:=DockSitesCanBeMinimized.Checked;
end;
procedure TAnchorDockOptionsFrame.LoadFromSettings(
@ -436,6 +438,10 @@ begin
DockSitesCanBeMinimized.Checked:=TheSettings.DockSitesCanBeMinimized;
DockSitesCanBeMinimized.Caption:=adrsAllowDockSitesToBeMinimized;
DockSitesCanBeMinimized.Hint:=adrsAllowDockSitesToBeMinimized;
MultiLinePagesCheckBox.Caption:=adrsMultiLinePages;
MultiLinePagesCheckBox.Hint:=adrsMultiLinePagesHint;
MultiLinePagesCheckBox.Checked:=TheSettings.MultiLinePages;
end;
end.

2
components/anchordocking/anchordockstr.pas
View File

@ -84,6 +84,8 @@ resourcestring
adrsHighlightFocused = 'Highlight focused';
adrsHighlightFocusedHint = 'Highlight header of focused docked control';
adrsAllowDockSitesToBeMinimized = 'Allow dock sites to be minimized';
adrsMultiLinePages = 'Multi Line Tabs';
adrsMultiLinePagesHint = 'Tabs of pages can be shown in multiple lines';
implementation

8
components/anchordocking/languages/anchordockstr.cs.po
View File

@ -202,6 +202,14 @@ msgstr "Posunout vpravo"
msgid "Move page rightmost"
msgstr "Posunout nejvíce vpravo"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Skrýt popisky samostatných položek"

8
components/anchordocking/languages/anchordockstr.de.po
View File

@ -197,6 +197,14 @@ msgstr "Seite nach rechts"
msgid "Move page rightmost"
msgstr "Seite nach ganz rechts"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr ""

8
components/anchordocking/languages/anchordockstr.es.po
View File

@ -197,6 +197,14 @@ msgstr "Mover página a la derecha"
msgid "Move page rightmost"
msgstr "Mover página a la derecha del todo"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "No titulos para sitios flotantes"

8
components/anchordocking/languages/anchordockstr.fr.po
View File

@ -199,6 +199,14 @@ msgstr "Déplacer la page vers la droite"
msgid "Move page rightmost"
msgstr "Déplacer la page tout à droite"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Pas d'étiquettes pour les zones d'amarrage"

8
components/anchordocking/languages/anchordockstr.hu.po
View File

@ -199,6 +199,14 @@ msgstr "Lap mozgatása eggyel jobbra"
msgid "Move page rightmost"
msgstr "Lap mozgatása a jobb szélre"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Nincs cím a lebegő területek esetén"

8
components/anchordocking/languages/anchordockstr.it.po
View File

@ -201,6 +201,14 @@ msgstr "Sposta la pagina a destra"
msgid "Move page rightmost"
msgstr "Sposta la pagina tutta a destra"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Nessun titolo per i siti flottanti"

8
components/anchordocking/languages/anchordockstr.lt.po
View File

@ -201,6 +201,14 @@ msgstr "Lapą perkelti dešinėn"
msgid "Move page rightmost"
msgstr "Lapą perkelti į dešiniausią"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Nerodyti antraščių plaukiojančioms vietoms pritvirtinimui"

8
components/anchordocking/languages/anchordockstr.pl.po
View File

@ -200,6 +200,14 @@ msgstr ""
msgid "Move page rightmost"
msgstr ""
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr ""

8
components/anchordocking/languages/anchordockstr.pot
View File

@ -189,6 +189,14 @@ msgstr ""
msgid "Move page rightmost"
msgstr ""
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr ""

8
components/anchordocking/languages/anchordockstr.pt_BR.po
View File

@ -199,6 +199,14 @@ msgstr "Mover página à direita"
msgid "Move page rightmost"
msgstr "Mover página à direita máxima"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Sem títulos para locais flutuantes"

8
components/anchordocking/languages/anchordockstr.ru.po
View File

@ -199,6 +199,14 @@ msgstr "Переместить вкладку вправо"
msgid "Move page rightmost"
msgstr "Поместить вкладку справа"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Не показывать названия непристыкованных объектов"

8
components/anchordocking/languages/anchordockstr.tr.po
View File

@ -202,6 +202,14 @@ msgstr "Sayfayı sağa taşı"
msgid "Move page rightmost"
msgstr "Sayfayı en sağa taşı"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Kayan siteler için başlık yok"

8
components/anchordocking/languages/anchordockstr.uk.po
View File

@ -201,6 +201,14 @@ msgstr "Пересунути сторінку вправо"
msgid "Move page rightmost"
msgstr "Пересунути сторінку до правого краю"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr "Не показувати назви плаваючих областей"

8
components/anchordocking/languages/anchordockstr.zh_CN.po
View File

@ -200,6 +200,14 @@ msgstr "移动到页面右侧"
msgid "Move page rightmost"
msgstr "移动到页面最右边"
#: anchordockstr.adrsmultilinepages
msgid "Multi Line Tabs"
msgstr ""
#: anchordockstr.adrsmultilinepageshint
msgid "Tabs of pages can be shown in multiple lines"
msgstr ""
#: anchordockstr.adrsnocaptionsforfloatingsites
msgid "No captions for floating sites"
msgstr ""