mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 14:09:31 +02:00
IDE: messages options: moved hide messages icons to messages options
git-svn-id: trunk@45199 -
This commit is contained in:
parent
76b41ca24f
commit
e964afc151
@ -297,6 +297,7 @@ type
|
|||||||
procedure BeginUpdate;
|
procedure BeginUpdate;
|
||||||
procedure EndUpdate;
|
procedure EndUpdate;
|
||||||
procedure EraseBackground({%H-}DC: HDC); override;
|
procedure EraseBackground({%H-}DC: HDC); override;
|
||||||
|
procedure ApplyEnvironmentOptions;
|
||||||
|
|
||||||
// views
|
// views
|
||||||
function ViewCount: integer; inline;
|
function ViewCount: integer; inline;
|
||||||
@ -2809,6 +2810,23 @@ begin
|
|||||||
// everything is painted, so erasing the background is not needed
|
// everything is painted, so erasing the background is not needed
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TMessagesCtrl.ApplyEnvironmentOptions;
|
||||||
|
begin
|
||||||
|
BackgroundColor:=EnvironmentOptions.MsgViewColors[mwBackground];
|
||||||
|
AutoHeaderBackground:=EnvironmentOptions.MsgViewColors[mwAutoHeader];
|
||||||
|
HeaderBackground[lmvtsRunning]:=EnvironmentOptions.MsgViewColors[mwRunning];
|
||||||
|
HeaderBackground[lmvtsSuccess]:=EnvironmentOptions.MsgViewColors[mwSuccess];
|
||||||
|
HeaderBackground[lmvtsFailed]:=EnvironmentOptions.MsgViewColors[mwFailed];
|
||||||
|
if EnvironmentOptions.MsgViewDblClickJumps then
|
||||||
|
Options:=Options-[mcoSingleClickOpensFile]
|
||||||
|
else
|
||||||
|
Options:=Options+[mcoSingleClickOpensFile];
|
||||||
|
if EnvironmentOptions.HideMessagesIcons then
|
||||||
|
Options:=Options-[mcoShowMsgIcons]
|
||||||
|
else
|
||||||
|
Options:=Options+[mcoShowMsgIcons];
|
||||||
|
end;
|
||||||
|
|
||||||
function TMessagesCtrl.IndexOfView(View: TLMsgWndView): integer;
|
function TMessagesCtrl.IndexOfView(View: TLMsgWndView): integer;
|
||||||
begin
|
begin
|
||||||
Result:=FViews.IndexOf(View);
|
Result:=FViews.IndexOf(View);
|
||||||
@ -3634,14 +3652,7 @@ end;
|
|||||||
|
|
||||||
procedure TMessagesFrame.ApplyIDEOptions;
|
procedure TMessagesFrame.ApplyIDEOptions;
|
||||||
begin
|
begin
|
||||||
if EnvironmentOptions.MsgViewDblClickJumps then
|
MessagesCtrl.ApplyEnvironmentOptions;
|
||||||
MessagesCtrl.Options:=MessagesCtrl.Options-[mcoSingleClickOpensFile]
|
|
||||||
else
|
|
||||||
MessagesCtrl.Options:=MessagesCtrl.Options+[mcoSingleClickOpensFile];
|
|
||||||
if EnvironmentOptions.HideMessagesIcons then
|
|
||||||
MessagesCtrl.Options:=MessagesCtrl.Options-[mcoShowMsgIcons]
|
|
||||||
else
|
|
||||||
MessagesCtrl.Options:=MessagesCtrl.Options+[mcoShowMsgIcons];
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMessagesFrame.ViewCount: integer;
|
function TMessagesFrame.ViewCount: integer;
|
||||||
|
@ -122,4 +122,16 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
|
|||||||
Width = 322
|
Width = 322
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
end
|
end
|
||||||
|
object MWHideIconsCheckBox: TCheckBox
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = MWOptionsLabel
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 24
|
||||||
|
Top = 179
|
||||||
|
Width = 154
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'MWHideIconsCheckBox'
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
@ -39,6 +39,7 @@ type
|
|||||||
{ TMsgWndOptionsFrame }
|
{ TMsgWndOptionsFrame }
|
||||||
|
|
||||||
TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor)
|
TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor)
|
||||||
|
MWHideIconsCheckBox: TCheckBox;
|
||||||
MWOptsLeftBevel: TBevel;
|
MWOptsLeftBevel: TBevel;
|
||||||
MWColorBox: TColorBox;
|
MWColorBox: TColorBox;
|
||||||
MWColorListBox: TColorListBox;
|
MWColorListBox: TColorListBox;
|
||||||
@ -117,6 +118,7 @@ begin
|
|||||||
MWColorsGroupBox.Caption:=dlgColors;
|
MWColorsGroupBox.Caption:=dlgColors;
|
||||||
MWSetAllColorsToLabel.Caption:=lisSetAllColors;
|
MWSetAllColorsToLabel.Caption:=lisSetAllColors;
|
||||||
MWSetDefaultColorsButton.Caption:=lisLazarusDefault;
|
MWSetDefaultColorsButton.Caption:=lisLazarusDefault;
|
||||||
|
MWHideIconsCheckBox.Caption := dlgHideMessagesIcons;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMsgWndOptionsFrame.GetTitle: String;
|
function TMsgWndOptionsFrame.GetTitle: String;
|
||||||
@ -139,9 +141,9 @@ var
|
|||||||
c: TMsgWndColor;
|
c: TMsgWndColor;
|
||||||
begin
|
begin
|
||||||
o:=(AOptions as TEnvironmentOptions);
|
o:=(AOptions as TEnvironmentOptions);
|
||||||
|
|
||||||
for c in TMsgWndColor do
|
for c in TMsgWndColor do
|
||||||
MWColorListBox.Colors[ord(c)]:=o.MsgViewColors[c];
|
MWColorListBox.Colors[ord(c)]:=o.MsgViewColors[c];
|
||||||
|
MWHideIconsCheckBox.Checked := o.HideMessagesIcons;
|
||||||
|
|
||||||
fReady:=true;
|
fReady:=true;
|
||||||
end;
|
end;
|
||||||
@ -152,9 +154,9 @@ var
|
|||||||
c: TMsgWndColor;
|
c: TMsgWndColor;
|
||||||
begin
|
begin
|
||||||
o:=(AOptions as TEnvironmentOptions);
|
o:=(AOptions as TEnvironmentOptions);
|
||||||
|
|
||||||
for c in TMsgWndColor do
|
for c in TMsgWndColor do
|
||||||
o.MsgViewColors[c]:=MWColorListBox.Colors[ord(c)];
|
o.MsgViewColors[c]:=MWColorListBox.Colors[ord(c)];
|
||||||
|
o.HideMessagesIcons := MWHideIconsCheckBox.Checked;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
class function TMsgWndOptionsFrame.
|
class function TMsgWndOptionsFrame.
|
||||||
@ -164,6 +166,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
//RegisterIDEOptionsEditor(GroupEnvironment, TMsgWndOptionsFrame, EnvOptionsMessages);
|
RegisterIDEOptionsEditor(GroupEnvironment, TMsgWndOptionsFrame, EnvOptionsMessages);
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
@ -14,9 +14,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = Owner
|
AnchorSideTop.Control = Owner
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 181
|
Width = 194
|
||||||
Caption = 'SingleTaskBarButtonCheckBox'
|
Caption = 'SingleTaskBarButtonCheckBox'
|
||||||
Enabled = False
|
Enabled = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
@ -27,9 +27,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 19
|
Top = 24
|
||||||
Width = 151
|
Width = 162
|
||||||
Caption = 'HideIDEOnRunCheckBox'
|
Caption = 'HideIDEOnRunCheckBox'
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
end
|
end
|
||||||
@ -42,13 +42,13 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideBottom.Control = Owner
|
AnchorSideBottom.Control = Owner
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 365
|
Height = 359
|
||||||
Top = 117
|
Top = 123
|
||||||
Width = 566
|
Width = 566
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||||
BorderSpacing.Top = 3
|
BorderSpacing.Top = 3
|
||||||
Caption = 'WindowPositionsGroupBox'
|
Caption = 'WindowPositionsGroupBox'
|
||||||
ClientHeight = 347
|
ClientHeight = 342
|
||||||
ClientWidth = 562
|
ClientWidth = 562
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object Bevel1: TBevel
|
object Bevel1: TBevel
|
||||||
@ -68,10 +68,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = WindowPositionsGroupBox
|
AnchorSideRight.Control = WindowPositionsGroupBox
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 177
|
Left = 179
|
||||||
Height = 3
|
Height = 3
|
||||||
Top = 132
|
Top = 132
|
||||||
Width = 379
|
Width = 377
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
@ -83,7 +83,7 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
Left = 70
|
Left = 70
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 126
|
Top = 126
|
||||||
Width = 101
|
Width = 103
|
||||||
BorderSpacing.Left = 70
|
BorderSpacing.Left = 70
|
||||||
BorderSpacing.Top = 6
|
BorderSpacing.Top = 6
|
||||||
Caption = 'lblWindowCaption'
|
Caption = 'lblWindowCaption'
|
||||||
@ -95,10 +95,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = LeftEdit
|
AnchorSideTop.Control = LeftEdit
|
||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = LeftEdit
|
AnchorSideRight.Control = LeftEdit
|
||||||
Left = 295
|
Left = 291
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 230
|
Top = 231
|
||||||
Width = 48
|
Width = 52
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Right = 3
|
BorderSpacing.Right = 3
|
||||||
Caption = 'LeftLabel'
|
Caption = 'LeftLabel'
|
||||||
@ -110,7 +110,7 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideRight.Control = TopEdit
|
AnchorSideRight.Control = TopEdit
|
||||||
Left = 294
|
Left = 294
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 259
|
Top = 262
|
||||||
Width = 49
|
Width = 49
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Right = 3
|
BorderSpacing.Right = 3
|
||||||
@ -121,10 +121,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 = 416
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 230
|
Top = 231
|
||||||
Width = 60
|
Width = 62
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Right = 3
|
BorderSpacing.Right = 3
|
||||||
Caption = 'WidthLabel'
|
Caption = 'WidthLabel'
|
||||||
@ -134,10 +134,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = HeightEdit
|
AnchorSideTop.Control = HeightEdit
|
||||||
AnchorSideTop.Side = asrCenter
|
AnchorSideTop.Side = asrCenter
|
||||||
AnchorSideRight.Control = HeightEdit
|
AnchorSideRight.Control = HeightEdit
|
||||||
Left = 414
|
Left = 412
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 259
|
Top = 262
|
||||||
Width = 64
|
Width = 66
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Right = 3
|
BorderSpacing.Right = 3
|
||||||
Caption = 'HeightLabel'
|
Caption = 'HeightLabel'
|
||||||
@ -158,17 +158,19 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
ItemHeight = 0
|
ItemHeight = 0
|
||||||
OnSelectionChange = WindowPositionsListBoxSelectionChange
|
OnSelectionChange = WindowPositionsListBoxSelectionChange
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
|
ScrollWidth = 548
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
TopIndex = -1
|
||||||
end
|
end
|
||||||
object LetWindowManagerDecideRadioButton: TRadioButton
|
object LetWindowManagerDecideRadioButton: TRadioButton
|
||||||
AnchorSideLeft.Control = WindowPositionsGroupBox
|
AnchorSideLeft.Control = WindowPositionsGroupBox
|
||||||
AnchorSideTop.Control = RestoreWindowGeometryRadioButton
|
AnchorSideTop.Control = RestoreWindowGeometryRadioButton
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 248
|
Top = 253
|
||||||
Width = 229
|
Width = 245
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 3
|
BorderSpacing.Top = 3
|
||||||
Caption = 'LetWindowManagerDecideRadioButton'
|
Caption = 'LetWindowManagerDecideRadioButton'
|
||||||
@ -182,9 +184,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = LetWindowManagerDecideRadioButton
|
AnchorSideTop.Control = LetWindowManagerDecideRadioButton
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 270
|
Top = 280
|
||||||
Width = 151
|
Width = 167
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 3
|
BorderSpacing.Top = 3
|
||||||
Caption = 'FixedDefaultRadioButton'
|
Caption = 'FixedDefaultRadioButton'
|
||||||
@ -198,9 +200,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = SplitterPanel
|
AnchorSideTop.Control = SplitterPanel
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 226
|
Top = 226
|
||||||
Width = 221
|
Width = 239
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 4
|
BorderSpacing.Top = 4
|
||||||
Caption = 'RestoreWindowGeometryRadioButton'
|
Caption = 'RestoreWindowGeometryRadioButton'
|
||||||
@ -216,9 +218,9 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = FixedDefaultRadioButton
|
AnchorSideTop.Control = FixedDefaultRadioButton
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 6
|
Left = 6
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 292
|
Top = 307
|
||||||
Width = 180
|
Width = 192
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
BorderSpacing.Top = 3
|
BorderSpacing.Top = 3
|
||||||
Caption = 'CustomGeometryRadioButton'
|
Caption = 'CustomGeometryRadioButton'
|
||||||
@ -231,7 +233,7 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Control = RestoreWindowGeometryRadioButton
|
AnchorSideTop.Control = RestoreWindowGeometryRadioButton
|
||||||
AnchorSideRight.Control = WidthEdit
|
AnchorSideRight.Control = WidthEdit
|
||||||
Left = 346
|
Left = 346
|
||||||
Height = 23
|
Height = 25
|
||||||
Top = 226
|
Top = 226
|
||||||
Width = 75
|
Width = 75
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
@ -247,8 +249,8 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
AnchorSideRight.Control = HeightEdit
|
AnchorSideRight.Control = HeightEdit
|
||||||
Left = 346
|
Left = 346
|
||||||
Height = 23
|
Height = 25
|
||||||
Top = 255
|
Top = 257
|
||||||
Width = 75
|
Width = 75
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Top = 6
|
BorderSpacing.Top = 6
|
||||||
@ -264,7 +266,7 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideRight.Control = WindowPositionsGroupBox
|
AnchorSideRight.Control = WindowPositionsGroupBox
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 481
|
Left = 481
|
||||||
Height = 23
|
Height = 25
|
||||||
Top = 226
|
Top = 226
|
||||||
Width = 75
|
Width = 75
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
@ -280,8 +282,8 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideRight.Control = WindowPositionsGroupBox
|
AnchorSideRight.Control = WindowPositionsGroupBox
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 481
|
Left = 481
|
||||||
Height = 23
|
Height = 25
|
||||||
Top = 255
|
Top = 257
|
||||||
Width = 75
|
Width = 75
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Top = 6
|
BorderSpacing.Top = 6
|
||||||
@ -294,10 +296,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 = 309
|
||||||
Height = 25
|
Height = 27
|
||||||
Top = 290
|
Top = 294
|
||||||
Width = 167
|
Width = 159
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BorderSpacing.Right = 6
|
BorderSpacing.Right = 6
|
||||||
@ -311,10 +313,10 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
AnchorSideRight.Control = WindowPositionsGroupBox
|
AnchorSideRight.Control = WindowPositionsGroupBox
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 463
|
Left = 474
|
||||||
Height = 25
|
Height = 27
|
||||||
Top = 290
|
Top = 294
|
||||||
Width = 93
|
Width = 82
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
BorderSpacing.Top = 12
|
BorderSpacing.Top = 12
|
||||||
@ -343,8 +345,8 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
BorderWidth = 1
|
BorderWidth = 1
|
||||||
BorderStyle = bsSingle
|
BorderStyle = bsSingle
|
||||||
Caption = ' '
|
Caption = ' '
|
||||||
ClientHeight = 74
|
ClientHeight = 76
|
||||||
ClientWidth = 554
|
ClientWidth = 556
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
Visible = False
|
Visible = False
|
||||||
object SplitterList: TListBox
|
object SplitterList: TListBox
|
||||||
@ -353,15 +355,17 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideBottom.Control = SplitterPanel
|
AnchorSideBottom.Control = SplitterPanel
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 1
|
Left = 1
|
||||||
Height = 72
|
Height = 74
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 275
|
Width = 275
|
||||||
Anchors = [akTop, akLeft, akBottom]
|
Anchors = [akTop, akLeft, akBottom]
|
||||||
ItemHeight = 0
|
ItemHeight = 0
|
||||||
OnSelectionChange = SplitterListSelectionChange
|
OnSelectionChange = SplitterListSelectionChange
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
|
ScrollWidth = 273
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
TopIndex = -1
|
||||||
end
|
end
|
||||||
object SplitLabel: TLabel
|
object SplitLabel: TLabel
|
||||||
AnchorSideTop.Control = SplitEdit
|
AnchorSideTop.Control = SplitEdit
|
||||||
@ -369,8 +373,8 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideRight.Control = SplitEdit
|
AnchorSideRight.Control = SplitEdit
|
||||||
Left = 424
|
Left = 424
|
||||||
Height = 15
|
Height = 15
|
||||||
Top = 45
|
Top = 46
|
||||||
Width = 51
|
Width = 53
|
||||||
Anchors = [akTop, akRight]
|
Anchors = [akTop, akRight]
|
||||||
BorderSpacing.Right = 3
|
BorderSpacing.Right = 3
|
||||||
Caption = 'SplitLabel'
|
Caption = 'SplitLabel'
|
||||||
@ -381,8 +385,8 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
AnchorSideBottom.Control = SplitterPanel
|
AnchorSideBottom.Control = SplitterPanel
|
||||||
AnchorSideBottom.Side = asrBottom
|
AnchorSideBottom.Side = asrBottom
|
||||||
Left = 478
|
Left = 480
|
||||||
Height = 23
|
Height = 25
|
||||||
Top = 41
|
Top = 41
|
||||||
Width = 75
|
Width = 75
|
||||||
Anchors = [akRight, akBottom]
|
Anchors = [akRight, akBottom]
|
||||||
@ -399,12 +403,12 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
AnchorSideRight.Control = SplitterPanel
|
AnchorSideRight.Control = SplitterPanel
|
||||||
AnchorSideRight.Side = asrBottom
|
AnchorSideRight.Side = asrBottom
|
||||||
Left = 282
|
Left = 282
|
||||||
Height = 23
|
Height = 29
|
||||||
Top = 1
|
Top = 1
|
||||||
Width = 271
|
Width = 273
|
||||||
Anchors = [akTop, akLeft, akRight]
|
Anchors = [akTop, akLeft, akRight]
|
||||||
BorderSpacing.Left = 6
|
BorderSpacing.Left = 6
|
||||||
ItemHeight = 15
|
ItemHeight = 0
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
Style = csDropDownList
|
Style = csDropDownList
|
||||||
@ -412,54 +416,43 @@ object WindowOptionsFrame: TWindowOptionsFrame
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object HideMessagesIconsCheckBox: 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 = 19
|
Height = 24
|
||||||
Top = 38
|
Top = 48
|
||||||
Width = 176
|
Width = 203
|
||||||
Caption = 'HideMessagesIconsCheckBox'
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
object TitleStartsWithProjectCheckBox: TCheckBox
|
|
||||||
AnchorSideLeft.Control = Owner
|
|
||||||
AnchorSideTop.Control = HideMessagesIconsCheckBox
|
|
||||||
AnchorSideTop.Side = asrBottom
|
|
||||||
Left = 0
|
|
||||||
Height = 19
|
|
||||||
Top = 57
|
|
||||||
Width = 186
|
|
||||||
Caption = 'TitleStartsWithProjectCheckBox'
|
Caption = 'TitleStartsWithProjectCheckBox'
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 4
|
TabOrder = 3
|
||||||
end
|
end
|
||||||
object ProjectDirInIdeTitleCheckBox: TCheckBox
|
object ProjectDirInIdeTitleCheckBox: TCheckBox
|
||||||
AnchorSideLeft.Control = Owner
|
AnchorSideLeft.Control = Owner
|
||||||
AnchorSideTop.Control = TitleStartsWithProjectCheckBox
|
AnchorSideTop.Control = TitleStartsWithProjectCheckBox
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 76
|
Top = 72
|
||||||
Width = 173
|
Width = 189
|
||||||
Caption = 'ProjectDirInIdeTitleCheckBox'
|
Caption = 'ProjectDirInIdeTitleCheckBox'
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 5
|
TabOrder = 4
|
||||||
end
|
end
|
||||||
object TitleIncludesBuildMode: TCheckBox
|
object TitleIncludesBuildMode: TCheckBox
|
||||||
AnchorSideLeft.Control = Owner
|
AnchorSideLeft.Control = Owner
|
||||||
AnchorSideTop.Control = ProjectDirInIdeTitleCheckBox
|
AnchorSideTop.Control = ProjectDirInIdeTitleCheckBox
|
||||||
AnchorSideTop.Side = asrBottom
|
AnchorSideTop.Side = asrBottom
|
||||||
Left = 0
|
Left = 0
|
||||||
Height = 19
|
Height = 24
|
||||||
Top = 95
|
Top = 96
|
||||||
Width = 145
|
Width = 155
|
||||||
Caption = 'TitleIncludesBuildMode'
|
Caption = 'TitleIncludesBuildMode'
|
||||||
ParentShowHint = False
|
ParentShowHint = False
|
||||||
ShowHint = True
|
ShowHint = True
|
||||||
TabOrder = 6
|
TabOrder = 5
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
@ -46,7 +46,6 @@ type
|
|||||||
HeightEdit: TSpinEdit;
|
HeightEdit: TSpinEdit;
|
||||||
HeightLabel: TLabel;
|
HeightLabel: TLabel;
|
||||||
HideIDEOnRunCheckBox: TCheckBox;
|
HideIDEOnRunCheckBox: TCheckBox;
|
||||||
HideMessagesIconsCheckBox: TCheckBox;
|
|
||||||
SplitLabel: TLabel;
|
SplitLabel: TLabel;
|
||||||
lblWindowCaption: TLabel;
|
lblWindowCaption: TLabel;
|
||||||
LeftEdit: TSpinEdit;
|
LeftEdit: TSpinEdit;
|
||||||
@ -114,7 +113,6 @@ begin
|
|||||||
SingleTaskBarButtonCheckBox.Enabled :=
|
SingleTaskBarButtonCheckBox.Enabled :=
|
||||||
WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) = LCL_CAPABILITY_YES;
|
WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) = LCL_CAPABILITY_YES;
|
||||||
HideIDEOnRunCheckBox.Caption := dlgHideIDEOnRun;
|
HideIDEOnRunCheckBox.Caption := dlgHideIDEOnRun;
|
||||||
HideMessagesIconsCheckBox.Caption := dlgHideMessagesIcons;
|
|
||||||
TitleStartsWithProjectCheckBox.Caption:=lisIDETitleStartsWithProjectName;
|
TitleStartsWithProjectCheckBox.Caption:=lisIDETitleStartsWithProjectName;
|
||||||
TitleStartsWithProjectCheckBox.Hint:=lisTitleInTaskbarShowsForExampleProject1LpiLazarus;
|
TitleStartsWithProjectCheckBox.Hint:=lisTitleInTaskbarShowsForExampleProject1LpiLazarus;
|
||||||
TitleIncludesBuildMode.Caption:=lisIDETitleShowsBuildMode;
|
TitleIncludesBuildMode.Caption:=lisIDETitleShowsBuildMode;
|
||||||
@ -133,7 +131,6 @@ begin
|
|||||||
// window minimizing and hiding
|
// window minimizing and hiding
|
||||||
SingleTaskBarButtonCheckBox.Checked := SingleTaskBarButton;
|
SingleTaskBarButtonCheckBox.Checked := SingleTaskBarButton;
|
||||||
HideIDEOnRunCheckBox.Checked := HideIDEOnRun;
|
HideIDEOnRunCheckBox.Checked := HideIDEOnRun;
|
||||||
HideMessagesIconsCheckBox.Checked := HideMessagesIcons;
|
|
||||||
TitleStartsWithProjectCheckBox.Checked:=IDETitleStartsWithProject;
|
TitleStartsWithProjectCheckBox.Checked:=IDETitleStartsWithProject;
|
||||||
TitleIncludesBuildMode.Checked:=IDETitleIncludesBuildMode;
|
TitleIncludesBuildMode.Checked:=IDETitleIncludesBuildMode;
|
||||||
ProjectDirInIdeTitleCheckBox.Checked:=IDEProjectDirectoryInIdeTitle;
|
ProjectDirInIdeTitleCheckBox.Checked:=IDEProjectDirectoryInIdeTitle;
|
||||||
@ -210,7 +207,6 @@ begin
|
|||||||
// window minimizing
|
// window minimizing
|
||||||
SingleTaskBarButton := SingleTaskBarButtonCheckBox.Checked;
|
SingleTaskBarButton := SingleTaskBarButtonCheckBox.Checked;
|
||||||
HideIDEOnRun:=HideIDEOnRunCheckBox.Checked;
|
HideIDEOnRun:=HideIDEOnRunCheckBox.Checked;
|
||||||
HideMessagesIcons:=HideMessagesIconsCheckBox.Checked;
|
|
||||||
IDETitleStartsWithProject:=TitleStartsWithProjectCheckBox.Checked;
|
IDETitleStartsWithProject:=TitleStartsWithProjectCheckBox.Checked;
|
||||||
IDETitleIncludesBuildMode := TitleIncludesBuildMode.Checked;
|
IDETitleIncludesBuildMode := TitleIncludesBuildMode.Checked;
|
||||||
IDEProjectDirectoryInIdeTitle:=ProjectDirInIdeTitleCheckBox.Checked;
|
IDEProjectDirectoryInIdeTitle:=ProjectDirInIdeTitleCheckBox.Checked;
|
||||||
|
Loading…
Reference in New Issue
Block a user