Hi Alan,
Thanks, I’ll give it a try.
I did realize that part of my problem - and why I need a 4D group to prevent
access - is that some of the code is still run inside the 4D application
process which is what also controls the splash screen. So it’s possible, even
after hiding it, to still get into “design mode”.
So if I get the group access figured out so that only admin has access to
“design mode” in a compiled database then they can keep their splash screen
window.
I appreciate the code though and will test it.
John...
>
>> From my code in v13
>
> Called on Startup method
> DisableWinAppCloseBox (0) //disable mdi window close box
> DisableWinAppCloseBox (1) //disable flash screen close box
>
> The following is trim down version for clarity
>
> If (<>Platform=3) //if it is window
> If ($1=0)
> $winRef:=gui_GetWindow ("") //this is for MDI window
> Else
> $flashRef:=Frontmost window
> $winRef:=gui_GetWindowFrom4DWin ($flashRef)
> End if
>
> If ($winRef>0)
> If ($1=1) //for flash screen
> $prefered:=<>ScreenWidth //this is MDI width
> SET WINDOW RECT(0;<>MenuHeight*2;$prefered;<>MDIHeight;$flashRef) //this
> must be done before disable close box
> $error:=gui_SetWindowLong ($winRef;WS_MINIMIZEBOX | WS_MAXIMIZEBOX |
> WS_SYSMENU;WIN_DISABLE;WIN_STYLE)
> End if
> $error:=gui_DisableCloseBox ($winRef)
> Else
> //not concerned in this message
> End if
> Else
> //not concerned in this message
> End if
>
> Alan Chan
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
