paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 04:57:14 +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.ShowHint := True;
chkUseAsDefault.Hint := lisWhenEnabledTheCurrentOptionsAreSavedToTheTemplateW;
chkUseAsDefault.TabStop := False;
end;
procedure TCompilerPathOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);

12
ide/ideoptionsdlg.lfm
View File

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

18
ide/ideoptionsdlg.pas
View File

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