IDE: localized 'Emulate right button' option

This commit is contained in:
Maxim Ganetsky 2023-10-27 20:42:41 +03:00
parent 0a9cf42b49
commit c69d5ebb09
4 changed files with 96 additions and 90 deletions

View File

@ -15,8 +15,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 16 Height = 16
Top = 314 Top = 381
Width = 175 Width = 172
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'AutoSaveIntervalInSecsLabel' Caption = 'AutoSaveIntervalInSecsLabel'
@ -30,8 +30,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 16
Top = 177 Top = 215
Width = 67 Width = 65
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lblButtons' Caption = 'lblButtons'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -44,8 +44,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 16
Top = 198 Top = 241
Width = 59 Width = 57
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'lblMenus' Caption = 'lblMenus'
Font.Style = [fsBold] Font.Style = [fsBold]
@ -57,9 +57,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = lblCheckAndAutoSave AnchorSideTop.Control = lblCheckAndAutoSave
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 236 Top = 283
Width = 264 Width = 276
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'CheckDiskChangesWithLoadingCheckBox' Caption = 'CheckDiskChangesWithLoadingCheckBox'
ParentShowHint = False ParentShowHint = False
@ -71,9 +71,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = ShowHintsForMainSpeedButtonsCheckBox AnchorSideTop.Control = ShowHintsForMainSpeedButtonsCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 134 Top = 164
Width = 267 Width = 278
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShowHintsForComponentPaletteCheckBox' Caption = 'ShowHintsForComponentPaletteCheckBox'
TabOrder = 3 TabOrder = 3
@ -83,9 +83,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = lblHints AnchorSideTop.Control = lblHints
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 116 Top = 141
Width = 269 Width = 280
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'ShowHintsForMainSpeedButtonsCheckBox' Caption = 'ShowHintsForMainSpeedButtonsCheckBox'
TabOrder = 2 TabOrder = 2
@ -97,19 +97,18 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 20 Height = 32
Top = 18 Top = 19
Width = 638 Width = 638
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 26 ItemHeight = 0
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
Style = csDropDownList Style = csDropDownList
TabOrder = 0 TabOrder = 0
Text = '0'
end end
object AutoSaveIntervalInSecsComboBox: TComboBox object AutoSaveIntervalInSecsComboBox: TComboBox
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
@ -118,13 +117,13 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 20 Height = 33
Top = 336 Top = 403
Width = 638 Width = 638
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Enabled = False Enabled = False
ItemHeight = 19 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'1200' '1200'
'600' '600'
@ -139,9 +138,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = AutoSaveEditorFilesCheckBox AnchorSideTop.Control = AutoSaveEditorFilesCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 290 Top = 352
Width = 177 Width = 185
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AutoSaveProjectCheckBox' Caption = 'AutoSaveProjectCheckBox'
Enabled = False Enabled = False
@ -155,9 +154,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = AskSavingOnlySessionCheckBox AnchorSideTop.Control = AskSavingOnlySessionCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 272 Top = 329
Width = 196 Width = 206
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AutoSaveEditorFilesCheckBox' Caption = 'AutoSaveEditorFilesCheckBox'
Enabled = False Enabled = False
@ -173,8 +172,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 326 Left = 326
Height = 20 Height = 32
Top = 380 Top = 461
Width = 318 Width = 318
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -193,8 +192,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblCenter AnchorSideRight.Control = lblCenter
Left = 6 Left = 6
Height = 20 Height = 32
Top = 380 Top = 461
Width = 314 Width = 314
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
@ -215,10 +214,10 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 79 Left = 77
Height = 18 Height = 23
Top = 176 Top = 212
Width = 565 Width = 567
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Left = 6 BorderSpacing.Left = 6
@ -227,15 +226,15 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 18 ClientHeight = 23
ClientWidth = 565 ClientWidth = 567
TabOrder = 4 TabOrder = 4
object rbBtnGlyphShowSystem: TRadioButton object rbBtnGlyphShowSystem: TRadioButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 23
Top = 0 Top = 0
Width = 163 Width = 169
Caption = 'rbBtnGlyphShowSystem' Caption = 'rbBtnGlyphShowSystem'
Checked = True Checked = True
TabOrder = 0 TabOrder = 0
@ -243,18 +242,18 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
end end
object rbBtnGlyphShowNever: TRadioButton object rbBtnGlyphShowNever: TRadioButton
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 163 Left = 169
Height = 18 Height = 23
Top = 0 Top = 0
Width = 155 Width = 159
Caption = 'rbBtnGlyphShowNever' Caption = 'rbBtnGlyphShowNever'
TabOrder = 1 TabOrder = 1
end end
object rbBtnGlyphShowAlways: TRadioButton object rbBtnGlyphShowAlways: TRadioButton
Left = 318 Left = 328
Height = 18 Height = 23
Top = 0 Top = 0
Width = 160 Width = 167
Caption = 'rbBtnGlyphShowAlways' Caption = 'rbBtnGlyphShowAlways'
TabOrder = 2 TabOrder = 2
end end
@ -265,10 +264,10 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 79 Left = 77
Height = 18 Height = 23
Top = 197 Top = 238
Width = 565 Width = 567
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -276,16 +275,16 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 18 ClientHeight = 23
ClientWidth = 565 ClientWidth = 567
TabOrder = 5 TabOrder = 5
object rbMenuGlyphShowSystem: TRadioButton object rbMenuGlyphShowSystem: TRadioButton
AnchorSideRight.Control = PanelGlyphsMenusOptions AnchorSideRight.Control = PanelGlyphsMenusOptions
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 18 Height = 23
Top = 0 Top = 0
Width = 175 Width = 181
Caption = 'rbMenuGlyphShowSystem' Caption = 'rbMenuGlyphShowSystem'
Checked = True Checked = True
TabOrder = 0 TabOrder = 0
@ -293,18 +292,18 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
end end
object rbMenuGlyphShowNever: TRadioButton object rbMenuGlyphShowNever: TRadioButton
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 175 Left = 181
Height = 18 Height = 23
Top = 0 Top = 0
Width = 167 Width = 171
Caption = 'rbMenuGlyphShowNever' Caption = 'rbMenuGlyphShowNever'
TabOrder = 1 TabOrder = 1
end end
object rbMenuGlyphShowAlways: TRadioButton object rbMenuGlyphShowAlways: TRadioButton
Left = 342 Left = 352
Height = 18 Height = 23
Top = 0 Top = 0
Width = 172 Width = 179
Caption = 'rbMenuGlyphShowAlways' Caption = 'rbMenuGlyphShowAlways'
TabOrder = 2 TabOrder = 2
end end
@ -316,7 +315,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 323 Left = 323
Height = 5 Height = 5
Top = 377 Top = 458
Width = 5 Width = 5
AutoSize = False AutoSize = False
ParentColor = False ParentColor = False
@ -326,9 +325,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = CheckDiskChangesWithLoadingCheckBox AnchorSideTop.Control = CheckDiskChangesWithLoadingCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 254 Top = 306
Width = 212 Width = 224
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'AskSavingOnlySessionCheckBox' Caption = 'AskSavingOnlySessionCheckBox'
ParentShowHint = False ParentShowHint = False
@ -340,9 +339,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = lblMouseAction AnchorSideTop.Control = lblMouseAction
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 59 Top = 73
Width = 185 Width = 193
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'PreferDoubleClickCheckBox' Caption = 'PreferDoubleClickCheckBox'
ParentShowHint = False ParentShowHint = False
@ -352,7 +351,7 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
object lblLanguage: TDividerBevel object lblLanguage: TDividerBevel
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 0 Left = 0
Height = 15 Height = 16
Top = 0 Top = 0
Width = 597 Width = 597
Caption = 'Language' Caption = 'Language'
@ -365,8 +364,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = PanelGlyphsMenusOptions AnchorSideTop.Control = PanelGlyphsMenusOptions
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 221 Top = 267
Width = 597 Width = 597
Caption = 'Check and Auto Save Files' Caption = 'Check and Auto Save Files'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -379,8 +378,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = AutoSaveIntervalInSecsComboBox AnchorSideTop.Control = AutoSaveIntervalInSecsComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 362 Top = 442
Width = 597 Width = 597
Caption = 'Import / Export' Caption = 'Import / Export'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -394,8 +393,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = ShowHintsForComponentPaletteCheckBox AnchorSideTop.Control = ShowHintsForComponentPaletteCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 158 Top = 193
Width = 597 Width = 597
Caption = 'Show Glyphs for' Caption = 'Show Glyphs for'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -408,8 +407,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = EmulateRightMouseButtonCheckBox AnchorSideTop.Control = EmulateRightMouseButtonCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 101 Top = 125
Width = 597 Width = 597
Caption = 'Hints' Caption = 'Hints'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -422,8 +421,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = LanguageComboBox AnchorSideTop.Control = LanguageComboBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 44 Top = 57
Width = 597 Width = 597
Caption = 'Mouse Action' Caption = 'Mouse Action'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -436,8 +435,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = ExportDesktopButton AnchorSideTop.Control = ExportDesktopButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 15 Height = 16
Top = 406 Top = 499
Width = 597 Width = 597
Caption = 'ComboBoxes' Caption = 'ComboBoxes'
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -452,8 +451,8 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 6 Left = 6
Height = 16 Height = 16
Top = 426 Top = 526
Width = 133 Width = 128
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'DropDownCountLabel' Caption = 'DropDownCountLabel'
ParentColor = False ParentColor = False
@ -463,9 +462,9 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblComboBoxes AnchorSideTop.Control = lblComboBoxes
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 145 Left = 140
Height = 21 Height = 33
Top = 424 Top = 518
Width = 75 Width = 75
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 3 BorderSpacing.Top = 3
@ -481,11 +480,13 @@ object DesktopOptionsFrame: TDesktopOptionsFrame
AnchorSideTop.Control = PreferDoubleClickCheckBox AnchorSideTop.Control = PreferDoubleClickCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 23
Top = 77 Top = 96
Width = 233 Width = 243
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'EmulateRightMouseButtonCheckBox' Caption = 'EmulateRightMouseButtonCheckBox'
ParentShowHint = False
ShowHint = True
TabOrder = 14 TabOrder = 14
end end
end end

