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

DockedFormEditor: Focus source editor after switching per F12 to make bookmarks immediately working

Browse Source 
git-svn-id: trunk@64690 -
This commit is contained in:
michl 2021-02-28 20:04:20 +00:00
parent 4ba43eba0b
commit 72176c6fc0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/dockedformeditor/source/dockedmainide.pas
View File

@ -200,6 +200,7 @@ begin
if ASourceEditor = nil then Exit; if ASourceEditor = nil then Exit;
LPageCtrl := SourceEditorWindows.FindModulePageControl(ASourceEditor); LPageCtrl := SourceEditorWindows.FindModulePageControl(ASourceEditor);
LPageCtrl.ShowCode; LPageCtrl.ShowCode;
ASourceEditor.EditorControl.SetFocus;
end; end;
procedure TDockedTabMaster.ShowDesigner(ASourceEditor: TSourceEditorInterface; AIndex: Integer); procedure TDockedTabMaster.ShowDesigner(ASourceEditor: TSourceEditorInterface; AIndex: Integer);