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

IDE: Improve layout in Window options frame.

Browse Source 
git-svn-id: trunk@46737 -
This commit is contained in:
juha 2014-11-01 15:26:36 +00:00
parent 2d80259c2a
commit 1425ccc3b6
3 changed files with 181 additions and 170 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

322
ide/frames/window_options.lfm
View File

@ -1,22 +1,22 @@
object WindowOptionsFrame: TWindowOptionsFrame object WindowOptionsFrame: TWindowOptionsFrame
Left = 0 Left = 0
Height = 482 Height = 545
Top = 0 Top = 0
Width = 566 Width = 562
ClientHeight = 482 ClientHeight = 545
ClientWidth = 566 ClientWidth = 562
TabOrder = 0 TabOrder = 0
Visible = False DesignLeft = 407
DesignLeft = 415 DesignTop = 219
DesignTop = 367
object SingleTaskBarButtonCheckBox: TCheckBox object SingleTaskBarButtonCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = lblShowingWindows
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 24
Top = 0 Top = 20
Width = 181 Width = 224
Caption = 'SingleTaskBarButtonCheckBox' Caption = 'SingleTaskBarButtonCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -28,80 +28,40 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 24
Top = 17 Top = 44
Width = 151 Width = 187
Caption = 'HideIDEOnRunCheckBox' Caption = 'HideIDEOnRunCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object WindowPositionsGroupBox: TGroupBox object WindowPositionsPanel: TPanel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = NameForDesignedFormList AnchorSideTop.Control = lblWindowPosition
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 377 Height = 354
Top = 105 Top = 191
Width = 566 Width = 562
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 3 BorderSpacing.Top = 1
Caption = 'WindowPositionsGroupBox' Caption = 'WindowPositionsPanel'
ClientHeight = 359 ClientHeight = 354
ClientWidth = 562 ClientWidth = 562
TabOrder = 2 TabOrder = 2
object Bevel1: TBevel
AnchorSideLeft.Control = WindowPositionsGroupBox
AnchorSideTop.Control = lblWindowCaption
AnchorSideTop.Side = asrCenter
Left = 6
Height = 3
Top = 132
Width = 50
BorderSpacing.Left = 6
end
object Bevel2: TBevel
AnchorSideLeft.Control = lblWindowCaption
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblWindowCaption
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = WindowPositionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 177
Height = 3
Top = 132
Width = 379
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
end
object lblWindowCaption: TLabel
AnchorSideLeft.Control = WindowPositionsGroupBox
AnchorSideTop.Control = WindowPositionsListBox
AnchorSideTop.Side = asrBottom
Left = 70
Height = 15
Top = 126
Width = 101
BorderSpacing.Left = 70
BorderSpacing.Top = 6
Caption = 'lblWindowCaption'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object LeftLabel: TLabel object LeftLabel: TLabel
AnchorSideTop.Control = LeftEdit AnchorSideTop.Control = LeftEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LeftEdit AnchorSideRight.Control = LeftEdit
Left = 295 Left = 281
Height = 15 Height = 20
Top = 230 Top = 238
Width = 48 Width = 61
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'LeftLabel' Caption = 'LeftLabel'
@ -111,10 +71,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = TopEdit AnchorSideTop.Control = TopEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = TopEdit AnchorSideRight.Control = TopEdit
Left = 294 Left = 280
Height = 15 Height = 20
Top = 259 Top = 272
Width = 49 Width = 62
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'TopLabel' Caption = 'TopLabel'
@ -124,10 +84,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = WidthEdit AnchorSideTop.Control = WidthEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = WidthEdit AnchorSideRight.Control = WidthEdit
Left = 418 Left = 401
Height = 15 Height = 20
Top = 230 Top = 238
Width = 60 Width = 76
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'WidthLabel' Caption = 'WidthLabel'
@ -137,42 +97,43 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = HeightEdit AnchorSideTop.Control = HeightEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = HeightEdit AnchorSideRight.Control = HeightEdit
Left = 414 Left = 396
Height = 15 Height = 20
Top = 259 Top = 272
Width = 64 Width = 81
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'HeightLabel' Caption = 'HeightLabel'
ParentColor = False ParentColor = False
end end
object WindowPositionsListBox: TListBox object WindowPositionsListBox: TListBox
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = WindowPositionsGroupBox AnchorSideTop.Control = WindowPositionsPanel
AnchorSideRight.Control = WindowPositionsGroupBox AnchorSideRight.Control = WindowPositionsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 7
Height = 120 Height = 120
Top = 0 Top = 3
Width = 550 Width = 548
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = WindowPositionsListBoxSelectionChange OnSelectionChange = WindowPositionsListBoxSelectionChange
ParentShowHint = False ParentShowHint = False
ScrollWidth = 548 ScrollWidth = 300
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object LetWindowManagerDecideRadioButton: TRadioButton object LetWindowManagerDecideRadioButton: TRadioButton
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = RestoreWindowGeometryRadioButton AnchorSideTop.Control = RestoreWindowGeometryRadioButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 7
Height = 17 Height = 24
Top = 246 Top = 261
Width = 229 Width = 288
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'LetWindowManagerDecideRadioButton' Caption = 'LetWindowManagerDecideRadioButton'
@ -182,13 +143,13 @@ object WindowOptionsFrame: TWindowOptionsFrame
TabOrder = 1 TabOrder = 1
end end
object FixedDefaultRadioButton: TRadioButton object FixedDefaultRadioButton: TRadioButton
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = LetWindowManagerDecideRadioButton AnchorSideTop.Control = LetWindowManagerDecideRadioButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 7
Height = 17 Height = 24
Top = 266 Top = 288
Width = 151 Width = 191
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'FixedDefaultRadioButton' Caption = 'FixedDefaultRadioButton'
@ -198,13 +159,13 @@ object WindowOptionsFrame: TWindowOptionsFrame
TabOrder = 2 TabOrder = 2
end end
object RestoreWindowGeometryRadioButton: TRadioButton object RestoreWindowGeometryRadioButton: TRadioButton
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = SplitterPanel AnchorSideTop.Control = SplitterPanel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 7
Height = 17 Height = 24
Top = 226 Top = 234
Width = 221 Width = 277
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'RestoreWindowGeometryRadioButton' Caption = 'RestoreWindowGeometryRadioButton'
@ -216,13 +177,13 @@ object WindowOptionsFrame: TWindowOptionsFrame
TabStop = True TabStop = True
end end
object CustomGeometryRadioButton: TRadioButton object CustomGeometryRadioButton: TRadioButton
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = FixedDefaultRadioButton AnchorSideTop.Control = FixedDefaultRadioButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 7
Height = 17 Height = 24
Top = 286 Top = 315
Width = 180 Width = 222
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
Caption = 'CustomGeometryRadioButton' Caption = 'CustomGeometryRadioButton'
@ -234,9 +195,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
object LeftEdit: TSpinEdit object LeftEdit: TSpinEdit
AnchorSideTop.Control = RestoreWindowGeometryRadioButton AnchorSideTop.Control = RestoreWindowGeometryRadioButton
AnchorSideRight.Control = WidthEdit AnchorSideRight.Control = WidthEdit
Left = 346 Left = 345
Height = 23 Height = 28
Top = 226 Top = 234
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 60 BorderSpacing.Right = 60
@ -250,9 +211,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = LeftEdit AnchorSideTop.Control = LeftEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = HeightEdit AnchorSideRight.Control = HeightEdit
Left = 346 Left = 345
Height = 23 Height = 28
Top = 255 Top = 268
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -265,11 +226,11 @@ object WindowOptionsFrame: TWindowOptionsFrame
end end
object WidthEdit: TSpinEdit object WidthEdit: TSpinEdit
AnchorSideTop.Control = LeftEdit AnchorSideTop.Control = LeftEdit
AnchorSideRight.Control = WindowPositionsGroupBox AnchorSideRight.Control = WindowPositionsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 481 Left = 480
Height = 23 Height = 28
Top = 226 Top = 234
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -281,11 +242,11 @@ object WindowOptionsFrame: TWindowOptionsFrame
object HeightEdit: TSpinEdit object HeightEdit: TSpinEdit
AnchorSideTop.Control = WidthEdit AnchorSideTop.Control = WidthEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = WindowPositionsGroupBox AnchorSideRight.Control = WindowPositionsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 481 Left = 480
Height = 23 Height = 28
Top = 255 Top = 268
Width = 75 Width = 75
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -298,10 +259,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
object GetWindowPositionButton: TButton object GetWindowPositionButton: TButton
AnchorSideTop.Control = ApplyButton AnchorSideTop.Control = ApplyButton
AnchorSideRight.Control = ApplyButton AnchorSideRight.Control = ApplyButton
Left = 290 Left = 239
Height = 25 Height = 30
Top = 290 Top = 308
Width = 167 Width = 201
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -313,12 +274,12 @@ object WindowOptionsFrame: TWindowOptionsFrame
object ApplyButton: TButton object ApplyButton: TButton
AnchorSideTop.Control = HeightEdit AnchorSideTop.Control = HeightEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = WindowPositionsGroupBox AnchorSideRight.Control = WindowPositionsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 463 Left = 446
Height = 25 Height = 30
Top = 290 Top = 308
Width = 93 Width = 109
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 12 BorderSpacing.Top = 12
@ -329,17 +290,17 @@ object WindowOptionsFrame: TWindowOptionsFrame
TabOrder = 10 TabOrder = 10
end end
object SplitterPanel: TPanel object SplitterPanel: TPanel
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = lblWindowCaption AnchorSideTop.Control = lblWindowCaption
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = WindowPositionsGroupBox AnchorSideRight.Control = WindowPositionsPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = WindowPositionsGroupBox AnchorSideBottom.Control = WindowPositionsPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 4 Left = 5
Height = 78 Height = 78
Top = 144 Top = 152
Width = 558 Width = 556
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -348,7 +309,7 @@ object WindowOptionsFrame: TWindowOptionsFrame
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = ' ' Caption = ' '
ClientHeight = 74 ClientHeight = 74
ClientWidth = 554 ClientWidth = 552
TabOrder = 11 TabOrder = 11
Visible = False Visible = False
object SplitterList: TListBox object SplitterList: TListBox
@ -372,10 +333,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = SplitEdit AnchorSideTop.Control = SplitEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = SplitEdit AnchorSideRight.Control = SplitEdit
Left = 424 Left = 407
Height = 15 Height = 20
Top = 45 Top = 40
Width = 51 Width = 66
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'SplitLabel' Caption = 'SplitLabel'
@ -386,9 +347,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = SplitterPanel AnchorSideBottom.Control = SplitterPanel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 478 Left = 476
Height = 23 Height = 28
Top = 41 Top = 36
Width = 75 Width = 75
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Bottom = 9 BorderSpacing.Bottom = 9
@ -404,27 +365,44 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideRight.Control = SplitterPanel AnchorSideRight.Control = SplitterPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 282 Left = 282
Height = 23 Height = 28
Top = 1 Top = 1
Width = 271 Width = 269
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 15 ItemHeight = 20
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
Style = csDropDownList Style = csDropDownList
TabOrder = 2 TabOrder = 2
end end
end end
object lblWindowCaption: TDividerBevel
AnchorSideLeft.Control = WindowPositionsPanel
AnchorSideTop.Control = WindowPositionsListBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = WindowPositionsPanel
AnchorSideRight.Side = asrBottom
Left = 1
Height = 20
Top = 129
Width = 560
Caption = 'lblWindowCaption'
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
end
end end
object TitleStartsWithProjectCheckBox: TCheckBox object TitleStartsWithProjectCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = HideIDEOnRunCheckBox AnchorSideTop.Control = HideIDEOnRunCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 24
Top = 34 Top = 68
Width = 186 Width = 231
Caption = 'TitleStartsWithProjectCheckBox' Caption = 'TitleStartsWithProjectCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -435,9 +413,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = TitleStartsWithProjectCheckBox AnchorSideTop.Control = TitleStartsWithProjectCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 24
Top = 51 Top = 92
Width = 173 Width = 216
Caption = 'ProjectDirInIdeTitleCheckBox' Caption = 'ProjectDirInIdeTitleCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -448,9 +426,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = ProjectDirInIdeTitleCheckBox AnchorSideTop.Control = ProjectDirInIdeTitleCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 24
Top = 68 Top = 116
Width = 145 Width = 180
Caption = 'TitleIncludesBuildMode' Caption = 'TitleIncludesBuildMode'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
@ -461,12 +439,42 @@ object WindowOptionsFrame: TWindowOptionsFrame
AnchorSideTop.Control = TitleIncludesBuildMode AnchorSideTop.Control = TitleIncludesBuildMode
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 17 Height = 24
Top = 85 Top = 140
Width = 164 Width = 204
Caption = 'NameForDesignedFormList' Caption = 'NameForDesignedFormList'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 6 TabOrder = 6
end end
object lblShowingWindows: TDividerBevel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 20
Top = 0
Width = 562
Caption = 'lblShowingWindows'
Anchors = [akTop, akLeft, akRight]
Font.Style = [fsBold]
ParentFont = False
end
object lblWindowPosition: TDividerBevel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = NameForDesignedFormList
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 0
Height = 20
Top = 170
Width = 562
Caption = 'lblWindowPosition'
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Font.Style = [fsBold]
ParentFont = False
end
end end

