paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:01:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed keyboard handling of window list on window tab of environment options dialog (issue #11952)

Browse Source 
git-svn-id: trunk@16209 -
This commit is contained in:
vincents 2008-08-24 20:03:36 +00:00
parent 7d440b2a25
commit 7c263b6e77
3 changed files with 518 additions and 1145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

191
ide/environmentopts.lfm
View File

@ -11,7 +11,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
LCLVersion = '0.9.25' LCLVersion = '0.9.25'
object Notebook: TNotebook object Notebook: TNotebook
AnchorSideBottom.Control = EODBtnPanel AnchorSideBottom.Control = EODBtnPanel
Height = 498 Height = 504
Width = 542 Width = 542
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -20,21 +20,21 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
TabOrder = 0 TabOrder = 0
object FilesPage: TPage object FilesPage: TPage
Caption = 'FilesPage' Caption = 'FilesPage'
ClientWidth = 538 ClientWidth = 534
ClientHeight = 467 ClientHeight = 478
object MaxRecentOpenFilesLabel: TLabel object MaxRecentOpenFilesLabel: TLabel
Left = 6 Left = 6
Height = 20 Height = 14
Top = 10 Top = 10
Width = 165 Width = 127
Caption = 'MaxRecentOpenFilesLabel' Caption = 'MaxRecentOpenFilesLabel'
ParentColor = False ParentColor = False
end end
object MaxRecentProjectFilesLabel: TLabel object MaxRecentProjectFilesLabel: TLabel
Left = 6 Left = 6
Height = 20 Height = 14
Top = 58 Top = 58
Width = 175 Width = 135
Caption = 'MaxRecentProjectFilesLabel' Caption = 'MaxRecentProjectFilesLabel'
ParentColor = False ParentColor = False
end end
@ -42,12 +42,13 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = FilesPage AnchorSideRight.Control = FilesPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 21
Top = 26 Top = 26
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 13
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -63,12 +64,13 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = FilesPage AnchorSideRight.Control = FilesPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 21
Top = 74 Top = 74
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
ItemHeight = 13
Items.Strings = ( Items.Strings = (
'5' '5'
'10' '10'
@ -86,9 +88,9 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = FilesPage AnchorSideRight.Control = FilesPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 19
Top = 103 Top = 95
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'OpenLastProjectAtStartCheckBox' Caption = 'OpenLastProjectAtStartCheckBox'
@ -100,9 +102,9 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Control = FilesPage AnchorSideRight.Control = FilesPage
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 19
Top = 125 Top = 114
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'ShowCompileDialogCheckBox' Caption = 'ShowCompileDialogCheckBox'
@ -115,24 +117,25 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 54 Height = 54
Top = 147 Top = 133
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'LazarusDirGroupBox' Caption = 'LazarusDirGroupBox'
ClientHeight = 35 ClientHeight = 36
ClientWidth = 522 ClientWidth = 518
TabOrder = 3 TabOrder = 3
object LazarusDirComboBox: TComboBox object LazarusDirComboBox: TComboBox
AnchorSideLeft.Control = LazarusDirGroupBox AnchorSideLeft.Control = LazarusDirGroupBox
AnchorSideRight.Control = LazarusDirButton AnchorSideRight.Control = LazarusDirButton
Left = 6 Left = 6
Height = 29 Height = 21
Top = 3 Top = 3
Width = 485 Width = 481
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Text = 'LazarusDirComboBox' Text = 'LazarusDirComboBox'
@ -145,8 +148,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = LazarusDirComboBox AnchorSideBottom.Control = LazarusDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 487
Height = 29 Height = 21
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -163,24 +166,25 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 54 Height = 54
Top = 201 Top = 187
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'CompilerPathGroupBox' Caption = 'CompilerPathGroupBox'
ClientHeight = 35 ClientHeight = 36
ClientWidth = 522 ClientWidth = 518
TabOrder = 4 TabOrder = 4
object CompilerPathComboBox: TComboBox object CompilerPathComboBox: TComboBox
AnchorSideLeft.Control = CompilerPathGroupBox AnchorSideLeft.Control = CompilerPathGroupBox
AnchorSideRight.Control = CompilerPathButton AnchorSideRight.Control = CompilerPathButton
Left = 6 Left = 6
Height = 29 Height = 21
Top = 3 Top = 3
Width = 485 Width = 481
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Text = 'CompilerPathComboBox' Text = 'CompilerPathComboBox'
@ -191,8 +195,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = CompilerPathComboBox AnchorSideBottom.Control = CompilerPathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 487
Height = 29 Height = 21
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -209,24 +213,25 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 54 Height = 54
Top = 255 Top = 241
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'FPCSourceDirGroupBox' Caption = 'FPCSourceDirGroupBox'
ClientHeight = 35 ClientHeight = 36
ClientWidth = 522 ClientWidth = 518
TabOrder = 5 TabOrder = 5
object FPCSourceDirComboBox: TComboBox object FPCSourceDirComboBox: TComboBox
AnchorSideLeft.Control = FPCSourceDirGroupBox AnchorSideLeft.Control = FPCSourceDirGroupBox
AnchorSideRight.Control = FPCSourceDirButton AnchorSideRight.Control = FPCSourceDirButton
Left = 6 Left = 6
Height = 29 Height = 21
Top = 3 Top = 3
Width = 485 Width = 481
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Text = 'FPCSourceDirComboBox' Text = 'FPCSourceDirComboBox'
@ -237,8 +242,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = FPCSourceDirComboBox AnchorSideBottom.Control = FPCSourceDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 487
Height = 29 Height = 21
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -255,24 +260,25 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 54 Height = 54
Top = 309 Top = 295
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'MakePathGroupBox' Caption = 'MakePathGroupBox'
ClientHeight = 35 ClientHeight = 36
ClientWidth = 522 ClientWidth = 518
TabOrder = 6 TabOrder = 6
object MakePathComboBox: TComboBox object MakePathComboBox: TComboBox
AnchorSideLeft.Control = MakePathGroupBox AnchorSideLeft.Control = MakePathGroupBox
AnchorSideRight.Control = MakePathButton AnchorSideRight.Control = MakePathButton
Left = 6 Left = 6
Height = 29 Height = 21
Top = 3 Top = 3
Width = 485 Width = 481
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Text = 'MakePathComboBox' Text = 'MakePathComboBox'
@ -283,8 +289,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MakePathComboBox AnchorSideBottom.Control = MakePathComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 487
Height = 29 Height = 21
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -301,24 +307,25 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 54 Height = 54
Top = 363 Top = 349
Width = 526 Width = 522
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'TestBuildDirGroupBox' Caption = 'TestBuildDirGroupBox'
ClientHeight = 35 ClientHeight = 36
ClientWidth = 522 ClientWidth = 518
TabOrder = 7 TabOrder = 7
object TestBuildDirComboBox: TComboBox object TestBuildDirComboBox: TComboBox
AnchorSideLeft.Control = TestBuildDirGroupBox AnchorSideLeft.Control = TestBuildDirGroupBox
AnchorSideRight.Control = TestBuildDirButton AnchorSideRight.Control = TestBuildDirButton
Left = 6 Left = 6
Height = 29 Height = 21
Top = 3 Top = 3
Width = 485 Width = 481
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending] AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
ItemHeight = 13
MaxLength = 0 MaxLength = 0
TabOrder = 0 TabOrder = 0
Text = 'TestBuildDirComboBox' Text = 'TestBuildDirComboBox'
@ -329,8 +336,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TestBuildDirComboBox AnchorSideBottom.Control = TestBuildDirComboBox
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 491 Left = 487
Height = 29 Height = 21
Top = 3 Top = 3
Width = 25 Width = 25
Anchors = [akTop, akRight, akBottom] Anchors = [akTop, akRight, akBottom]
@ -356,8 +363,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'LanguageGroupBox' Caption = 'LanguageGroupBox'
ClientHeight = 43 ClientHeight = 62
ClientWidth = 524 ClientWidth = 528
TabOrder = 0 TabOrder = 0
object LanguageComboBox: TComboBox object LanguageComboBox: TComboBox
AnchorSideLeft.Control = LanguageGroupBox AnchorSideLeft.Control = LanguageGroupBox
@ -401,8 +408,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'AutoSaveGroupBox' Caption = 'AutoSaveGroupBox'
ClientHeight = 117 ClientHeight = 136
ClientWidth = 524 ClientWidth = 528
TabOrder = 6 TabOrder = 6
object AutoSaveIntervalInSecsLabel: TLabel object AutoSaveIntervalInSecsLabel: TLabel
Left = 6 Left = 6
@ -466,8 +473,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'DesktopFilesGroupBox' Caption = 'DesktopFilesGroupBox'
ClientHeight = 78 ClientHeight = 97
ClientWidth = 524 ClientWidth = 528
TabOrder = 3 TabOrder = 3
object SaveDesktopSettingsToFileButton: TButton object SaveDesktopSettingsToFileButton: TButton
AnchorSideLeft.Control = DesktopFilesGroupBox AnchorSideLeft.Control = DesktopFilesGroupBox
@ -567,8 +574,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'WindowPositionsGroupBox' Caption = 'WindowPositionsGroupBox'
ClientHeight = 316 ClientHeight = 320
ClientWidth = 522 ClientWidth = 526
TabOrder = 2 TabOrder = 2
object WindowPositionsListBox: TListBox object WindowPositionsListBox: TListBox
AnchorSideLeft.Control = WindowPositionsGroupBox AnchorSideLeft.Control = WindowPositionsGroupBox
@ -580,7 +587,7 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Width = 510 Width = 510
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
OnMouseUp = WindowPositionsListBoxMouseUp OnSelectionChange = WindowPositionsListBoxSelectionChange
TabOrder = 0 TabOrder = 0
TopIndex = -1 TopIndex = -1
end end
@ -598,8 +605,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Width = 337 Width = 337
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GridGroupBox' Caption = 'GridGroupBox'
ClientHeight = 193 ClientHeight = 212
ClientWidth = 333 ClientWidth = 337
TabOrder = 0 TabOrder = 0
object GridColorLabel: TLabel object GridColorLabel: TLabel
AnchorSideLeft.Control = GridGroupBox AnchorSideLeft.Control = GridGroupBox
@ -760,8 +767,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'GuideLinesGroupBox' Caption = 'GuideLinesGroupBox'
ClientHeight = 216 ClientHeight = 220
ClientWidth = 179 ClientWidth = 183
TabOrder = 1 TabOrder = 1
object GuideLineColorLeftTopButton: TColorButton object GuideLineColorLeftTopButton: TColorButton
AnchorSideTop.Control = GuideLineColorLeftTopLabel AnchorSideTop.Control = GuideLineColorLeftTopLabel
@ -855,8 +862,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'FormEditMiscGroupBox' Caption = 'FormEditMiscGroupBox'
ClientHeight = 216 ClientHeight = 220
ClientWidth = 333 ClientWidth = 337
TabOrder = 2 TabOrder = 2
object GrabberColorButton: TColorButton object GrabberColorButton: TColorButton
AnchorSideLeft.Control = GrabberColorLabel AnchorSideLeft.Control = GrabberColorLabel
@ -1004,8 +1011,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'RubberbandGroupBox' Caption = 'RubberbandGroupBox'
ClientHeight = 193 ClientHeight = 212
ClientWidth = 179 ClientWidth = 183
Color = clBtnFace Color = clBtnFace
ParentColor = False ParentColor = False
TabOrder = 3 TabOrder = 3
@ -1100,8 +1107,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.HorizontalSpacing = 2 ChildSizing.HorizontalSpacing = 2
ChildSizing.VerticalSpacing = 2 ChildSizing.VerticalSpacing = 2
ClientHeight = 169 ClientHeight = 173
ClientWidth = 522 ClientWidth = 526
TabOrder = 0 TabOrder = 0
object OIBackgroundColorButton: TColorButton object OIBackgroundColorButton: TColorButton
Left = 6 Left = 6
@ -1222,8 +1229,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'OIMiscGroupBox' Caption = 'OIMiscGroupBox'
ClientHeight = 125 ClientHeight = 129
ClientWidth = 526 ClientWidth = 530
TabOrder = 1 TabOrder = 1
object OIDefaultItemHeightLabel: TLabel object OIDefaultItemHeightLabel: TLabel
AnchorSideLeft.Control = OIMiscGroupBox AnchorSideLeft.Control = OIMiscGroupBox
@ -1307,8 +1314,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'BackupProjectGroupBox' Caption = 'BackupProjectGroupBox'
ClientHeight = 135 ClientHeight = 154
ClientWidth = 522 ClientWidth = 526
TabOrder = 0 TabOrder = 0
object BakProjAddExtLabel: TLabel object BakProjAddExtLabel: TLabel
AnchorSideLeft.Control = BakProjAddExtComboBox AnchorSideLeft.Control = BakProjAddExtComboBox
@ -1439,8 +1446,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'BackupOtherGroupBox' Caption = 'BackupOtherGroupBox'
ClientHeight = 135 ClientHeight = 154
ClientWidth = 522 ClientWidth = 526
TabOrder = 1 TabOrder = 1
object BakOtherAddExtLabel: TLabel object BakOtherAddExtLabel: TLabel
AnchorSideLeft.Control = BakOtherAddExtComboBox AnchorSideLeft.Control = BakOtherAddExtComboBox
@ -1642,8 +1649,8 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'LazDocPathsGroupBox' Caption = 'LazDocPathsGroupBox'
ClientHeight = 186 ClientHeight = 205
ClientWidth = 522 ClientWidth = 526
TabOrder = 0 TabOrder = 0
object LazDocListBox: TListBox object LazDocListBox: TListBox
Left = 6 Left = 6
@ -1720,19 +1727,19 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
end end
end end
object EODBtnPanel: TPanel object EODBtnPanel: TPanel
Height = 41 Height = 35
Top = 498 Top = 504
Width = 542 Width = 542
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 41 ClientHeight = 35
ClientWidth = 542 ClientWidth = 542
TabOrder = 1 TabOrder = 1
object OkButton: TButton object OkButton: TButton
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 357 Left = 365
Height = 29 Height = 23
Top = 6 Top = 6
Width = 75 Width = 75
Align = alRight Align = alRight
@ -1747,10 +1754,10 @@ object EnvironmentOptionsDialog: TEnvironmentOptionsDialog
object CancelButton: TButton object CancelButton: TButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 438 Left = 446
Height = 29 Height = 23
Top = 6 Top = 6
Width = 98 Width = 90
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6

1461
ide/environmentopts.lrs
View File

File diff suppressed because it is too large Load Diff

11
ide/environmentopts.pp
View File

@ -624,8 +624,8 @@ type
procedure CancelButtonClick(Sender: TObject); procedure CancelButtonClick(Sender: TObject);
procedure SaveDesktopSettingsToFileButtonClick(Sender: TObject); procedure SaveDesktopSettingsToFileButtonClick(Sender: TObject);
procedure LoadDesktopSettingsFromFileButtonClick(Sender: TObject); procedure LoadDesktopSettingsFromFileButtonClick(Sender: TObject);
procedure WindowPositionsListBoxMouseUp(Sender:TObject; procedure WindowPositionsListBoxSelectionChange(Sender: TObject;
Button:TMouseButton; Shift:TShiftState; X,Y:integer); User: boolean);
private private
FOnLoadEnvironmentSettings: TOnLoadEnvironmentSettings; FOnLoadEnvironmentSettings: TOnLoadEnvironmentSettings;
FOnSaveEnvironmentSettings: TOnSaveEnvironmentSettings; FOnSaveEnvironmentSettings: TOnSaveEnvironmentSettings;
@ -2635,10 +2635,11 @@ begin
OIAutoShowCheckBox.Caption := lisAutoShowObjectInspector; OIAutoShowCheckBox.Caption := lisAutoShowObjectInspector;
end; end;
procedure TEnvironmentOptionsDialog.WindowPositionsListBoxMouseUp( procedure TEnvironmentOptionsDialog.WindowPositionsListBoxSelectionChange(
Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer); Sender: TObject; User: boolean);
begin begin
SetWindowPositionsItem(WindowPositionsListBox.ItemIndex); if User then
SetWindowPositionsItem(WindowPositionsListBox.ItemIndex);
end; end;
procedure TEnvironmentOptionsDialog.SetWindowPositionsItem(Index: integer); procedure TEnvironmentOptionsDialog.SetWindowPositionsItem(Index: integer);