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

IDE: messages options: moved hide messages icons to messages options

Browse Source 
git-svn-id: trunk@45199 -
This commit is contained in:
mattias 2014-05-27 13:46:45 +00:00
parent 76b41ca24f
commit e964afc151
5 changed files with 109 additions and 95 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ide/etmessageframe.pas
View File

@ -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;

12
ide/frames/msgwnd_options.lfm
View File

@ -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

8
ide/frames/msgwnd_options.pas
View File

@ -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.

153
ide/frames/window_options.lfm
View File

@ -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

4
ide/frames/window_options.pas
View File

@ -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;