View File

@ -131,8 +131,8 @@ begin
lblMouseAction.Caption := dlgMouseAction; lblMouseAction.Caption := dlgMouseAction;
PreferDoubleClickCheckBox.Caption := dlgPreferDoubleClickOverSingleClick; PreferDoubleClickCheckBox.Caption := dlgPreferDoubleClickOverSingleClick;
PreferDoubleClickCheckBox.Hint := dlgCurrentlyRespectedByMessagesWindow; PreferDoubleClickCheckBox.Hint := dlgCurrentlyRespectedByMessagesWindow;
EmulateRightMouseButtonCheckBox.Caption := 'Emulate right button'; EmulateRightMouseButtonCheckBox.Caption := dlgEmulateRightButton;
EmulateRightMouseButtonCheckBox.Hint := 'If enabled the messages window will show the popup menu on Ctrl+Left'; EmulateRightMouseButtonCheckBox.Hint := dlgIfEnabledTheMessages;
// hints // hints
lblHints.Caption := dlgDesktopHints; lblHints.Caption := dlgDesktopHints;

View File

@ -851,7 +851,9 @@
<Unit> <Unit>
<Filename Value="buildlazdialog.pas"/> <Filename Value="buildlazdialog.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="ConfigureBuildLazarusDlg"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="BuildLazDialog"/> <UnitName Value="BuildLazDialog"/>
</Unit> </Unit>
<Unit> <Unit>

View File

@ -1321,6 +1321,9 @@ resourcestring
dlgPreferDoubleClickOverSingleClick = 'Prefer double-click over single-click'; dlgPreferDoubleClickOverSingleClick = 'Prefer double-click over single-click';
dlgCurrentlyRespectedByMessagesWindow = 'Currently respected by messages window, ' dlgCurrentlyRespectedByMessagesWindow = 'Currently respected by messages window, '
+'jump history and search results.'; +'jump history and search results.';
dlgEmulateRightButton = 'Emulate right button';
dlgIfEnabledTheMessages = 'If enabled, the messages window will show the '
+'popup menu on left mouse button click with Ctrl pressed';
lisExportEnvironmentOptions = 'Export environment options'; lisExportEnvironmentOptions = 'Export environment options';
lisImportEnvironmentOptions = 'Import environment options'; lisImportEnvironmentOptions = 'Import environment options';
lisComboBoxes = 'Combo Boxes'; lisComboBoxes = 'Combo Boxes';