28
ide/frames/window_options.pas
View File

@ -26,18 +26,18 @@ interface
uses uses
Classes, SysUtils, types, FileUtil, Forms, Controls, StdCtrls, ExtCtrls, Classes, SysUtils, types, FileUtil, Forms, Controls, StdCtrls, ExtCtrls,
LCLProc, Spin, LCLProc, Spin, ObjInspStrConsts, ObjectInspector, IDEOptionsIntf,
ObjInspStrConsts, ObjectInspector, IDEOptionsIntf, IDEWindowIntf, IDEWindowIntf, DividerBevel, EnvironmentOpts, IDEOptionDefs, InterfaceBase,
EnvironmentOpts, IDEOptionDefs, LazarusIDEStrConsts;
InterfaceBase, LazarusIDEStrConsts;
type type
{ TWindowOptionsFrame } { TWindowOptionsFrame }
TWindowOptionsFrame = class(TAbstractIDEOptionsEditor) TWindowOptionsFrame = class(TAbstractIDEOptionsEditor)
ApplyButton: TButton; ApplyButton: TButton;
Bevel1: TBevel; lblWindowPosition: TDividerBevel;
Bevel2: TBevel; lblShowingWindows: TDividerBevel;
lblWindowCaption: TDividerBevel;
NameForDesignedFormList: TCheckBox; NameForDesignedFormList: TCheckBox;
TitleIncludesBuildMode: TCheckBox; TitleIncludesBuildMode: TCheckBox;
dropSplitterPlacement: TComboBox; dropSplitterPlacement: TComboBox;
@ -48,7 +48,6 @@ type
HeightLabel: TLabel; HeightLabel: TLabel;
HideIDEOnRunCheckBox: TCheckBox; HideIDEOnRunCheckBox: TCheckBox;
SplitLabel: TLabel; SplitLabel: TLabel;
lblWindowCaption: TLabel;
LeftEdit: TSpinEdit; LeftEdit: TSpinEdit;
LeftLabel: TLabel; LeftLabel: TLabel;
SplitterList: TListBox; SplitterList: TListBox;
@ -63,7 +62,7 @@ type
LetWindowManagerDecideRadioButton: TRadioButton; LetWindowManagerDecideRadioButton: TRadioButton;
WidthEdit: TSpinEdit; WidthEdit: TSpinEdit;
WidthLabel: TLabel; WidthLabel: TLabel;
WindowPositionsGroupBox: TGroupBox; WindowPositionsPanel: TPanel;
WindowPositionsListBox: TListBox; WindowPositionsListBox: TListBox;
procedure ApplyButtonClick(Sender: TObject); procedure ApplyButtonClick(Sender: TObject);
procedure CustomGeometryRadioButtonClick(Sender: TObject); procedure CustomGeometryRadioButtonClick(Sender: TObject);
@ -110,6 +109,7 @@ end;
procedure TWindowOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog); procedure TWindowOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin begin
// windows // windows
lblShowingWindows.Caption := dlgShowingWindows;
SingleTaskBarButtonCheckBox.Caption := dlgSingleTaskBarButton; SingleTaskBarButtonCheckBox.Caption := dlgSingleTaskBarButton;
SingleTaskBarButtonCheckBox.Enabled := SingleTaskBarButtonCheckBox.Enabled :=
WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) = LCL_CAPABILITY_YES; WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) = LCL_CAPABILITY_YES;
@ -146,8 +146,10 @@ begin
if FShowSimpleLayout then begin if FShowSimpleLayout then begin
// Window Positions // Window Positions
WindowPositionsGroupBox.Parent:=Self; lblWindowPosition.Parent:=Self;
WindowPositionsGroupBox.Caption := dlgWinPos; lblWindowPosition.Caption := dlgWinPos;
WindowPositionsPanel.Parent:=Self;
WindowPositionsPanel.Caption:='';
WindowPositionsListBox.Items.BeginUpdate; WindowPositionsListBox.Items.BeginUpdate;
WindowPositionsListBox.Items.Clear; WindowPositionsListBox.Items.Clear;
// show all registered windows // show all registered windows
@ -199,7 +201,8 @@ begin
SetWindowPositionsItem(0); SetWindowPositionsItem(0);
end else begin end else begin
WindowPositionsGroupBox.Parent:=nil; lblWindowPosition.Parent:=nil;
WindowPositionsPanel.Parent:=nil;
end; end;
end; end;
@ -418,8 +421,7 @@ begin
SaveCurrentSplitterLayout; SaveCurrentSplitterLayout;
end; end;
function TWindowOptionsFrame.GetLayoutCaption(ALayout: TSimpleWindowLayout function TWindowOptionsFrame.GetLayoutCaption(ALayout: TSimpleWindowLayout): String;
): String;
function Fits(FormName, aCaption: string): boolean; function Fits(FormName, aCaption: string): boolean;
var var

1
ide/lazarusidestrconsts.pas
View File

@ -1235,6 +1235,7 @@ resourcestring
lisLoadedSuccessfully = 'Loaded successfully'; lisLoadedSuccessfully = 'Loaded successfully';
// Window options // Window options
dlgShowingWindows = 'Showing Windows';
dlgSingleTaskBarButton = 'Show single button in TaskBar'; dlgSingleTaskBarButton = 'Show single button in TaskBar';
dlgHideIDEOnRun = 'Hide IDE windows on run'; dlgHideIDEOnRun = 'Hide IDE windows on run';
dlgHideIDEOnRunHint = 'Do not show the IDE at all while program is running.'; dlgHideIDEOnRunHint = 'Do not show the IDE at all while program is running.';