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

IDE: messages options: moved dbl click jumps to messages options

Browse Source 
git-svn-id: trunk@45200 -
This commit is contained in:
mattias 2014-05-27 13:50:34 +00:00
parent e964afc151
commit 226a364fff
4 changed files with 139 additions and 138 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

253
ide/frames/desktop_options.lfm
View File

@ -1,5 +1,7 @@
inherited DesktopOptionsFrame: TDesktopOptionsFrame object DesktopOptionsFrame: TDesktopOptionsFrame
Left = 0
Height = 512 Height = 512
Top = 0
Width = 597 Width = 597
ClientHeight = 512 ClientHeight = 512
ClientWidth = 597 ClientWidth = 597
@ -7,7 +9,7 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
Visible = False Visible = False
DesignLeft = 573 DesignLeft = 573
DesignTop = 261 DesignTop = 261
object BevelLanguageLeft: TBevel[0] object BevelLanguageLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblLanguage AnchorSideTop.Control = lblLanguage
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
@ -19,78 +21,78 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblLanguage: TLabel[1] object lblLanguage: TLabel
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 70 Left = 70
Height = 15 Height = 15
Top = 0 Top = 0
Width = 77 Width = 71
Caption = 'lblLanguage' Caption = 'lblLanguage'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object BevelLanguageRight: TBevel[2] object BevelLanguageRight: TBevel
AnchorSideLeft.Control = lblLanguage AnchorSideLeft.Control = lblLanguage
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblLanguage AnchorSideTop.Control = lblLanguage
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 153 Left = 147
Height = 3 Height = 3
Top = 6 Top = 6
Width = 444 Width = 450
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object BevelAutoSaveLeft: TBevel[3] object BevelAutoSaveLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAutoSave AnchorSideTop.Control = lblAutoSave
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblAutoSave AnchorSideRight.Control = lblAutoSave
Left = 0 Left = 0
Height = 3 Height = 3
Top = 61 Top = 62
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblAutoSave: TLabel[4] object lblAutoSave: TLabel
AnchorSideTop.Control = LanguageComboBox AnchorSideTop.Control = LanguageComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 15
Top = 55 Top = 56
Width = 74 Width = 71
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblAutoSave' Caption = 'lblAutoSave'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object BevelAutoSizeRight: TBevel[5] object BevelAutoSizeRight: TBevel
AnchorSideLeft.Control = lblAutoSave AnchorSideLeft.Control = lblAutoSave
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblAutoSave AnchorSideTop.Control = lblAutoSave
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 150 Left = 147
Height = 3 Height = 3
Top = 61 Top = 62
Width = 447 Width = 450
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object AutoSaveIntervalInSecsLabel: TLabel[6] object AutoSaveIntervalInSecsLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AutoSaveProjectCheckBox AnchorSideTop.Control = AutoSaveProjectCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 15
Top = 154 Top = 155
Width = 160 Width = 157
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'AutoSaveIntervalInSecsLabel' Caption = 'AutoSaveIntervalInSecsLabel'
@ -98,260 +100,247 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
ParentColor = False ParentColor = False
Visible = False Visible = False
end end
object BevelDesktopFilesLeft: TBevel[7] object BevelDesktopFilesLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblDesktopFiles AnchorSideTop.Control = lblDesktopFiles
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblDesktopFiles AnchorSideRight.Control = lblDesktopFiles
Left = 0 Left = 0
Height = 3 Height = 3
Top = 214 Top = 215
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblDesktopFiles: TLabel[8] object lblDesktopFiles: TLabel
AnchorSideTop.Control = AutoSaveIntervalInSecsComboBox AnchorSideTop.Control = AutoSaveIntervalInSecsComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 15
Top = 208 Top = 209
Width = 94 Width = 90
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblDesktopFiles' Caption = 'lblDesktopFiles'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object BevelDesktopFilesRight: TBevel[9] object BevelDesktopFilesRight: TBevel
AnchorSideLeft.Control = lblDesktopFiles AnchorSideLeft.Control = lblDesktopFiles
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblDesktopFiles AnchorSideTop.Control = lblDesktopFiles
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 170 Left = 166
Height = 3 Height = 3
Top = 214 Top = 215
Width = 427 Width = 431
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object BevelGlyphsLeft: TBevel[10] object BevelGlyphsLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblGlyphs AnchorSideTop.Control = lblGlyphs
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblGlyphs AnchorSideRight.Control = lblGlyphs
Left = 0 Left = 0
Height = 3 Height = 3
Top = 267 Top = 269
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblGlyphs: TLabel[11] object lblGlyphs: TLabel
AnchorSideTop.Control = SaveDesktopSettingsToFileButton AnchorSideTop.Control = SaveDesktopSettingsToFileButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 15
Top = 261 Top = 263
Width = 59 Width = 54
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblGlyphs' Caption = 'lblGlyphs'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object BevelGlyphsRight: TBevel[12] object BevelGlyphsRight: TBevel
AnchorSideLeft.Control = lblGlyphs AnchorSideLeft.Control = lblGlyphs
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblGlyphs AnchorSideTop.Control = lblGlyphs
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 135 Left = 130
Height = 3 Height = 3
Top = 267 Top = 269
Width = 462 Width = 467
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object BevelHintsLeft: TBevel[13] object BevelHintsLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblHints AnchorSideTop.Control = lblHints
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblHints AnchorSideRight.Control = lblHints
Left = 0 Left = 0
Height = 3 Height = 3
Top = 345 Top = 347
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblHints: TLabel[14] object lblHints: TLabel
AnchorSideTop.Control = PanelGlyphsMenusOptions AnchorSideTop.Control = PanelGlyphsMenusOptions
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 15
Top = 339 Top = 341
Width = 49 Width = 45
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblHints' Caption = 'lblHints'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object BevelHintsRight: TBevel[15] object BevelHintsRight: TBevel
AnchorSideLeft.Control = lblHints AnchorSideLeft.Control = lblHints
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblHints AnchorSideTop.Control = lblHints
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 125 Left = 121
Height = 3 Height = 3
Top = 345 Top = 347
Width = 472 Width = 476
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object Bevel1MiscLeft: TBevel[16] object Bevel1MiscLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMisc AnchorSideTop.Control = lblMisc
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblMisc AnchorSideRight.Control = lblMisc
Left = 0 Left = 0
Height = 3 Height = 3
Top = 420 Top = 422
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblMisc: TLabel[17] object lblMisc: TLabel
AnchorSideTop.Control = ShowHintsForMainSpeedButtonsCheckBox AnchorSideTop.Control = ShowHintsForMainSpeedButtonsCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 15
Top = 414 Top = 416
Width = 44 Width = 41
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblMisc' Caption = 'lblMisc'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object Bevel1MiscRight: TBevel[18] object Bevel1MiscRight: TBevel
AnchorSideLeft.Control = lblMisc AnchorSideLeft.Control = lblMisc
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblMisc AnchorSideTop.Control = lblMisc
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 120 Left = 117
Height = 3 Height = 3
Top = 420 Top = 422
Width = 477 Width = 480
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object lblButtons: TLabel[19] object lblButtons: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = PanelGlyphsButtonsOptions AnchorSideTop.Control = PanelGlyphsButtonsOptions
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 15
Top = 287 Top = 289
Width = 64 Width = 60
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lblButtons' Caption = 'lblButtons'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblMenus: TLabel[20] object lblMenus: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = PanelGlyphsMenusOptions AnchorSideTop.Control = PanelGlyphsMenusOptions
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 15
Top = 314 Top = 316
Width = 57 Width = 53
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lblMenus' Caption = 'lblMenus'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object CheckDiskChangesWithLoadingCheckBox: TCheckBox[21] object CheckDiskChangesWithLoadingCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MsgViewFocusCheckBox AnchorSideTop.Control = MsgViewFocusCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 483 Top = 455
Width = 255 Width = 251
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'CheckDiskChangesWithLoadingCheckBox' Caption = 'CheckDiskChangesWithLoadingCheckBox'
TabOrder = 0 TabOrder = 0
end end
object ShowHintsForComponentPaletteCheckBox: TCheckBox[22] object ShowHintsForComponentPaletteCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblHints AnchorSideTop.Control = lblHints
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 360 Top = 362
Width = 259 Width = 259
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ShowHintsForComponentPaletteCheckBox' Caption = 'ShowHintsForComponentPaletteCheckBox'
TabOrder = 1 TabOrder = 1
end end
object ShowHintsForMainSpeedButtonsCheckBox: TCheckBox[23] object ShowHintsForMainSpeedButtonsCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ShowHintsForComponentPaletteCheckBox AnchorSideTop.Control = ShowHintsForComponentPaletteCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 384 Top = 386
Width = 258 Width = 259
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShowHintsForMainSpeedButtonsCheckBox' Caption = 'ShowHintsForMainSpeedButtonsCheckBox'
TabOrder = 2 TabOrder = 2
end end
object MsgViewDblClickJumpsCheckBox: TCheckBox[24] object MsgViewFocusCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMisc AnchorSideTop.Control = lblMisc
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 435 Top = 431
Width = 206
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'MsgViewDblClickJumpsCheckBox'
TabOrder = 3
end
object MsgViewFocusCheckBox: TCheckBox[25]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MsgViewDblClickJumpsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 459
Width = 160 Width = 160
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'MsgViewFocusCheckBox' Caption = 'MsgViewFocusCheckBox'
TabOrder = 4 TabOrder = 3
end end
object LanguageComboBox: TComboBox[26] object LanguageComboBox: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblLanguage AnchorSideTop.Control = lblLanguage
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 28 Height = 29
Top = 21 Top = 21
Width = 585 Width = 585
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -360,9 +349,9 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 0
Style = csDropDownList Style = csDropDownList
TabOrder = 5 TabOrder = 4
end end
object AutoSaveIntervalInSecsComboBox: TComboBox[27] object AutoSaveIntervalInSecsComboBox: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AutoSaveIntervalInSecsLabel AnchorSideTop.Control = AutoSaveIntervalInSecsLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -370,7 +359,7 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 27
Top = 175 Top = 176
Width = 585 Width = 585
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -382,38 +371,38 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
'300' '300'
'120' '120'
) )
TabOrder = 6 TabOrder = 5
Visible = False Visible = False
end end
object AutoSaveProjectCheckBox: TCheckBox[28] object AutoSaveProjectCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AutoSaveEditorFilesCheckBox AnchorSideTop.Control = AutoSaveEditorFilesCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 124 Top = 125
Width = 170 Width = 172
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AutoSaveProjectCheckBox' Caption = 'AutoSaveProjectCheckBox'
Enabled = False Enabled = False
TabOrder = 7 TabOrder = 6
Visible = False Visible = False
end end
object AutoSaveEditorFilesCheckBox: TCheckBox[29] object AutoSaveEditorFilesCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = AskSavingOnlySessionCheckBox AnchorSideTop.Control = AskSavingOnlySessionCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 100 Top = 101
Width = 188 Width = 190
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AutoSaveEditorFilesCheckBox' Caption = 'AutoSaveEditorFilesCheckBox'
Enabled = False Enabled = False
TabOrder = 8 TabOrder = 7
Visible = False Visible = False
end end
object LoadDesktopSettingsFromFileButton: TButton[30] object LoadDesktopSettingsFromFileButton: TButton
AnchorSideLeft.Control = SaveDesktopSettingsToFileButton AnchorSideLeft.Control = SaveDesktopSettingsToFileButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblDesktopFiles AnchorSideTop.Control = lblDesktopFiles
@ -421,8 +410,8 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 299 Left = 299
Height = 26 Height = 27
Top = 229 Top = 230
Width = 292 Width = 292
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -431,16 +420,16 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'LoadDesktopSettingsFromFileButton' Caption = 'LoadDesktopSettingsFromFileButton'
OnClick = LoadDesktopSettingsFromFileButtonClick OnClick = LoadDesktopSettingsFromFileButtonClick
TabOrder = 9 TabOrder = 8
end end
object SaveDesktopSettingsToFileButton: TButton[31] object SaveDesktopSettingsToFileButton: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblDesktopFiles AnchorSideTop.Control = lblDesktopFiles
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblCenter AnchorSideRight.Control = lblCenter
Left = 6 Left = 6
Height = 26 Height = 27
Top = 229 Top = 230
Width = 287 Width = 287
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -449,19 +438,19 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
BorderSpacing.Right = 3 BorderSpacing.Right = 3
Caption = 'SaveDesktopSettingsToFileButton' Caption = 'SaveDesktopSettingsToFileButton'
OnClick = SaveDesktopSettingsToFileButtonClick OnClick = SaveDesktopSettingsToFileButtonClick
TabOrder = 10 TabOrder = 9
end end
object PanelGlyphsButtonsOptions: TPanel[32] object PanelGlyphsButtonsOptions: TPanel
AnchorSideLeft.Control = lblButtons AnchorSideLeft.Control = lblButtons
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblGlyphs AnchorSideTop.Control = lblGlyphs
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 76 Left = 72
Height = 24 Height = 24
Top = 282 Top = 284
Width = 515 Width = 519
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -471,8 +460,8 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 24 ClientHeight = 24
ClientWidth = 515 ClientWidth = 519
TabOrder = 11 TabOrder = 10
object rbBtnGlyphShowSystem: TRadioButton object rbBtnGlyphShowSystem: TRadioButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
@ -489,29 +478,29 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
Left = 157 Left = 157
Height = 24 Height = 24
Top = 0 Top = 0
Width = 148 Width = 152
Caption = 'rbBtnGlyphShowNever' Caption = 'rbBtnGlyphShowNever'
TabOrder = 1 TabOrder = 1
end end
object rbBtnGlyphShowAlways: TRadioButton object rbBtnGlyphShowAlways: TRadioButton
Left = 305 Left = 309
Height = 24 Height = 24
Top = 0 Top = 0
Width = 154 Width = 155
Caption = 'rbBtnGlyphShowAlways' Caption = 'rbBtnGlyphShowAlways'
TabOrder = 2 TabOrder = 2
end end
end end
object PanelGlyphsMenusOptions: TPanel[33] object PanelGlyphsMenusOptions: TPanel
AnchorSideLeft.Control = PanelGlyphsButtonsOptions AnchorSideLeft.Control = PanelGlyphsButtonsOptions
AnchorSideTop.Control = PanelGlyphsButtonsOptions AnchorSideTop.Control = PanelGlyphsButtonsOptions
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 76 Left = 72
Height = 24 Height = 24
Top = 309 Top = 311
Width = 515 Width = 519
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -520,15 +509,15 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 24 ClientHeight = 24
ClientWidth = 515 ClientWidth = 519
TabOrder = 12 TabOrder = 11
object rbMenuGlyphShowSystem: TRadioButton object rbMenuGlyphShowSystem: TRadioButton
AnchorSideRight.Control = PanelGlyphsMenusOptions AnchorSideRight.Control = PanelGlyphsMenusOptions
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 24 Height = 24
Top = 0 Top = 0
Width = 169 Width = 168
Caption = 'rbMenuGlyphShowSystem' Caption = 'rbMenuGlyphShowSystem'
Checked = True Checked = True
TabOrder = 0 TabOrder = 0
@ -536,15 +525,15 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
end end
object rbMenuGlyphShowNever: TRadioButton object rbMenuGlyphShowNever: TRadioButton
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 169 Left = 168
Height = 24 Height = 24
Top = 0 Top = 0
Width = 160 Width = 163
Caption = 'rbMenuGlyphShowNever' Caption = 'rbMenuGlyphShowNever'
TabOrder = 1 TabOrder = 1
end end
object rbMenuGlyphShowAlways: TRadioButton object rbMenuGlyphShowAlways: TRadioButton
Left = 329 Left = 331
Height = 24 Height = 24
Top = 0 Top = 0
Width = 166 Width = 166
@ -552,29 +541,29 @@ inherited DesktopOptionsFrame: TDesktopOptionsFrame
TabOrder = 2 TabOrder = 2
end end
end end
object lblCenter: TLabel[34] object lblCenter: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = lblDesktopFiles AnchorSideTop.Control = lblDesktopFiles
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 296 Left = 296
Height = 5 Height = 5
Top = 223 Top = 224
Width = 5 Width = 5
AutoSize = False AutoSize = False
ParentColor = False ParentColor = False
end end
object AskSavingOnlySessionCheckBox: TCheckBox[35] object AskSavingOnlySessionCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAutoSave AnchorSideTop.Control = lblAutoSave
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 76 Top = 77
Width = 204 Width = 199
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'AskSavingOnlySessionCheckBox' Caption = 'AskSavingOnlySessionCheckBox'
TabOrder = 13 TabOrder = 12
end end
end end

