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

IDE: added environment option to focus/bringtofront messages

Browse Source 
git-svn-id: trunk@15401 -
This commit is contained in:
mattias 2008-06-13 08:15:10 +00:00
parent 2ebd2ec660
commit 9519e71b14
4 changed files with 952 additions and 917 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

205
ide/environmentopts.lfm
View File

@ -3,8 +3,6 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Height = 522 Height = 522
Top = 174 Top = 174
Width = 542 Width = 542
HorzScrollBar.Page = 541
VertScrollBar.Page = 521
ActiveControl = Notebook ActiveControl = Notebook
Caption = 'EnvironmentOptionsDialog' Caption = 'EnvironmentOptionsDialog'
ClientHeight = 522 ClientHeight = 522
@ -13,12 +11,12 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
LCLVersion = '0.9.25' LCLVersion = '0.9.25'
object Notebook: TNotebook object Notebook: TNotebook
AnchorSideBottom.Control = EODBtnPanel AnchorSideBottom.Control = EODBtnPanel
Height = 487 Height = 481
Width = 542 Width = 542
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
OnChangeBounds = NotebookChangeBounds OnChangeBounds = NotebookChangeBounds
PageIndex = 4 PageIndex = 1
TabOrder = 0 TabOrder = 0
object FilesPage: TPage object FilesPage: TPage
Caption = 'FilesPage' Caption = 'FilesPage'
@ -44,7 +42,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = FilesPage AnchorSideRight.Control = FilesPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 29
Top = 26 Top = 26
Width = 526 Width = 526
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -65,7 +63,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = FilesPage AnchorSideRight.Control = FilesPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 29
Top = 74 Top = 74
Width = 526 Width = 526
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -104,14 +102,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'LazarusDirGroupBox' Caption = 'LazarusDirGroupBox'
ClientHeight = 54 ClientHeight = 35
ClientWidth = 526 ClientWidth = 522
TabOrder = 3 TabOrder = 3
object LazarusDirComboBox: TComboBox object LazarusDirComboBox: TComboBox
AnchorSideLeft.Control = LazarusDirGroupBox AnchorSideLeft.Control = LazarusDirGroupBox
AnchorSideRight.Control = LazarusDirButton AnchorSideRight.Control = LazarusDirButton
Left = 6 Left = 6
Height = 25 Height = 29
Top = 3 Top = 3
Width = 485 Width = 485
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -130,7 +128,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = LazarusDirComboBox AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 491
Height = 25 Height = 29
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -150,14 +148,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'CompilerPathGroupBox' Caption = 'CompilerPathGroupBox'
ClientHeight = 54 ClientHeight = 35
ClientWidth = 526 ClientWidth = 522
TabOrder = 4 TabOrder = 4
object CompilerPathComboBox: TComboBox object CompilerPathComboBox: TComboBox
AnchorSideLeft.Control = CompilerPathGroupBox AnchorSideLeft.Control = CompilerPathGroupBox
AnchorSideRight.Control = CompilerPathButton AnchorSideRight.Control = CompilerPathButton
Left = 6 Left = 6
Height = 25 Height = 29
Top = 3 Top = 3
Width = 485 Width = 485
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -174,7 +172,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = CompilerPathComboBox AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 491
Height = 25 Height = 29
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -194,14 +192,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'FPCSourceDirGroupBox' Caption = 'FPCSourceDirGroupBox'
ClientHeight = 54 ClientHeight = 35
ClientWidth = 526 ClientWidth = 522
TabOrder = 5 TabOrder = 5
object FPCSourceDirComboBox: TComboBox object FPCSourceDirComboBox: TComboBox
AnchorSideLeft.Control = FPCSourceDirGroupBox AnchorSideLeft.Control = FPCSourceDirGroupBox
AnchorSideRight.Control = FPCSourceDirButton AnchorSideRight.Control = FPCSourceDirButton
Left = 6 Left = 6
Height = 25 Height = 29
Top = 3 Top = 3
Width = 485 Width = 485
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -218,7 +216,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = FPCSourceDirComboBox AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 491
Height = 25 Height = 29
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -238,14 +236,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'MakePathGroupBox' Caption = 'MakePathGroupBox'
ClientHeight = 54 ClientHeight = 35
ClientWidth = 526 ClientWidth = 522
TabOrder = 6 TabOrder = 6
object MakePathComboBox: TComboBox object MakePathComboBox: TComboBox
AnchorSideLeft.Control = MakePathGroupBox AnchorSideLeft.Control = MakePathGroupBox
AnchorSideRight.Control = MakePathButton AnchorSideRight.Control = MakePathButton
Left = 6 Left = 6
Height = 25 Height = 29
Top = 3 Top = 3
Width = 485 Width = 485
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -262,7 +260,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = MakePathComboBox AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 491
Height = 25 Height = 29
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -282,14 +280,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'TestBuildDirGroupBox' Caption = 'TestBuildDirGroupBox'
ClientHeight = 54 ClientHeight = 35
ClientWidth = 526 ClientWidth = 522
TabOrder = 7 TabOrder = 7
object TestBuildDirComboBox: TComboBox object TestBuildDirComboBox: TComboBox
AnchorSideLeft.Control = TestBuildDirGroupBox AnchorSideLeft.Control = TestBuildDirGroupBox
AnchorSideRight.Control = TestBuildDirButton AnchorSideRight.Control = TestBuildDirButton
Left = 6 Left = 6
Height = 25 Height = 29
Top = 3 Top = 3
Width = 485 Width = 485
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -306,7 +304,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = TestBuildDirComboBox AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 491
Height = 25 Height = 29
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -325,22 +323,22 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = DesktopPage AnchorSideRight.Control = DesktopPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 4 Left = 4
Height = 56 Height = 62
Top = 10 Top = 10
Width = 528 Width = 528
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'LanguageGroupBox' Caption = 'LanguageGroupBox'
ClientHeight = 56 ClientHeight = 43
ClientWidth = 528 ClientWidth = 524
TabOrder = 0 TabOrder = 0
object LanguageComboBox: TComboBox object LanguageComboBox: TComboBox
AnchorSideLeft.Control = LanguageGroupBox AnchorSideLeft.Control = LanguageGroupBox
AnchorSideRight.Control = LanguageGroupBox AnchorSideRight.Control = LanguageGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 31
Top = 6 Top = 6
Width = 512 Width = 512
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -377,14 +375,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'AutoSaveGroupBox' Caption = 'AutoSaveGroupBox'
ClientHeight = 136 ClientHeight = 117
ClientWidth = 528 ClientWidth = 524
TabOrder = 6 TabOrder = 6
object AutoSaveIntervalInSecsLabel: TLabel object AutoSaveIntervalInSecsLabel: TLabel
Left = 6 Left = 6
Height = 20 Height = 20
Top = 67 Top = 67
Width = 469 Width = 465
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'AutoSaveIntervalInSecsLabel' Caption = 'AutoSaveIntervalInSecsLabel'
Enabled = False Enabled = False
@ -394,7 +392,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 4 Top = 4
Width = 478 Width = 474
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'AutoSaveEditorFilesCheckBox' Caption = 'AutoSaveEditorFilesCheckBox'
Enabled = False Enabled = False
@ -404,7 +402,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Left = 6 Left = 6
Height = 22 Height = 22
Top = 30 Top = 30
Width = 478 Width = 474
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'AutoSaveProjectCheckBox' Caption = 'AutoSaveProjectCheckBox'
Enabled = False Enabled = False
@ -415,7 +413,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = AutoSaveGroupBox AnchorSideRight.Control = AutoSaveGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 29
Top = 87 Top = 87
Width = 512 Width = 512
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -442,8 +440,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'DesktopFilesGroupBox' Caption = 'DesktopFilesGroupBox'
ClientHeight = 97 ClientHeight = 78
ClientWidth = 528 ClientWidth = 524
TabOrder = 3 TabOrder = 3
object SaveDesktopSettingsToFileButton: TButton object SaveDesktopSettingsToFileButton: TButton
AnchorSideLeft.Control = DesktopFilesGroupBox AnchorSideLeft.Control = DesktopFilesGroupBox
@ -492,11 +490,22 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Caption = 'MsgViewDblClickJumpsCheckBox' Caption = 'MsgViewDblClickJumpsCheckBox'
TabOrder = 5 TabOrder = 5
end end
object MsgViewFocusCheckBox: TCheckBox
AnchorSideLeft.Control = MsgViewDblClickJumpsCheckBox
AnchorSideTop.Control = MsgViewDblClickJumpsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 23
Top = 404
Width = 90
Caption = 'MsgViewFocusCheckBox'
TabOrder = 7
end
end end
object WindowsPage: TPage object WindowsPage: TPage
Caption = 'WindowsPage' Caption = 'WindowsPage'
ClientWidth = 538 ClientWidth = 538
ClientHeight = 450 ClientHeight = 456
object MinimizeAllOnMinimizeMainCheckBox: TCheckBox object MinimizeAllOnMinimizeMainCheckBox: TCheckBox
AnchorSideRight.Control = WindowsPage AnchorSideRight.Control = WindowsPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -526,14 +535,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = WindowsPage AnchorSideRight.Control = WindowsPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 320 Height = 326
Top = 68 Top = 68
Width = 526 Width = 526
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'WindowPositionsGroupBox' Caption = 'WindowPositionsGroupBox'
ClientHeight = 320 ClientHeight = 322
ClientWidth = 526 ClientWidth = 522
TabOrder = 2 TabOrder = 2
object WindowPositionsListBox: TListBox object WindowPositionsListBox: TListBox
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsGroupBox
@ -554,7 +563,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object FormEditorPage: TPage object FormEditorPage: TPage
Caption = 'FormEditorPage' Caption = 'FormEditorPage'
ClientWidth = 538 ClientWidth = 538
ClientHeight = 450 ClientHeight = 456
OnResize = FormEditorPageResize OnResize = FormEditorPageResize
object GridGroupBox: TGroupBox object GridGroupBox: TGroupBox
Left = 6 Left = 6
@ -563,8 +572,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Width = 337 Width = 337
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GridGroupBox' Caption = 'GridGroupBox'
ClientHeight = 212 ClientHeight = 193
ClientWidth = 337 ClientWidth = 333
TabOrder = 0 TabOrder = 0
object GridColorLabel: TLabel object GridColorLabel: TLabel
AnchorSideLeft.Control = GridGroupBox AnchorSideLeft.Control = GridGroupBox
@ -719,14 +728,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = FormEditorPage AnchorSideBottom.Control = FormEditorPage
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 349 Left = 349
Height = 220 Height = 226
Top = 224 Top = 224
Width = 183 Width = 183
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GuideLinesGroupBox' Caption = 'GuideLinesGroupBox'
ClientHeight = 220 ClientHeight = 222
ClientWidth = 183 ClientWidth = 179
TabOrder = 1 TabOrder = 1
object GuideLineColorLeftTopButton: TColorButton object GuideLineColorLeftTopButton: TColorButton
AnchorSideTop.Control = GuideLineColorLeftTopLabel AnchorSideTop.Control = GuideLineColorLeftTopLabel
@ -814,14 +823,14 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideBottom.Control = FormEditorPage AnchorSideBottom.Control = FormEditorPage
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 220 Height = 226
Top = 224 Top = 224
Width = 337 Width = 337
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'FormEditMiscGroupBox' Caption = 'FormEditMiscGroupBox'
ClientHeight = 220 ClientHeight = 222
ClientWidth = 337 ClientWidth = 333
TabOrder = 2 TabOrder = 2
object GrabberColorButton: TColorButton object GrabberColorButton: TColorButton
AnchorSideLeft.Control = GrabberColorLabel AnchorSideLeft.Control = GrabberColorLabel
@ -969,8 +978,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'RubberbandGroupBox' Caption = 'RubberbandGroupBox'
ClientHeight = 212 ClientHeight = 193
ClientWidth = 183 ClientWidth = 179
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 3 TabOrder = 3
@ -1046,15 +1055,15 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
object ObjectInspectorPage: TPage object ObjectInspectorPage: TPage
Caption = 'ObjectInspectorPage' Caption = 'ObjectInspectorPage'
ClientWidth = 534 ClientWidth = 538
ClientHeight = 461 ClientHeight = 450
object ObjectInspectorColorsGroupBox: TGroupBox object ObjectInspectorColorsGroupBox: TGroupBox
AnchorSideRight.Control = ObjectInspectorPage AnchorSideRight.Control = ObjectInspectorPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 173 Height = 177
Top = 7 Top = 7
Width = 522 Width = 526
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 5 BorderSpacing.Left = 5
@ -1065,8 +1074,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 2 ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2 ChildSizing.VerticalSpacing = 2
ClientHeight = 155 ClientHeight = 158
ClientWidth = 518 ClientWidth = 522
TabOrder = 0 TabOrder = 0
object OIBackgroundColorButton: TColorButton object OIBackgroundColorButton: TColorButton
Left = 6 Left = 6
@ -1124,54 +1133,54 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
object OIBackgroundColorLabel: TLabel object OIBackgroundColorLabel: TLabel
Left = 65 Left = 65
Height = 14 Height = 20
Top = 12 Top = 12
Width = 434 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'OIBackgroundColorLabel' Caption = 'OIBackgroundColorLabel'
ParentColor = False ParentColor = False
end end
object OISubPropsColorLabel: TLabel object OISubPropsColorLabel: TLabel
Left = 65 Left = 65
Height = 14 Height = 20
Top = 36 Top = 36
Width = 434 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'OISubPropsColorLabel' Caption = 'OISubPropsColorLabel'
ParentColor = False ParentColor = False
end end
object OIReferencesColorLabel: TLabel object OIReferencesColorLabel: TLabel
Left = 65 Left = 65
Height = 14 Height = 20
Top = 60 Top = 60
Width = 434 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'OIReferencesColorLabel' Caption = 'OIReferencesColorLabel'
ParentColor = False ParentColor = False
end end
object OIValueColorLabel: TLabel object OIValueColorLabel: TLabel
Left = 65 Left = 65
Height = 14 Height = 20
Top = 84 Top = 84
Width = 434 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'OIValueColorLabel' Caption = 'OIValueColorLabel'
ParentColor = False ParentColor = False
end end
object OIDefaultValueColorLabel: TLabel object OIDefaultValueColorLabel: TLabel
Left = 65 Left = 65
Height = 14 Height = 20
Top = 108 Top = 108
Width = 434 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'OIDefaultValueColorLabel' Caption = 'OIDefaultValueColorLabel'
ParentColor = False ParentColor = False
end end
object OIPropNameColorLabel: TLabel object OIPropNameColorLabel: TLabel
Left = 65 Left = 65
Height = 14 Height = 20
Top = 132 Top = 132
Width = 434 Width = 438
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'OIPropNameColorLabel' Caption = 'OIPropNameColorLabel'
ParentColor = False ParentColor = False
@ -1183,19 +1192,19 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Left = 6 Left = 6
Height = 129 Height = 129
Top = 186 Top = 186
Width = 522 Width = 526
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'OIMiscGroupBox' Caption = 'OIMiscGroupBox'
ClientHeight = 111 ClientHeight = 110
ClientWidth = 518 ClientWidth = 522
TabOrder = 1 TabOrder = 1
object OIDefaultItemHeightLabel: TLabel object OIDefaultItemHeightLabel: TLabel
AnchorSideLeft.Control = OIMiscGroupBox AnchorSideLeft.Control = OIMiscGroupBox
Left = 6 Left = 6
Height = 14 Height = 20
Top = 6 Top = 6
Width = 458 Width = 462
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -1207,9 +1216,9 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideTop.Control = OIDefaultItemHeightSpinEdit AnchorSideTop.Control = OIDefaultItemHeightSpinEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 22
Top = 57 Top = 63
Width = 458 Width = 462
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -1222,7 +1231,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 25 Height = 25
Top = 26 Top = 32
Width = 69 Width = 69
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -1235,7 +1244,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 19 Height = 19
Top = 82 Top = 91
Width = 458 Width = 458
AutoSize = False AutoSize = False
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -1248,7 +1257,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object BackupPage: TPage object BackupPage: TPage
Caption = 'BackupPage' Caption = 'BackupPage'
ClientWidth = 538 ClientWidth = 538
ClientHeight = 450 ClientHeight = 456
object BackupHelpLabel: TLabel object BackupHelpLabel: TLabel
AnchorSideRight.Control = BackupPage AnchorSideRight.Control = BackupPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -1272,8 +1281,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'BackupProjectGroupBox' Caption = 'BackupProjectGroupBox'
ClientHeight = 154 ClientHeight = 135
ClientWidth = 526 ClientWidth = 522
TabOrder = 0 TabOrder = 0
object BakProjAddExtLabel: TLabel object BakProjAddExtLabel: TLabel
AnchorSideLeft.Control = BakProjAddExtComboBox AnchorSideLeft.Control = BakProjAddExtComboBox
@ -1404,8 +1413,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'BackupOtherGroupBox' Caption = 'BackupOtherGroupBox'
ClientHeight = 154 ClientHeight = 135
ClientWidth = 526 ClientWidth = 522
TabOrder = 1 TabOrder = 1
object BakOtherAddExtLabel: TLabel object BakOtherAddExtLabel: TLabel
AnchorSideLeft.Control = BakOtherAddExtComboBox AnchorSideLeft.Control = BakOtherAddExtComboBox
@ -1524,7 +1533,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object NamingPage: TPage object NamingPage: TPage
Caption = 'NamingPage' Caption = 'NamingPage'
ClientWidth = 538 ClientWidth = 538
ClientHeight = 450 ClientHeight = 456
object PascalFileExtRadiogroup: TRadioGroup object PascalFileExtRadiogroup: TRadioGroup
AnchorSideRight.Control = NamingPage AnchorSideRight.Control = NamingPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -1595,7 +1604,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object LazDocPage: TPage object LazDocPage: TPage
Caption = 'LazDocPage' Caption = 'LazDocPage'
ClientWidth = 538 ClientWidth = 538
ClientHeight = 450 ClientHeight = 456
object LazDocPathsGroupBox: TGroupBox object LazDocPathsGroupBox: TGroupBox
AnchorSideRight.Control = LazDocPage AnchorSideRight.Control = LazDocPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
@ -1607,8 +1616,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LazDocPathsGroupBox' Caption = 'LazDocPathsGroupBox'
ClientHeight = 205 ClientHeight = 186
ClientWidth = 526 ClientWidth = 522
TabOrder = 0 TabOrder = 0
object LazDocListBox: TListBox object LazDocListBox: TListBox
Left = 6 Left = 6
@ -1685,19 +1694,19 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
end end
object EODBtnPanel: TPanel object EODBtnPanel: TPanel
Height = 35 Height = 41
Top = 487 Top = 481
Width = 542 Width = 542
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 35 ClientHeight = 41
ClientWidth = 542 ClientWidth = 542
TabOrder = 1 TabOrder = 1
object OkButton: TButton object OkButton: TButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 365 Left = 357
Height = 23 Height = 29
Top = 6 Top = 6
Width = 75 Width = 75
Align = alRight Align = alRight
@ -1712,10 +1721,10 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object CancelButton: TButton object CancelButton: TButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 446 Left = 438
Height = 23 Height = 29
Top = 6 Top = 6
Width = 90 Width = 98
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6

