paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-10 19:09:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Move the option for single-click / double-click from messages options to desktop options page. Improve layout, add hints. Issue #18269.

Browse Source 
git-svn-id: trunk@46734 -
This commit is contained in:
juha 2014-10-31 23:19:06 +00:00
parent 59938e4efe
commit c4286f5665
6 changed files with 226 additions and 220 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/diskdiffsdialog.pas
View File

@ -351,7 +351,7 @@ begin
DiffSynEdit.Lines.Text:=lisDiskDiffClickOnOneOfTheAboveItemsToSeeTheDiff; DiffSynEdit.Lines.Text:=lisDiskDiffClickOnOneOfTheAboveItemsToSeeTheDiff;
RevertAllButton.Caption:=lisDiskDiffRevertAll; RevertAllButton.Caption:=lisDiskDiffRevertAll;
IgnoreDiskChangesButton.Caption:=lisDiskDiffIgnoreDiskChanges; IgnoreDiskChangesButton.Caption:=lisDiskDiffIgnoreDiskChanges;
CheckDiskChangesWithLoadingCheckBox.Caption:=lisCheckForDiskFileChangesViaContentRatherThanTimesta; CheckDiskChangesWithLoadingCheckBox.Caption:=lisCheckForDiskFileChangesViaContent;
CheckDiskChangesWithLoadingCheckBox.Checked:=EnvironmentOptions.CheckDiskChangesWithLoading; CheckDiskChangesWithLoadingCheckBox.Checked:=EnvironmentOptions.CheckDiskChangesWithLoading;
end; end;

242
ide/frames/desktop_options.lfm
View File

