mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0001573] Options dlg: scroll left list

Browse source
This commit is contained in:
Alexander Koblov 2016-10-16 05:55:32 +00:00
commit f2db4bc508
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/foptions.pas
View file

@ -79,6 +79,7 @@ type
procedure SelectEditor(EditorClassName: String);
function CompareTwoNodeOfConfigurationOptionTree(Node1, Node2: TTreeNode): integer;
function CycleThroughOptionEditors(bForceSaving:boolean):boolean;
procedure MakeVisible(Data: PtrInt);
public
constructor Create(TheOwner: TComponent); override;
constructor Create(TheOwner: TComponent; EditorClass: TOptionsEditorClass); overload;
@ -294,6 +295,7 @@ begin
if Assigned(FOptionsEditorList[I].TreeNode) then
begin
FOptionsEditorList[I].TreeNode.Selected := True;
Application.QueueAsyncCall(@MakeVisible, PtrInt(FOptionsEditorList[I].TreeNode));
Break;
end;
end;
@ -429,4 +431,11 @@ begin
// 2nd) The little delay and visual blink it gives to user is a good feedback to him confirming him he just saved settings.
end;
procedure TfrmOptions.MakeVisible(Data: PtrInt);
var
TreeNode: TTreeNode absolute Data;
begin
TreeNode.MakeVisible;
end;
end.