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

IDE: Adjust options dialog tab order. Add a Ctrl-F shortcut. From n7800.

Browse Source
This commit is contained in:
Juha 2024-02-26 10:35:50 +02:00
parent f47d94ce9c
commit 5e3b6bce5d
3 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/frames/compiler_path_options.pas
View File

@ -688,6 +688,7 @@ begin
chkUseAsDefault.Caption := dlgCOSetAsDefault; chkUseAsDefault.Caption := dlgCOSetAsDefault;
chkUseAsDefault.ShowHint := True; chkUseAsDefault.ShowHint := True;
chkUseAsDefault.Hint := lisWhenEnabledTheCurrentOptionsAreSavedToTheTemplateW; chkUseAsDefault.Hint := lisWhenEnabledTheCurrentOptionsAreSavedToTheTemplateW;
chkUseAsDefault.TabStop := False;
end; end;
procedure TCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions); procedure TCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);

12
ide/ideoptionsdlg.lfm
View File

@ -32,7 +32,7 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True CancelButton.DefaultCaption = True
TabOrder = 0 TabOrder = 4
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
end end
object CatTVSplitter: TSplitter[1] object CatTVSplitter: TSplitter[1]
@ -53,7 +53,7 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
ClientHeight = 438 ClientHeight = 438
ClientWidth = 255 ClientWidth = 255
Constraints.MinWidth = 150 Constraints.MinWidth = 150
TabOrder = 2 TabOrder = 0
object CategoryTree: TTreeView object CategoryTree: TTreeView
AnchorSideLeft.Control = FilterEdit AnchorSideLeft.Control = FilterEdit
AnchorSideTop.Control = FilterEdit AnchorSideTop.Control = FilterEdit
@ -70,7 +70,7 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth
ShowSeparators = False ShowSeparators = False
TabOrder = 0 TabOrder = 1
OnChange = CategoryTreeChange OnChange = CategoryTreeChange
OnCollapsed = CategoryTreeCollapsed OnCollapsed = CategoryTreeCollapsed
OnExpanded = CategoryTreeExpanded OnExpanded = CategoryTreeExpanded
@ -92,7 +92,7 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
BorderSpacing.Top = 6 BorderSpacing.Top = 6
NumGlyphs = 1 NumGlyphs = 1
MaxLength = 0 MaxLength = 0
TabOrder = 1 TabOrder = 0
FilteredTreeview = CategoryTree FilteredTreeview = CategoryTree
ExpandAllInitially = True ExpandAllInitially = True
end end
@ -122,7 +122,7 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 40 ClientHeight = 40
ClientWidth = 535 ClientWidth = 535
TabOrder = 3 TabOrder = 2
object BuildModeComboBox: TComboBox object BuildModeComboBox: TComboBox
AnchorSideLeft.Control = BuildModesLabel AnchorSideLeft.Control = BuildModesLabel
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -186,6 +186,6 @@ inherited IDEOptionsDialog: TIDEOptionsDialog
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 4 TabOrder = 1
end end
end end

18
ide/ideoptionsdlg.pas
View File

@ -321,19 +321,23 @@ begin
begin begin
CancelButtonClick(Sender); CancelButtonClick(Sender);
Key := 0; Key := 0;
exit; end
end; else if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
if (Key = VK_RETURN) and (Shift = [ssCtrl]) then
begin begin
OkButtonClick(Sender); OkButtonClick(Sender);
Key := 0; Key := 0;
exit; end
end; else if (Key = VK_RETURN) and (Shift = [ssShift]) then
if (Key = VK_RETURN) and (Shift = [ssShift]) then
begin begin
ApplyButtonClick(Sender); ApplyButtonClick(Sender);
Key := 0; Key := 0;
exit; end
else if (Key = VK_F) and (Shift = [ssCtrl]) then
begin
if FilterEdit.CanSetFocus then
FilterEdit.SetFocus;
Key := 0;
end; end;
end; end;