@ -1,14 +1,14 @@
object DesktopOptionsFrame: TDesktopOptionsFrame object DesktopOptionsFrame: TDesktopOptionsFrame
Left = 0 Left = 0
Height = 512 Height = 521
Top = 0 Top = 0
Width = 597 Width = 597
ClientHeight = 512 ClientHeight = 521
ClientWidth = 597 ClientWidth = 597
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
DesignLeft = 573 DesignLeft = 282
DesignTop = 261 DesignTop = 91
object BevelLanguageLeft: TBevel object BevelLanguageLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblLanguage AnchorSideTop.Control = lblLanguage
@ -16,7 +16,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = lblLanguage AnchorSideRight.Control = lblLanguage
Left = 0 Left = 0
Height = 3 Height = 3
Top = 6 Top = 9
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -24,9 +24,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
object lblLanguage: TLabel object lblLanguage: TLabel
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 70 Left = 70
Height = 15 Height = 20
Top = 0 Top = 0
Width = 71 Width = 85
Caption = 'lblLanguage' Caption = 'lblLanguage'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -39,49 +39,49 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 147 Left = 161
Height = 3 Height = 3
Top = 6 Top = 9
Width = 450 Width = 436
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object BevelAutoSaveLeft: TBevel object BevelAutoSaveLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAutoSave AnchorSideTop.Control = lblCheckAndAutoSave
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblAutoSave AnchorSideRight.Control = lblCheckAndAutoSave
Left = 0 Left = 0
Height = 3 Height = 3
Top = 62 Top = 69
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblAutoSave: TLabel object lblCheckAndAutoSave: TLabel
AnchorSideTop.Control = LanguageComboBox AnchorSideTop.Control = LanguageComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 20
Top = 56 Top = 60
Width = 71 Width = 154
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblAutoSave' Caption = 'lblCheckAndAutoSave'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object BevelAutoSizeRight: TBevel object BevelAutoSizeRight: TBevel
AnchorSideLeft.Control = lblAutoSave AnchorSideLeft.Control = lblCheckAndAutoSave
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblAutoSave AnchorSideTop.Control = lblCheckAndAutoSave
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 147 Left = 230
Height = 3 Height = 3
Top = 62 Top = 69
Width = 450 Width = 367
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
@ -90,9 +90,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = AutoSaveProjectCheckBox AnchorSideTop.Control = AutoSaveProjectCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 15 Height = 20
Top = 155 Top = 182
Width = 157 Width = 189
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'AutoSaveIntervalInSecsLabel' Caption = 'AutoSaveIntervalInSecsLabel'
@ -107,7 +107,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = lblDesktopFiles AnchorSideRight.Control = lblDesktopFiles
Left = 0 Left = 0
Height = 3 Height = 3
Top = 215 Top = 251
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -116,9 +116,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = AutoSaveIntervalInSecsComboBox AnchorSideTop.Control = AutoSaveIntervalInSecsComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 20
Top = 209 Top = 242
Width = 90 Width = 106
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblDesktopFiles' Caption = 'lblDesktopFiles'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -132,10 +132,10 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 166 Left = 182
Height = 3 Height = 3
Top = 215 Top = 251
Width = 431 Width = 415
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
@ -146,7 +146,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = lblGlyphs AnchorSideRight.Control = lblGlyphs
Left = 0 Left = 0
Height = 3 Height = 3
Top = 269 Top = 313
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -155,9 +155,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = SaveDesktopSettingsToFileButton AnchorSideTop.Control = SaveDesktopSettingsToFileButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 20
Top = 263 Top = 304
Width = 54 Width = 65
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblGlyphs' Caption = 'lblGlyphs'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -171,10 +171,10 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 130 Left = 141
Height = 3 Height = 3
Top = 269 Top = 313
Width = 467 Width = 456
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
@ -185,7 +185,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = lblHints AnchorSideRight.Control = lblHints
Left = 0 Left = 0
Height = 3 Height = 3
Top = 347 Top = 396
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -194,9 +194,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = PanelGlyphsMenusOptions AnchorSideTop.Control = PanelGlyphsMenusOptions
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 20
Top = 341 Top = 387
Width = 45 Width = 54
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblHints' Caption = 'lblHints'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -210,49 +210,49 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 121 Left = 130
Height = 3 Height = 3
Top = 347 Top = 396
Width = 476 Width = 467
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
object Bevel1MiscLeft: TBevel object Bevel1MiscLeft: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMisc AnchorSideTop.Control = lblMouseAction
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lblMisc AnchorSideRight.Control = lblMouseAction
Left = 0 Left = 0
Height = 3 Height = 3
Top = 422 Top = 470
Width = 64 Width = 64
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
end end
object lblMisc: TLabel object lblMouseAction: TLabel
AnchorSideTop.Control = ShowHintsForMainSpeedButtonsCheckBox AnchorSideTop.Control = ShowHintsForComponentPaletteCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 20
Top = 416 Top = 461
Width = 41 Width = 110
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'lblMisc' Caption = 'lblMouseAction'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object Bevel1MiscRight: TBevel object Bevel1MiscRight: TBevel
AnchorSideLeft.Control = lblMisc AnchorSideLeft.Control = lblMouseAction
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblMisc AnchorSideTop.Control = lblMouseAction
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 117 Left = 186
Height = 3 Height = 3
Top = 422 Top = 470
Width = 480 Width = 411
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
end end
@ -261,9 +261,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = PanelGlyphsButtonsOptions AnchorSideTop.Control = PanelGlyphsButtonsOptions
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 20
Top = 289 Top = 332
Width = 60 Width = 73
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lblButtons' Caption = 'lblButtons'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -275,9 +275,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = PanelGlyphsMenusOptions AnchorSideTop.Control = PanelGlyphsMenusOptions
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 20
Top = 316 Top = 359
Width = 53 Width = 64
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lblMenus' Caption = 'lblMenus'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -286,37 +286,38 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
end end
object CheckDiskChangesWithLoadingCheckBox: TCheckBox object CheckDiskChangesWithLoadingCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMisc AnchorSideTop.Control = lblCheckAndAutoSave
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 431 Top = 80
Width = 251 Width = 296
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'CheckDiskChangesWithLoadingCheckBox' Caption = 'CheckDiskChangesWithLoadingCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object ShowHintsForComponentPaletteCheckBox: TCheckBox object ShowHintsForComponentPaletteCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblHints AnchorSideTop.Control = ShowHintsForMainSpeedButtonsCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 362 Top = 431
Width = 259 Width = 303
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'ShowHintsForComponentPaletteCheckBox' Caption = 'ShowHintsForComponentPaletteCheckBox'
TabOrder = 1 TabOrder = 1
end end
object ShowHintsForMainSpeedButtonsCheckBox: TCheckBox object ShowHintsForMainSpeedButtonsCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = ShowHintsForComponentPaletteCheckBox AnchorSideTop.Control = lblHints
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 386 Top = 407
Width = 259 Width = 304
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShowHintsForMainSpeedButtonsCheckBox' Caption = 'ShowHintsForMainSpeedButtonsCheckBox'
TabOrder = 2 TabOrder = 2
@ -328,14 +329,14 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 28
Top = 21 Top = 26
Width = 585 Width = 585
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 0 ItemHeight = 20
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
Style = csDropDownList Style = csDropDownList
@ -348,13 +349,13 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 27 Height = 28
Top = 176 Top = 208
Width = 585 Width = 585
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 20
Items.Strings = ( Items.Strings = (
'1200' '1200'
'600' '600'
@ -370,8 +371,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 125 Top = 152
Width = 172 Width = 197
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AutoSaveProjectCheckBox' Caption = 'AutoSaveProjectCheckBox'
Enabled = False Enabled = False
@ -386,8 +387,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 101 Top = 128
Width = 190 Width = 220
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AutoSaveEditorFilesCheckBox' Caption = 'AutoSaveEditorFilesCheckBox'
Enabled = False Enabled = False
@ -404,8 +405,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 299 Left = 299
Height = 27 Height = 30
Top = 230 Top = 268
Width = 292 Width = 292
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -422,8 +423,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblCenter AnchorSideRight.Control = lblCenter
Left = 6 Left = 6
Height = 27 Height = 30
Top = 230 Top = 268
Width = 287 Width = 287
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -441,10 +442,10 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 72 Left = 85
Height = 24 Height = 24
Top = 284 Top = 330
Width = 519 Width = 506
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -454,14 +455,14 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 24 ClientHeight = 24
ClientWidth = 519 ClientWidth = 506
TabOrder = 9 TabOrder = 9
object rbBtnGlyphShowSystem: TRadioButton object rbBtnGlyphShowSystem: TRadioButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 24 Height = 24
Top = 0 Top = 0
Width = 157 Width = 181
Caption = 'rbBtnGlyphShowSystem' Caption = 'rbBtnGlyphShowSystem'
Checked = True Checked = True
TabOrder = 0 TabOrder = 0
@ -469,18 +470,18 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
end end
object rbBtnGlyphShowNever: TRadioButton object rbBtnGlyphShowNever: TRadioButton
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 157 Left = 181
Height = 24 Height = 24
Top = 0 Top = 0
Width = 152 Width = 173
Caption = 'rbBtnGlyphShowNever' Caption = 'rbBtnGlyphShowNever'
TabOrder = 1 TabOrder = 1
end end
object rbBtnGlyphShowAlways: TRadioButton object rbBtnGlyphShowAlways: TRadioButton
Left = 309 Left = 354
Height = 24 Height = 24
Top = 0 Top = 0
Width = 155 Width = 180
Caption = 'rbBtnGlyphShowAlways' Caption = 'rbBtnGlyphShowAlways'
TabOrder = 2 TabOrder = 2
end end
@ -491,10 +492,10 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 72 Left = 85
Height = 24 Height = 24
Top = 311 Top = 357
Width = 519 Width = 506
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -503,7 +504,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 24 ClientHeight = 24
ClientWidth = 519 ClientWidth = 506
TabOrder = 10 TabOrder = 10
object rbMenuGlyphShowSystem: TRadioButton object rbMenuGlyphShowSystem: TRadioButton
AnchorSideRight.Control = PanelGlyphsMenusOptions AnchorSideRight.Control = PanelGlyphsMenusOptions
@ -511,7 +512,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
Left = 0 Left = 0
Height = 24 Height = 24
Top = 0 Top = 0
Width = 168 Width = 196
Caption = 'rbMenuGlyphShowSystem' Caption = 'rbMenuGlyphShowSystem'
Checked = True Checked = True
TabOrder = 0 TabOrder = 0
@ -519,18 +520,18 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
end end
object rbMenuGlyphShowNever: TRadioButton object rbMenuGlyphShowNever: TRadioButton
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 168 Left = 196
Height = 24 Height = 24
Top = 0 Top = 0
Width = 163 Width = 188
Caption = 'rbMenuGlyphShowNever' Caption = 'rbMenuGlyphShowNever'
TabOrder = 1 TabOrder = 1
end end
object rbMenuGlyphShowAlways: TRadioButton object rbMenuGlyphShowAlways: TRadioButton
Left = 331 Left = 384
Height = 24 Height = 24
Top = 0 Top = 0
Width = 166 Width = 195
Caption = 'rbMenuGlyphShowAlways' Caption = 'rbMenuGlyphShowAlways'
TabOrder = 2 TabOrder = 2
end end
@ -542,24 +543,37 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 296 Left = 296
Height = 5 Height = 5
Top = 224 Top = 262
Width = 5 Width = 5
AutoSize = False AutoSize = False
ParentColor = False ParentColor = False
end end
object AskSavingOnlySessionCheckBox: TCheckBox object AskSavingOnlySessionCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblAutoSave AnchorSideTop.Control = CheckDiskChangesWithLoadingCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 77 Top = 104
Width = 199 Width = 234
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'AskSavingOnlySessionCheckBox' Caption = 'AskSavingOnlySessionCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 11 TabOrder = 11
end end
object PreferDoubleClickCheckBox: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblMouseAction
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 481
Width = 207
BorderSpacing.Left = 6
Caption = 'PreferDoubleClickCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 12
end
end end

45
ide/frames/desktop_options.pas
View File

@ -51,7 +51,9 @@ type
BevelGlyphsLeft: TBevel; BevelGlyphsLeft: TBevel;
BevelGlyphsRight: TBevel; BevelGlyphsRight: TBevel;
BevelHintsLeft: TBevel; BevelHintsLeft: TBevel;
PreferDoubleClickCheckBox: TCheckBox;
CheckDiskChangesWithLoadingCheckBox: TCheckBox; CheckDiskChangesWithLoadingCheckBox: TCheckBox;
lblCheckAndAutoSave: TLabel;
lblButtons: TLabel; lblButtons: TLabel;
lblCenter: TLabel; lblCenter: TLabel;
lblMenus: TLabel; lblMenus: TLabel;
@ -59,9 +61,8 @@ type
LanguageComboBox: TComboBox; LanguageComboBox: TComboBox;
lblDesktopFiles: TLabel; lblDesktopFiles: TLabel;
lblGlyphs: TLabel; lblGlyphs: TLabel;
lblMisc: TLabel; lblMouseAction: TLabel;
lblLanguage: TLabel; lblLanguage: TLabel;
lblAutoSave: TLabel;
LoadDesktopSettingsFromFileButton: TButton; LoadDesktopSettingsFromFileButton: TButton;
PanelGlyphsButtonsOptions: TPanel; PanelGlyphsButtonsOptions: TPanel;
PanelGlyphsMenusOptions: TPanel; PanelGlyphsMenusOptions: TPanel;
@ -124,10 +125,13 @@ begin
LanguageComboBox.Items.Assign(sl); LanguageComboBox.Items.Assign(sl);
sl.Free; sl.Free;
// auto save // check and auto save files
lblAutoSave.Caption := dlgAutoSave; lblCheckAndAutoSave.Caption := dlgCheckAndAutoSaveFiles;
CheckDiskChangesWithLoadingCheckBox.Caption := lisCheckForDiskFileChangesViaContent;
CheckDiskChangesWithLoadingCheckBox.Hint := lisSlowerButMoreAccurate;
AskSavingOnlySessionCheckBox.Caption := lisAskBeforeSavingProjectSSession; AskSavingOnlySessionCheckBox.Caption := lisAskBeforeSavingProjectSSession;
AskSavingOnlySessionCheckBox.Hint := lisIfOnlySessionInfoChangedThenAsk; AskSavingOnlySessionCheckBox.Hint := lisIfOnlySessionInfoChangedThenAsk;
// The following 3 are now hidden.
AutoSaveEditorFilesCheckBox.Caption := dlgEdFiles; AutoSaveEditorFilesCheckBox.Caption := dlgEdFiles;
AutoSaveProjectCheckBox.Caption := dlgProject; AutoSaveProjectCheckBox.Caption := dlgProject;
AutoSaveIntervalInSecsLabel.Caption := dlgIntvInSec; AutoSaveIntervalInSecsLabel.Caption := dlgIntvInSec;
@ -150,13 +154,13 @@ begin
// hints // hints
lblHints.Caption := dlgDesktopHints; lblHints.Caption := dlgDesktopHints;
ShowHintsForComponentPaletteCheckBox.Caption := dlgPalHints;
ShowHintsForMainSpeedButtonsCheckBox.Caption := dlgSpBHints; ShowHintsForMainSpeedButtonsCheckBox.Caption := dlgSpBHints;
ShowHintsForComponentPaletteCheckBox.Caption := dlgPalHints;
// misc // mouse action
lblMisc.Caption := dlgDesktopMisc; lblMouseAction.Caption := dlgMouseAction;
CheckDiskChangesWithLoadingCheckBox.Caption := PreferDoubleClickCheckBox.Caption := dlgPreferDoubleClickOverSingleClick;
lisCheckForDiskFileChangesViaContentRatherThanTimesta; PreferDoubleClickCheckBox.Hint := dlgCurrentlyRespectedByMessagesWindow;
end; end;
procedure TDesktopOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TDesktopOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
@ -167,7 +171,8 @@ begin
LanguageComboBox.Text:=LangIDToCaption(LanguageID); LanguageComboBox.Text:=LangIDToCaption(LanguageID);
//debugln('TEnvironmentOptionsDialog.ReadSettings LanguageComboBox.ItemIndex=',dbgs(LanguageComboBox.ItemIndex),' LanguageID="',LanguageID,'" LanguageComboBox.Text="',LanguageComboBox.Text,'"'); //debugln('TEnvironmentOptionsDialog.ReadSettings LanguageComboBox.ItemIndex=',dbgs(LanguageComboBox.ItemIndex),' LanguageID="',LanguageID,'" LanguageComboBox.Text="',LanguageComboBox.Text,'"');
// auto save // check and auto save files
CheckDiskChangesWithLoadingCheckBox.Checked:=CheckDiskChangesWithLoading;
AskSavingOnlySessionCheckBox.Checked:=AskSaveSessionOnly; AskSavingOnlySessionCheckBox.Checked:=AskSaveSessionOnly;
AutoSaveEditorFilesCheckBox.Checked:=AutoSaveEditorFiles; AutoSaveEditorFilesCheckBox.Checked:=AutoSaveEditorFiles;
AutoSaveProjectCheckBox.Checked:=AutoSaveProject; AutoSaveProjectCheckBox.Checked:=AutoSaveProject;
@ -175,12 +180,8 @@ begin
,IntToStr(AutoSaveIntervalInSecs),cstCaseInsensitive); ,IntToStr(AutoSaveIntervalInSecs),cstCaseInsensitive);
// hints // hints
CheckDiskChangesWithLoadingCheckBox.Checked:= ShowHintsForMainSpeedButtonsCheckBox.Checked:=ShowHintsForMainSpeedButtons;
CheckDiskChangesWithLoading; ShowHintsForComponentPaletteCheckBox.Checked:=ShowHintsForComponentPalette;
ShowHintsForComponentPaletteCheckBox.Checked:=
ShowHintsForComponentPalette;
ShowHintsForMainSpeedButtonsCheckBox.Checked:=
ShowHintsForMainSpeedButtons;
// glyphs // glyphs
case ShowButtonGlyphs of case ShowButtonGlyphs of
@ -193,6 +194,9 @@ begin
sbgNever: rbMenuGlyphShowNever.Checked := True; sbgNever: rbMenuGlyphShowNever.Checked := True;
sbgSystem: rbMenuGlyphShowSystem.Checked := True; sbgSystem: rbMenuGlyphShowSystem.Checked := True;
end; end;
// mouse action
PreferDoubleClickCheckBox.Checked := MsgViewDblClickJumps;
end; end;
end; end;
@ -204,7 +208,8 @@ begin
LanguageID:=CaptionToLangID(LanguageComboBox.Text); LanguageID:=CaptionToLangID(LanguageComboBox.Text);
//debugln('TEnvironmentOptionsDialog.WriteSettings A LanguageID="',LanguageID,'" LanguageComboBox.ItemIndex=',dbgs(LanguageComboBox.ItemIndex),' LanguageComboBox.Text=',LanguageComboBox.Text); //debugln('TEnvironmentOptionsDialog.WriteSettings A LanguageID="',LanguageID,'" LanguageComboBox.ItemIndex=',dbgs(LanguageComboBox.ItemIndex),' LanguageComboBox.Text=',LanguageComboBox.Text);
// auto save // check and auto save files
CheckDiskChangesWithLoading:=CheckDiskChangesWithLoadingCheckBox.Checked;
AskSaveSessionOnly:=AskSavingOnlySessionCheckBox.Checked; AskSaveSessionOnly:=AskSavingOnlySessionCheckBox.Checked;
AutoSaveEditorFiles:=AutoSaveEditorFilesCheckBox.Checked; AutoSaveEditorFiles:=AutoSaveEditorFilesCheckBox.Checked;
AutoSaveProject:=AutoSaveProjectCheckBox.Checked; AutoSaveProject:=AutoSaveProjectCheckBox.Checked;
@ -212,9 +217,8 @@ begin
AutoSaveIntervalInSecsComboBox.Text,AutoSaveIntervalInSecs); AutoSaveIntervalInSecsComboBox.Text,AutoSaveIntervalInSecs);
// hints // hints
CheckDiskChangesWithLoading:=CheckDiskChangesWithLoadingCheckBox.Checked;
ShowHintsForComponentPalette:=ShowHintsForComponentPaletteCheckBox.Checked;
ShowHintsForMainSpeedButtons:=ShowHintsForMainSpeedButtonsCheckBox.Checked; ShowHintsForMainSpeedButtons:=ShowHintsForMainSpeedButtonsCheckBox.Checked;
ShowHintsForComponentPalette:=ShowHintsForComponentPaletteCheckBox.Checked;
// glyphs // glyphs
if rbBtnGlyphShowAlways.Checked then if rbBtnGlyphShowAlways.Checked then
@ -231,6 +235,9 @@ begin
ShowMenuGlyphs := sbgNever ShowMenuGlyphs := sbgNever
else else
ShowMenuGlyphs := sbgSystem; ShowMenuGlyphs := sbgSystem;
// mouse action
MsgViewDblClickJumps := PreferDoubleClickCheckBox.Checked;
end; end;
end; end;