1639
ide/environmentopts.lrs
View File

File diff suppressed because it is too large Load Diff

12
ide/environmentopts.pp
View File

@ -184,6 +184,7 @@ type
// messages // messages
fMsgViewDblClickJumps: boolean; fMsgViewDblClickJumps: boolean;
fMsgViewFocus: boolean;
// compiler + debugger + lazarus files // compiler + debugger + lazarus files
FLazarusDirectory: string; FLazarusDirectory: string;
@ -428,6 +429,7 @@ type
// messages view // messages view
property MsgViewDblClickJumps: boolean read fMsgViewDblClickJumps property MsgViewDblClickJumps: boolean read fMsgViewDblClickJumps
write fMsgViewDblClickJumps; write fMsgViewDblClickJumps;
property MsgViewFocus: boolean read fMsgViewFocus write fMsgViewFocus;
end; end;
//---------------------------------------------------------------------------- //----------------------------------------------------------------------------
@ -488,6 +490,7 @@ type
// messages view // messages view
MsgViewDblClickJumpsCheckBox: TCheckBox; MsgViewDblClickJumpsCheckBox: TCheckBox;
MsgViewFocusCheckBox: TCheckBox;
// window layout // window layout
WindowPositionsGroupBox: TGroupBox; WindowPositionsGroupBox: TGroupBox;
@ -676,6 +679,7 @@ procedure SetComboBoxText(AComboBox:TComboBox; const AText:AnsiString;
const const
DefaultLazDocPath = '$(LazarusDir)/docs/xml/lcl'; DefaultLazDocPath = '$(LazarusDir)/docs/xml/lcl';
DefaultMsgViewFocus = {$IFDEF Windows}true{$ELSE}false{$ENDIF};
implementation implementation
@ -866,6 +870,7 @@ begin
// messages view // messages view
fMsgViewDblClickJumps:=true; fMsgViewDblClickJumps:=true;
fMsgViewFocus:=DefaultMsgViewFocus;
// files // files
LazarusDirectory:=IDEProcs.ProgramDirectory; LazarusDirectory:=IDEProcs.ProgramDirectory;
@ -1172,6 +1177,8 @@ begin
// messages view // messages view
fMsgViewDblClickJumps:=XMLConfig.GetValue( fMsgViewDblClickJumps:=XMLConfig.GetValue(
Path+'MsgViewDblClickJumps/Value',false); Path+'MsgViewDblClickJumps/Value',false);
fMsgViewFocus:=XMLConfig.GetValue(
Path+'MsgViewFocus/Value',DefaultMsgViewFocus);
// recent files and directories // recent files and directories
FMaxRecentOpenFiles:=XMLConfig.GetValue( FMaxRecentOpenFiles:=XMLConfig.GetValue(
@ -1387,6 +1394,8 @@ begin
// messages view // messages view
XMLConfig.SetDeleteValue(Path+'MsgViewDblClickJumps/Value', XMLConfig.SetDeleteValue(Path+'MsgViewDblClickJumps/Value',
fMsgViewDblClickJumps,false); fMsgViewDblClickJumps,false);
XMLConfig.SetDeleteValue(Path+'MsgViewFocus/Value',
fMsgViewFocus,DefaultMsgViewFocus);
// recent files and directories // recent files and directories
XMLConfig.SetValue( XMLConfig.SetValue(
@ -1738,6 +1747,7 @@ begin
// messages view // messages view
MsgViewDblClickJumpsCheckBox.Caption:=lisEnvDoubleClickOnMessagesJumpsOtherwiseSingleClick; MsgViewDblClickJumpsCheckBox.Caption:=lisEnvDoubleClickOnMessagesJumpsOtherwiseSingleClick;
MsgViewFocusCheckBox.Caption:='Focus messages after compilation';
end; end;
procedure TEnvironmentOptionsDialog.SetupWindowsPage(Page: integer); procedure TEnvironmentOptionsDialog.SetupWindowsPage(Page: integer);
@ -2332,6 +2342,7 @@ begin
// messages view // messages view
MsgViewDblClickJumpsCheckBox.Checked:=MsgViewDblClickJumps; MsgViewDblClickJumpsCheckBox.Checked:=MsgViewDblClickJumps;
MsgViewFocusCheckBox.Checked:=MsgViewFocus;
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
ShowBorderSpaceCheckBox.Checked:=ShowBorderSpacing; ShowBorderSpaceCheckBox.Checked:=ShowBorderSpacing;
@ -2481,6 +2492,7 @@ begin
// messages view // messages view
MsgViewDblClickJumps:=MsgViewDblClickJumpsCheckBox.Checked; MsgViewDblClickJumps:=MsgViewDblClickJumpsCheckBox.Checked;
MsgViewFocus:=MsgViewFocusCheckBox.Checked;
// EnvironmentOptionsDialog editor // EnvironmentOptionsDialog editor
ShowBorderSpacing:=ShowBorderSpaceCheckBox.Checked; ShowBorderSpacing:=ShowBorderSpaceCheckBox.Checked;

13
ide/main.pp
View File

@ -9109,7 +9109,10 @@ begin
if Result<>mrOk then exit; if Result<>mrOk then exit;
// show messages // show messages
MessagesView.EnsureVisible; if EnvironmentOptions.MsgViewFocus then
MessagesView.EnsureVisible
else
MessagesView.Visible:=true;
MessagesView.BeginBlock; MessagesView.BeginBlock;
try try
@ -9258,7 +9261,10 @@ begin
MessagesView.EndBlock; MessagesView.EndBlock;
end; end;
MessagesView.EnsureVisible; if EnvironmentOptions.MsgViewFocus then
MessagesView.EnsureVisible
else
MessagesView.Visible:=true;
Result:=mrOk; Result:=mrOk;
end; end;
@ -10971,7 +10977,8 @@ begin
if (iwpDefault = EnvironmentOptions.IDEWindowLayoutList.ItemByEnum( if (iwpDefault = EnvironmentOptions.IDEWindowLayoutList.ItemByEnum(
nmiwSourceNoteBookName).WindowPlacement) nmiwSourceNoteBookName).WindowPlacement)
and ((SourceNotebook.Top + SourceNotebook.Height) > MessagesView.Top) and (MessagesView.Parent = nil) then and ((SourceNotebook.Top + SourceNotebook.Height) > MessagesView.Top)
and (MessagesView.Parent = nil) then
SourceNotebook.Height := Max(50,Min(SourceNotebook.Height, SourceNotebook.Height := Max(50,Min(SourceNotebook.Height,
MessagesView.Top-SourceNotebook.Top)); MessagesView.Top-SourceNotebook.Top));
if PutOnTop then if PutOnTop then