Cascade open MDI Child windows like Clarion RTL STD:CascadeWindow

CascadeMdiChildren.clw

MAP
  MODULE('Win32')
   SendMessageA(LONG hWnd, LONG nMsg, LONG wParam, LONG lParam),LONG,PROC,PASCAL,DLL(1)
   !https://docs.microsoft.com/en-us/windows/win32/winmsg/wm-mdicascade
 . .

CascadeWindows ROUTINE  !Like STD:CascadeWindow Clarion RTL
  !Message must be sent to the Frame MDI Client Handle and not the Frame Handle
  SendMessageA( AppFrame{PROP:ClientHandle} , 0227H, 4, 0)
  EXIT

! SendMessage( MdiCLientWindow , WM_MDICASCADE , MDITILE_Xxxxx, 0)

! WM_MDICASCADE                   equate(0227H)

! wParam  The cascade behavior. This parameter can be one or more of the following values.
!    Value 	Meaning
!    MDITILE_SKIPDISABLED      0x0002    	Prevents disabled MDI child windows from being cascaded.
!    MDITILE_ZORDER            0x0004     Arranges the windows in Z order.

! lParam  Always Zero