4
ide/frames/desktop_options.pas
View File

@ -63,7 +63,6 @@ type
lblLanguage: TLabel; lblLanguage: TLabel;
lblAutoSave: TLabel; lblAutoSave: TLabel;
LoadDesktopSettingsFromFileButton: TButton; LoadDesktopSettingsFromFileButton: TButton;
MsgViewDblClickJumpsCheckBox: TCheckBox;
MsgViewFocusCheckBox: TCheckBox; MsgViewFocusCheckBox: TCheckBox;
PanelGlyphsButtonsOptions: TPanel; PanelGlyphsButtonsOptions: TPanel;
PanelGlyphsMenusOptions: TPanel; PanelGlyphsMenusOptions: TPanel;
@ -155,7 +154,6 @@ begin
// messages view + misc // messages view + misc
lblMisc.Caption := dlgDesktopMisc; lblMisc.Caption := dlgDesktopMisc;
MsgViewDblClickJumpsCheckBox.Caption:=lisEnvJumpFromMessageToSrcOnDblClickOtherwiseSingleClick;
MsgViewFocusCheckBox.Caption:=dlgEOFocusMessagesAfterCompilation; MsgViewFocusCheckBox.Caption:=dlgEOFocusMessagesAfterCompilation;
CheckDiskChangesWithLoadingCheckBox.Caption := CheckDiskChangesWithLoadingCheckBox.Caption :=
lisCheckForDiskFileChangesViaContentRatherThanTimesta; lisCheckForDiskFileChangesViaContentRatherThanTimesta;
@ -185,7 +183,6 @@ begin
ShowHintsForMainSpeedButtons; ShowHintsForMainSpeedButtons;
// messages view // messages view
MsgViewDblClickJumpsCheckBox.Checked:=MsgViewDblClickJumps;
MsgViewFocusCheckBox.Checked:=MsgViewFocus; MsgViewFocusCheckBox.Checked:=MsgViewFocus;
// glyphs // glyphs
@ -223,7 +220,6 @@ begin
ShowHintsForMainSpeedButtons:=ShowHintsForMainSpeedButtonsCheckBox.Checked; ShowHintsForMainSpeedButtons:=ShowHintsForMainSpeedButtonsCheckBox.Checked;
// messages view // messages view
MsgViewDblClickJumps:=MsgViewDblClickJumpsCheckBox.Checked;
MsgViewFocus:=MsgViewFocusCheckBox.Checked; MsgViewFocus:=MsgViewFocusCheckBox.Checked;
// glyphs // glyphs
if rbBtnGlyphShowAlways.Checked then if rbBtnGlyphShowAlways.Checked then

