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

win32: fix modal form showing when stay on top forms are visible (bug #0015636)

Browse Source 
git-svn-id: trunk@25138 -
This commit is contained in:
paul 2010-05-02 16:59:54 +00:00
parent db1ba90fac
commit 6cbcdb2b75
3 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/screen.inc
View File

@ -326,6 +326,7 @@ function TScreen.DisableForms(SkipForm: TCustomForm; DisabledList: TList = nil):
var
i: integer;
AForm: TCustomForm;
AppHandle: HWND;
begin
Result := DisabledList;
if Result = nil then
@ -345,6 +346,8 @@ begin
end;
end;
end;
if WidgetSet.GetLCLCapability(lcApplicationWindow) = LCL_CAPABILITY_YES then
EnableWindow(WidgetSet.AppHandle, False);
end;
{
@ -355,7 +358,10 @@ procedure TScreen.EnableForms(var AFormList: TList);
var
i: integer;
AForm: TCustomForm;
AppHandle: HWND;
begin
if WidgetSet.GetLCLCapability(lcApplicationWindow) = LCL_CAPABILITY_YES then
EnableWindow(WidgetSet.AppHandle, True);
if AFormList = nil then
Exit;
for i := AFormList.Count - 1 downto 0 do

1
lcl/interfacebase.pp
View File

@ -74,6 +74,7 @@ type
lcNeedMininimizeAppWithMainForm,
// When main form is minimized, then minimize also app
lcApplicationTitle, // Can change application title in runtime
lcApplicationWindow, // Application has a special root window
lcFormIcon, // Forms have icon
lcModalWindow, // native modal windows support
lcDragDockStartOnTitleClick // ability to start drag/dock events on title bar click

1
lcl/interfaces/win32/win32object.inc
View File

@ -532,6 +532,7 @@ begin
lcAsyncProcess: Result := LCL_CAPABILITY_YES;
lcModalWindow: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := LCL_CAPABILITY_YES;
lcApplicationWindow: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;