83
ide/frames/msgwnd_options.lfm
View File

@ -19,7 +19,7 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
Width = 495 Width = 495
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
Caption = 'MWColorsGroupBox' Caption = 'MWColorsGroupBox'
ClientHeight = 155 ClientHeight = 147
ClientWidth = 491 ClientWidth = 491
TabOrder = 0 TabOrder = 0
object MWColorListBox: TColorListBox object MWColorListBox: TColorListBox
@ -28,7 +28,7 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideRight.Control = MWSpeedSetColorsGroupBox AnchorSideRight.Control = MWSpeedSetColorsGroupBox
AnchorSideBottom.Control = MWColorBox AnchorSideBottom.Control = MWColorBox
Left = 6 Left = 6
Height = 108 Height = 103
Top = 6 Top = 6
Width = 303 Width = 303
Style = [cbCustomColors] Style = [cbCustomColors]
@ -38,7 +38,6 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
ItemHeight = 0 ItemHeight = 0
OnSelectionChange = MWColorListBoxSelectionChange OnSelectionChange = MWColorListBoxSelectionChange
TabOrder = 0 TabOrder = 0
TopIndex = -1
end end
object MWColorBox: TColorBox object MWColorBox: TColorBox
AnchorSideLeft.Control = MWColorsGroupBox AnchorSideLeft.Control = MWColorsGroupBox
@ -46,19 +45,19 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideBottom.Control = MWColorsGroupBox AnchorSideBottom.Control = MWColorsGroupBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 26
Top = 120 Top = 115
Width = 303 Width = 303
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColor, cbPrettyNames]
Anchors = [akLeft, akRight, akBottom] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ItemHeight = 0 ItemHeight = 20
OnChange = MWColorBoxChange OnChange = MWColorBoxChange
TabOrder = 1 TabOrder = 1
end end
object MWSpeedSetColorsGroupBox: TGroupBox object MWSpeedSetColorsGroupBox: TGroupBox
Left = 315 Left = 315
Height = 143 Height = 135
Top = 6 Top = 6
Width = 170 Width = 170
Align = alRight Align = alRight
@ -66,14 +65,14 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
Caption = 'MWSpeedSetColorsGroupBox' Caption = 'MWSpeedSetColorsGroupBox'
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 126 ClientHeight = 110
ClientWidth = 166 ClientWidth = 166
TabOrder = 2 TabOrder = 2
object MWSetEditorColorsButton: TButton object MWSetEditorColorsButton: TButton
Left = 0 Left = 0
Height = 27 Height = 30
Top = 0 Top = 0
Width = 166 Width = 209
AutoSize = True AutoSize = True
Caption = 'MWSetEditorColorsButton' Caption = 'MWSetEditorColorsButton'
OnClick = MWSetEditorColorsButtonClick OnClick = MWSetEditorColorsButtonClick
@ -83,9 +82,9 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 27 Height = 30
Top = 33 Top = 36
Width = 166 Width = 209
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -101,9 +100,9 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideTop.Control = MWColorsGroupBox AnchorSideTop.Control = MWColorsGroupBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 70 Left = 70
Height = 15 Height = 20
Top = 178 Top = 178
Width = 93 Width = 115
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 10 BorderSpacing.Right = 10
@ -117,7 +116,7 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 0 Left = 0
Height = 3 Height = 3
Top = 184 Top = 187
Width = 60 Width = 60
end end
object MWOptsRightBevel: TBevel object MWOptsRightBevel: TBevel
@ -127,10 +126,10 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 173 Left = 195
Height = 3 Height = 3
Top = 184 Top = 187
Width = 322 Width = 300
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
end end
object MWHideIconsCheckBox: TCheckBox object MWHideIconsCheckBox: TCheckBox
@ -139,41 +138,27 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 199 Top = 204
Width = 154 Width = 181
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'MWHideIconsCheckBox' Caption = 'MWHideIconsCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 1 TabOrder = 1
end end
object MWDblClickJumpsCheckBox: TCheckBox object MWFocusCheckBox: TCheckBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MWAlwaysDrawFocusedCheckBox AnchorSideTop.Control = MWAlwaysDrawFocusedCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 247 Top = 252
Width = 180 Width = 152
BorderSpacing.Left = 6
Caption = 'MWDblClickJumpsCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object MWFocusCheckBox: TCheckBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MWDblClickJumpsCheckBox
AnchorSideTop.Side = asrBottom
Left = 6
Height = 24
Top = 271
Width = 132
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'MWFocusCheckBox' Caption = 'MWFocusCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 3 TabOrder = 2
end end
object MWAlwaysDrawFocusedCheckBox: TCheckBox object MWAlwaysDrawFocusedCheckBox: TCheckBox
AnchorSideLeft.Control = MWHideIconsCheckBox AnchorSideLeft.Control = MWHideIconsCheckBox
@ -181,33 +166,33 @@ object MsgWndOptionsFrame: TMsgWndOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 24 Height = 24
Top = 223 Top = 228
Width = 212 Width = 250
Caption = 'MWAlwaysDrawFocusedCheckBox' Caption = 'MWAlwaysDrawFocusedCheckBox'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 4 TabOrder = 3
end end
object MWMaxProcsSpinEdit: TSpinEdit object MWMaxProcsSpinEdit: TSpinEdit
AnchorSideLeft.Control = MWMaxProcsLabel AnchorSideLeft.Control = MWMaxProcsLabel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MWFocusCheckBox AnchorSideTop.Control = MWFocusCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 110 Left = 134
Height = 25 Height = 28
Top = 295 Top = 276
Width = 50 Width = 50
BorderSpacing.Left = 2 BorderSpacing.Left = 2
TabOrder = 5 TabOrder = 4
end end
object MWMaxProcsLabel: TLabel object MWMaxProcsLabel: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = MWMaxProcsSpinEdit AnchorSideTop.Control = MWMaxProcsSpinEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 15 Height = 20
Top = 300 Top = 280
Width = 102 Width = 126
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'MWMaxProcsLabel' Caption = 'MWMaxProcsLabel'
ParentColor = False ParentColor = False

