paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 15:39:20 +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 var
i: integer; i: integer;
AForm: TCustomForm; AForm: TCustomForm;
AppHandle: HWND;
begin begin
Result := DisabledList; Result := DisabledList;
if Result = nil then if Result = nil then
@ -345,6 +346,8 @@ begin
end; end;
end; end;
end; end;
if WidgetSet.GetLCLCapability(lcApplicationWindow) = LCL_CAPABILITY_YES then
EnableWindow(WidgetSet.AppHandle, False);
end; end;
{ {
@ -355,7 +358,10 @@ procedure TScreen.EnableForms(var AFormList: TList);
var var
i: integer; i: integer;
AForm: TCustomForm; AForm: TCustomForm;
AppHandle: HWND;
begin begin
if WidgetSet.GetLCLCapability(lcApplicationWindow) = LCL_CAPABILITY_YES then
EnableWindow(WidgetSet.AppHandle, True);
if AFormList = nil then if AFormList = nil then
Exit; Exit;
for i := AFormList.Count - 1 downto 0 do for i := AFormList.Count - 1 downto 0 do

1
lcl/interfacebase.pp
View File

@ -74,6 +74,7 @@ type
lcNeedMininimizeAppWithMainForm, lcNeedMininimizeAppWithMainForm,
// When main form is minimized, then minimize also app // When main form is minimized, then minimize also app
lcApplicationTitle, // Can change application title in runtime lcApplicationTitle, // Can change application title in runtime
lcApplicationWindow, // Application has a special root window
lcFormIcon, // Forms have icon lcFormIcon, // Forms have icon
lcModalWindow, // native modal windows support lcModalWindow, // native modal windows support
lcDragDockStartOnTitleClick // ability to start drag/dock events on title bar click 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; lcAsyncProcess: Result := LCL_CAPABILITY_YES;
lcModalWindow: Result := LCL_CAPABILITY_NO; lcModalWindow: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := LCL_CAPABILITY_YES; lcDragDockStartOnTitleClick: Result := LCL_CAPABILITY_YES;
lcApplicationWindow: Result := LCL_CAPABILITY_YES;
else else
Result := inherited; Result := inherited;
end; end;