Out of system resources

[Walt Decker]

Given:

OPEN "User32" FOR DLL AS #USER
'nomainwin
CALL Create.Main
CALL Child.Left
WAIT
END

'-------------------------------------------------------------------------
'-------------------------------------------------------------------------

SUB Create.Main

UpperLeftX = 200
UpperLeftY = 100
WindowWidth = 300
WindwoHeight = 300

OPEN "CHILD TEST" FOR WINDOW AS #WINMAIN
END SUB

'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

SUB Child.Left

WS.OVERLAPPED     = HEXDEC("&H00000000")
WS.VISIBLE        = HEXDEC("&H10000000")
WS.CHILD          = HEXDEC("&H40000000")
WS.VISIBLE        = HEXDEC("&H10000000")
WS.CLIPSIBLINGS   = HEXDEC("&H04000000")
WS.CLIPCHILDREN   = HEXDEC("&H02000000")
WS.MAXIMIZE       = HEXDEC("&H01000000")
WS.CAPTION        = HEXDEC("&H00C00000")     ' WS.BORDER OR WS.DLGFRAME
WS.BORDER         = HEXDEC("&H00800000")
WS.SYSMENU        = HEXDEC("&H00080000")
WS.THICKFRAME     = HEXDEC("&H00040000")

WS.MINIMIZEBOX    = HEXDEC("&H00020000")
WS.MAXIMIZEBOX    = HEXDEC("&H00010000")

WS.OVERLAPPEDWINDOW = (WS.OVERLAPPED  _
                    OR WS.CAPTION     _
                    OR WS.SYSMENU     _
                    OR WS.THICKFRAME  _
                    OR WS.MINIMIZEBOX _
                    OR WS.MAXIMIZEBOX)

WS.EX.DLGMODALFRAME   = HEXDEC("&H00000001")
WS.EX.WINDOWEDGE      = HEXDEC("&H00000100")

WS.EX.CONTROLPARENT   = HEXDEC("&H00010000")

UpperLeftX = 0
UpperLeftY = 0
WindowWidth = 150
WindowHeight = 300

Styl = WS.CHILD OR WS.VISIBLE OR WS.CLIPCHILDREN OR WS.DLGFRAME OR WS.VISIBLE OR _
      WS.THICKFRAME
ExStyle = WS.EX.DLGMODALFRAME OR WS.EX.CONTROLPARENT

RemStyle = WS.OVERLAPPEDWINDOW
RemExStyle = WS.EX.WINDOWEDGE

STYLEBITS #LFTWIN, Styl, RemStyle, ExStyl, RemExStyle '<--- Out of system
                                                     'resources
OPEN "CHILD" FOR WINDOW AS #LFTWIN

END SUB

In SUB Child.Left STYLEBITS produces an out of system resources message.

I can get around that by using setwindowlong() API but that accomplishes nothing because I cannot change the parent of the window using the same API

LB needs a way to set a windows generated handle to a #USERHANDLE or a way to create create a child window, perhaps both.  Perhaps something like:OPEN "MY WIN" FOR WINDOW AS #WIN

OPEN "CHILD WIN" FOR WINDOW AS #WIN.CHILD                                                        

[Chris Iverson]

I think it errors out because the style says it's creating a child window, but then actually creating an indepedant window.

You're correct that LB does not have a native way of opening a window as a child window.

As a workaround, would you not be able to use the SetParent API call to reparent the "child" window?

Open the child window, reparent it, adjust the style?

   'OPEN "User32" FOR DLL AS #USER
   'nomainwin
   CALL Create.Main
   CALL Child.Left
   WAIT
   END

   '-------------------------------------------------------------------------
   '-------------------------------------------------------------------------

SUB Create.Main

   UpperLeftX = 200
   UpperLeftY = 100
   WindowWidth = 300
   WindowHeight = 300

   OPEN "CHILD TEST" FOR WINDOW AS #WINMAIN
END SUB

'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

SUB Child.Left

   WS.OVERLAPPED     = HEXDEC("&H00000000")
   WS.VISIBLE        = HEXDEC("&H10000000")
   WS.CHILD          = HEXDEC("&H40000000")
   WS.VISIBLE        = HEXDEC("&H10000000")
   WS.CLIPSIBLINGS   = HEXDEC("&H04000000")
   WS.CLIPCHILDREN   = HEXDEC("&H02000000")
   WS.MAXIMIZE       = HEXDEC("&H01000000")
   WS.CAPTION        = HEXDEC("&H00C00000")     ' WS.BORDER OR WS.DLGFRAME
   WS.BORDER         = HEXDEC("&H00800000")
   WS.SYSMENU        = HEXDEC("&H00080000")
   WS.THICKFRAME     = HEXDEC("&H00040000")

   WS.MINIMIZEBOX    = HEXDEC("&H00020000")
   WS.MAXIMIZEBOX    = HEXDEC("&H00010000")

   WS.OVERLAPPEDWINDOW = (WS.OVERLAPPED  _
       OR WS.CAPTION     _
       OR WS.SYSMENU     _
       OR WS.THICKFRAME  _
       OR WS.MINIMIZEBOX _
       OR WS.MAXIMIZEBOX)

   WS.EX.DLGMODALFRAME   = HEXDEC("&H00000001")
   WS.EX.WINDOWEDGE      = HEXDEC("&H00000100")

   WS.EX.CONTROLPARENT   = HEXDEC("&H00010000")

   UpperLeftX = 0
   UpperLeftY = 0
   WindowWidth = 150
   WindowHeight = 300

   Styl = WS.VISIBLE OR WS.CLIPCHILDREN OR WS.DLGFRAME OR WS.VISIBLE OR _
       WS.THICKFRAME
   ExStyle = WS.EX.DLGMODALFRAME OR WS.EX.CONTROLPARENT

   RemStyle = WS.OVERLAPPEDWINDOW
   RemExStyle = WS.EX.WINDOWEDGE

   STYLEBITS #LFTWIN, Styl, RemStyle, ExStyl, RemExStyle '<--- Out of system
   'resources
   OPEN "CHILD" FOR WINDOW AS #LFTWIN

   hMain = hwnd(#WINMAIN)
   hChild = hwnd(#LFTWIN)

   CallDLL #user32, "SetParent",_
   hChild as ulong,_
   hMain as ulong,_
   ret as long

   CallDLL #user32, "GetWindowLongA",_
   hChild as ulong,_
   _GWL_STYLE as long,_
   style as long

   style = style or WS.CHILD

   CallDLL #user32, "SetWindowLongA",_
   hChild as ulong,_
   _GWL_STYLE as long,_
   style as long,_
   ret as long

END SUB