9
ide/frames/msgwnd_options.pas
View File

@ -41,7 +41,6 @@ type
TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor) TMsgWndOptionsFrame = class(TAbstractIDEOptionsEditor)
MWAlwaysDrawFocusedCheckBox: TCheckBox; MWAlwaysDrawFocusedCheckBox: TCheckBox;
MWDblClickJumpsCheckBox: TCheckBox;
MWFocusCheckBox: TCheckBox; MWFocusCheckBox: TCheckBox;
MWHideIconsCheckBox: TCheckBox; MWHideIconsCheckBox: TCheckBox;
MWMaxProcsLabel: TLabel; MWMaxProcsLabel: TLabel;
@ -156,7 +155,6 @@ begin
MWAlwaysDrawFocusedCheckBox.Caption:=lisAlwaysDrawSelectedItemsFocused; MWAlwaysDrawFocusedCheckBox.Caption:=lisAlwaysDrawSelectedItemsFocused;
MWAlwaysDrawFocusedCheckBox.Hint:= MWAlwaysDrawFocusedCheckBox.Hint:=
lisDrawTheSelectionFocusedEvenIfTheMessagesWindowHasN; lisDrawTheSelectionFocusedEvenIfTheMessagesWindowHasN;
MWDblClickJumpsCheckBox.Caption:=lisEnvJumpFromMessageToSrcOnDblClickOtherwiseSingleClick;
MWFocusCheckBox.Caption:=dlgEOFocusMessagesAfterCompilation; MWFocusCheckBox.Caption:=dlgEOFocusMessagesAfterCompilation;
MWMaxProcsLabel.Caption:=Format(lisMaximumParallelProcesses0MeansDefault, [ MWMaxProcsLabel.Caption:=Format(lisMaximumParallelProcesses0MeansDefault, [
IntToStr(DefaultMaxProcessCount)]); IntToStr(DefaultMaxProcessCount)]);
@ -184,10 +182,8 @@ begin
MWColorListBox.Colors[ord(c)] := o.MsgViewColors[c]; MWColorListBox.Colors[ord(c)] := o.MsgViewColors[c];
MWHideIconsCheckBox.Checked := o.HideMessagesIcons; MWHideIconsCheckBox.Checked := o.HideMessagesIcons;
MWAlwaysDrawFocusedCheckBox.Checked := o.MsgViewAlwaysDrawFocused; MWAlwaysDrawFocusedCheckBox.Checked := o.MsgViewAlwaysDrawFocused;
MWDblClickJumpsCheckBox.Checked:=o.MsgViewDblClickJumps; MWFocusCheckBox.Checked := o.MsgViewFocus;
MWFocusCheckBox.Checked:=o.MsgViewFocus; MWMaxProcsSpinEdit.Value := o.MaxExtToolsInParallel;
MWMaxProcsSpinEdit.Value:=o.MaxExtToolsInParallel;
fReady:=true; fReady:=true;
end; end;
@ -201,7 +197,6 @@ begin
o.MsgViewColors[c] := MWColorListBox.Colors[ord(c)]; o.MsgViewColors[c] := MWColorListBox.Colors[ord(c)];
o.HideMessagesIcons := MWHideIconsCheckBox.Checked; o.HideMessagesIcons := MWHideIconsCheckBox.Checked;
o.MsgViewAlwaysDrawFocused := MWAlwaysDrawFocusedCheckBox.Checked; o.MsgViewAlwaysDrawFocused := MWAlwaysDrawFocusedCheckBox.Checked;
o.MsgViewDblClickJumps := MWDblClickJumpsCheckBox.Checked;
o.MsgViewFocus := MWFocusCheckBox.Checked; o.MsgViewFocus := MWFocusCheckBox.Checked;
o.MaxExtToolsInParallel := MWMaxProcsSpinEdit.Value; o.MaxExtToolsInParallel := MWMaxProcsSpinEdit.Value;
end; end;