12
ide/frames/msgwnd_options.lfm
View File

@ -134,4 +134,16 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
Caption = 'MWHideIconsCheckBox' Caption = 'MWHideIconsCheckBox'
TabOrder = 1 TabOrder = 1
end end
object MWDblClickJumpsCheckBox: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MWHideIconsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 209
Width = 180
BorderSpacing.Around = 6
Caption = 'MWDblClickJumpsCheckBox'
TabOrder = 2
end
end end

8
ide/frames/msgwnd_options.pas
View File

@ -39,6 +39,7 @@ type
{ TMsgWndOptionsFrame } { TMsgWndOptionsFrame }
TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor) TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor)
MWDblClickJumpsCheckBox: TCheckBox;
MWHideIconsCheckBox: TCheckBox; MWHideIconsCheckBox: TCheckBox;
MWOptsLeftBevel: TBevel; MWOptsLeftBevel: TBevel;
MWColorBox: TColorBox; MWColorBox: TColorBox;
@ -119,6 +120,7 @@ begin
MWSetAllColorsToLabel.Caption:=lisSetAllColors; MWSetAllColorsToLabel.Caption:=lisSetAllColors;
MWSetDefaultColorsButton.Caption:=lisLazarusDefault; MWSetDefaultColorsButton.Caption:=lisLazarusDefault;
MWHideIconsCheckBox.Caption := dlgHideMessagesIcons; MWHideIconsCheckBox.Caption := dlgHideMessagesIcons;
MWDblClickJumpsCheckBox.Caption:=lisEnvJumpFromMessageToSrcOnDblClickOtherwiseSingleClick;
end; end;
function TMsgWndOptionsFrame.GetTitle: String; function TMsgWndOptionsFrame.GetTitle: String;
@ -142,8 +144,9 @@ var
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; MWHideIconsCheckBox.Checked := o.HideMessagesIcons;
MWDblClickJumpsCheckBox.Checked:=o.MsgViewDblClickJumps;
fReady:=true; fReady:=true;
end; end;
@ -155,8 +158,9 @@ var
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; o.HideMessagesIcons := MWHideIconsCheckBox.Checked;
o.MsgViewDblClickJumps := MWDblClickJumpsCheckBox.Checked;
end; end;
class function TMsgWndOptionsFrame. class function TMsgWndOptionsFrame.