Restored from previous forum. Originally posted by VPureBasic. Quote:
Still waiting for the first big 3D engine for PB...
Hi Danilo,
Your example is fine! I am still working on... Please try this for the subwindow procedure. I fix the problem we encountered.
Procedure.l OpenSubWindow( Number.l,X,Y,W,H,Style.l,XStyle.l Title.s, Parent.l )
WndStyle.l = #WS_VISIBLE
If WindowID( Parent )
SubWnd = OpenWindow( Number,X,Y,W,H,WndStyle,Title )
If SubWnd
If XStyle
SetWindowLong_( WindowID(Number),#GWL_EXSTYLE,XStyle )
EndIf
SetWindowLong_( WindowID(Number),#GWL_STYLE,#WS_CLIPSIBLINGS|#WS_CLIPCHILDREN|Style )
SetParent_ ( WindowID(Number),WindowID(0) )
;- This line fixed the problem we had...
SetWindowPos_ ( WindowID(Number),0,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE|#SWP_FRAMECHANGED )
EndIf
ProcedureReturn SubWnd
EndIf
ProcedureReturn 0
EndProcedure
U will be able to use PBasic openwindow command.
Do you have free time? Maybe we can work together on this project? 3D Engine ( OpenGL ) and 3D objects editor!?!
Roger Beausoleil
Quebec - Canada