61
ide/lazarusidestrconsts.pas
View File

@ -1132,7 +1132,6 @@ resourcestring
dlgGroupCodetools = 'Codetools'; dlgGroupCodetools = 'Codetools';
dlgGroupCodeExplorer = 'Code Explorer'; dlgGroupCodeExplorer = 'Code Explorer';
dlgGroupDebugger = 'Debugger'; dlgGroupDebugger = 'Debugger';
// Options dialog // Options dialog
dlgIDEOptions = 'IDE Options'; dlgIDEOptions = 'IDE Options';
dlgBakNoSubDirectory = '(no subdirectory)'; dlgBakNoSubDirectory = '(no subdirectory)';
@ -1140,8 +1139,9 @@ resourcestring
lisMaximumParallelProcesses0MeansDefault = 'Maximum parallel processes, 0 ' lisMaximumParallelProcesses0MeansDefault = 'Maximum parallel processes, 0 '
+'means default (%s)'; +'means default (%s)';
lisMessagesWindow = 'Messages Window'; lisMessagesWindow = 'Messages Window';
lisCheckForDiskFileChangesViaContentRatherThanTimesta = 'Check for disk file' lisCheckForDiskFileChangesViaContent = 'Check for disk file changes via content '
+' changes via content rather than timestamp'; +'rather than timestamp';
lisSlowerButMoreAccurate = 'Slower but more accurate.';
// Search dialog // Search dialog
dlgSearchCaption = 'Searching ...'; dlgSearchCaption = 'Searching ...';
@ -1199,12 +1199,6 @@ resourcestring
lisCMParameter = 'Parameter'; lisCMParameter = 'Parameter';
lisInsertMacro = 'Insert Macro'; lisInsertMacro = 'Insert Macro';
lisCTPleaseSelectAMacro = 'please select a macro'; lisCTPleaseSelectAMacro = 'please select a macro';
dlgEnvLanguage = 'Language';
dlgEnvLanguageHint = 'Language of all IDE strings. Restart IDE after changing it for best result.';
dlgAutoSave = 'Auto Save';
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
lisIfOnlySessionInfoChangedThenAsk = 'If only the session info changed, ask about saving it.';
dlgEdFiles = 'Editor Files';
dlgEnvProject = 'Tabs for project'; dlgEnvProject = 'Tabs for project';
lisCenterALostWindow = 'Center a lost window'; lisCenterALostWindow = 'Center a lost window';
lisNumberOfFilesToConvert = 'Number of files to convert: %s'; lisNumberOfFilesToConvert = 'Number of files to convert: %s';
@ -1216,10 +1210,31 @@ resourcestring
lisFilesNotInASCIINorUTF8Encoding = 'Files not in ASCII nor UTF-8 encoding'; lisFilesNotInASCIINorUTF8Encoding = 'Files not in ASCII nor UTF-8 encoding';
podAddPackageUnitToUsesSection = 'Add package unit to uses section'; podAddPackageUnitToUsesSection = 'Add package unit to uses section';
lisCodeBrowser = 'Code Browser'; lisCodeBrowser = 'Code Browser';
// Desktop options
dlgEnvLanguage = 'Language';
dlgEnvLanguageHint = 'Language of all IDE strings. Restart IDE after changing it for best result.';
dlgCheckAndAutoSaveFiles = 'Check and Auto Save Files';
lisAskBeforeSavingProjectSSession = 'Ask before saving project''s session';
lisIfOnlySessionInfoChangedThenAsk = 'If only the session info changed, ask about saving it.';
dlgEdFiles = 'Editor Files';
dlgIntvInSec = 'Interval in secs'; dlgIntvInSec = 'Interval in secs';
dlgDesktopFiles = 'Desktop Files'; dlgDesktopFiles = 'Desktop Files';
dlgSaveDFile = 'Save desktop settings to file'; dlgSaveDFile = 'Save desktop settings to file';
dlgLoadDFile = 'Load desktop settings from file'; dlgLoadDFile = 'Load desktop settings from file';
dlgDesktopHints = 'Hints';
dlgDesktopButtons = 'Buttons - ';
dlgDesktopMenus = 'Menus - ';
dlgPalHints = 'Hints for component palette';
dlgSpBHints = 'Hints for main speed buttons (open, save, ...)';
dlgMouseAction = 'Mouse Action';
dlgPreferDoubleClickOverSingleClick = 'Prefer double-click over single-click';
dlgCurrentlyRespectedByMessagesWindow = 'Currently respected by messages window, '
+'jump history and search results.';
lisSavedSuccessfully = 'Saved successfully';
lisLoadedSuccessfully = 'Loaded successfully';
// Window options
dlgSingleTaskBarButton = 'Show single button in TaskBar'; dlgSingleTaskBarButton = 'Show single button in TaskBar';
dlgHideIDEOnRun = 'Hide IDE windows on run'; dlgHideIDEOnRun = 'Hide IDE windows on run';
dlgHideIDEOnRunHint = 'Do not show the IDE at all while program is running.'; dlgHideIDEOnRunHint = 'Do not show the IDE at all while program is running.';
@ -1227,29 +1242,11 @@ resourcestring
+'button in the taskbar for the whole IDE, instead of one per window. Some' +'button in the taskbar for the whole IDE, instead of one per window. Some'
+' Linux Window Managers like Cinnamon do not support this and always show' +' Linux Window Managers like Cinnamon do not support this and always show'
+' one button per window.'; +' one button per window.';
dlgHideMessagesIcons = 'Hide Messages Icons';
lisAlwaysDrawSelectedItemsFocused = 'Always draw selected items focused';
lisDrawTheSelectionFocusedEvenIfTheMessagesWindowHasN = 'Draw the selection '
+'focused, even if the Messages window has no focus. Use this if your '
+'theme has a hardly visible unfocused drawing.';
lisEditorColors = 'Editor Colors';
lisIDETitleStartsWithProjectName = 'IDE title starts with project name'; lisIDETitleStartsWithProjectName = 'IDE title starts with project name';
lisIDETitleShowsProjectDir = 'IDE title shows project directory'; lisIDETitleShowsProjectDir = 'IDE title shows project directory';
lisIDETitleShowsBuildMode = 'IDE title shows selected build mode'; lisIDETitleShowsBuildMode = 'IDE title shows selected build mode';
lisWindowMenuWithNameForDesignedForm = 'Window menu shows designed form''s name instead of caption'; lisWindowMenuWithNameForDesignedForm = 'Window menu shows designed form''s name instead of caption';
lisWindowMenuWithNameForDesignedFormHint = 'Useful especially if the caption is left empty.'; lisWindowMenuWithNameForDesignedFormHint = 'Useful especially if the caption is left empty.';
dlgDesktopHints = 'Hints';
dlgPalHints = 'Hints for component palette';
dlgSpBHints = 'Hints for main speed buttons (open, save, ...)';
dlgDesktopButtons = 'Buttons - ';
dlgDesktopMenus = 'Menus - ';
dlgDesktopMisc = 'Misc Options';
lisSavedSuccessfully = 'Saved successfully';
lisLoadedSuccessfully = 'Loaded successfully';
lisEnvJumpFromMessageToSrcOnDblClickOtherwiseSingleClick = 'Jump from '
+'message to source line on double click (otherwise: single click)';
dlgWinPos = 'Window positions'; dlgWinPos = 'Window positions';
lisTitleInTaskbarShowsForExampleProject1LpiLazarus = 'Title in taskbar ' lisTitleInTaskbarShowsForExampleProject1LpiLazarus = 'Title in taskbar '
+'shows for example: project1.lpi - Lazarus'; +'shows for example: project1.lpi - Lazarus';
@ -1258,6 +1255,14 @@ resourcestring
lisProjectDirectoryIsShowedInIdeTitleBar = 'Title in taskbar ' lisProjectDirectoryIsShowedInIdeTitleBar = 'Title in taskbar '
+'shows also directory path of the project'; +'shows also directory path of the project';
// Message window options
dlgHideMessagesIcons = 'Hide Messages Icons';
lisAlwaysDrawSelectedItemsFocused = 'Always draw selected items focused';
lisDrawTheSelectionFocusedEvenIfTheMessagesWindowHasN = 'Draw the selection '
+'focused, even if the Messages window has no focus. Use this if your '
+'theme has a hardly visible unfocused drawing.';
lisEditorColors = 'Editor Colors';
dlgMainMenu = 'Main Menu'; dlgMainMenu = 'Main Menu';
dlgSrcEdit = 'Source Editor'; dlgSrcEdit = 'Source Editor';
dlgMsgs = 'Messages'; dlgMsgs = 'Messages';
@ -5329,7 +5334,7 @@ resourcestring
lisImpossible = 'Impossible'; lisImpossible = 'Impossible';
lisAProjectUnitCanNotBeUsedByOtherPackagesProjects = 'A project unit can ' lisAProjectUnitCanNotBeUsedByOtherPackagesProjects = 'A project unit can '
+'not be used by other packages/projects'; +'not be used by other packages/projects';
lisShowGlyphsFor = 'Show Glyphs for:'; lisShowGlyphsFor = 'Show Glyphs for';
lisDirectoryNotWritable = 'Directory not writable'; lisDirectoryNotWritable = 'Directory not writable';
lisTheDirectoryIsNotWritable = 'The directory "%s" is not writable.'; lisTheDirectoryIsNotWritable = 'The directory "%s" is not writable.';
lisBuildingLazarusFailed = 'Building Lazarus failed'; lisBuildingLazarusFailed = 'Building Lazarus failed';