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

mainform may also be an MDI form, or a stay on top form (fixes bug #656)

Browse Source 
git-svn-id: trunk@7044 -
This commit is contained in:
micha 2005-03-31 20:07:44 +00:00
parent 3d07b12402
commit cdcf64b178
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/application.inc
View File

@ -1404,7 +1404,7 @@ begin
if (Instance is TForm) then begin if (Instance is TForm) then begin
AForm:=TForm(Instance); AForm:=TForm(Instance);
if (FMainForm = nil) and (AForm.FormStyle=fsNormal) then begin if (FMainForm = nil) and not (AForm.FormStyle in [fsMDIChild, fsSplash]) then begin
FMainForm := AForm; FMainForm := AForm;
AForm.HandleNeeded; AForm.HandleNeeded;
end else begin end else begin
@ -1453,6 +1453,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.113 2005/03/31 20:07:44 micha
mainform may also be an MDI form, or a stay on top form (fixes bug 656)
Revision 1.112 2005/03/26 11:24:55 micha Revision 1.112 2005/03/26 11:24:55 micha
remove TApplication.Handle (not cross-platform) remove TApplication.Handle (not cross-platform)

2
lcl/interfaces/win32/win32wsforms.pp
View File

@ -239,7 +239,7 @@ begin
Flags := BorderStyleToWin32Flags(BorderStyle); Flags := BorderStyleToWin32Flags(BorderStyle);
FlagsEx := BorderStyleToWin32FlagsEx(BorderStyle); FlagsEx := BorderStyleToWin32FlagsEx(BorderStyle);
if (lForm.FormStyle in fsAllStayOnTop) and if (lForm.FormStyle in fsAllStayOnTop) and
(not (csDesigning in lForm.ComponentState)) then not (csDesigning in lForm.ComponentState) then
FlagsEx := FlagsEx or WS_EX_TOPMOST; FlagsEx := FlagsEx or WS_EX_TOPMOST;
Flags := Flags or CalcBorderIconsFlags(lForm); Flags := Flags or CalcBorderIconsFlags(lForm);
pClassName := @ClsName; pClassName := @ClsName;