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

lcl: better bullet-proof LCL approach for r51808 #cf74370262, issue #28631

Browse Source 
git-svn-id: trunk@51810 -
This commit is contained in:
ondrej 2016-03-03 07:45:45 +00:00
parent 385957f10b
commit 2425ad6bff
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/commondialog.inc
View File

@ -28,9 +28,7 @@ function TCommonDialog.Execute: boolean;
var
DisabledList: TList;
SavedFocusState: TFocusState;
FocusedWindow: HWnd;
begin
FocusedWindow := GetFocus;
SavedFocusState := SaveFocusState;
DisabledList := Screen.DisableForms(Screen.ActiveForm);
try
@ -41,8 +39,9 @@ begin
finally
Screen.EnableForms(DisabledList);
RestoreFocusState(SavedFocusState);
if IsWindow(FocusedWindow) and (GetFocus<>FocusedWindow) then
SetFocus(FocusedWindow);
if (Screen.ActiveControl<>nil) and (Screen.ActiveControl.HandleAllocated)
and (GetFocus<>Screen.ActiveControl.Handle) then
SetFocus(Screen.ActiveControl.Handle); // must restore focus after Screen.EnableForms
end;
end;