#DEFINE SM_XVIRTUALSCREEN 76 #DEFINE SM_YVIRTUALSCREEN 77 #DEFINE SM_CXVIRTUALSCREEN 78 #DEFINE SM_CYVIRTUALSCREEN 79 #DEFINE SM_CMONITORS 80 SET LIBRARY TO FoxTools.fll DECLARE Long GetSystemMetrics IN user32 Long nIndex ACTIVATE WINDOW View ACTIVATE WINDOW Properties ACTIVATE WINDOW Document ACTIVATE WINDOW Command DOCK WINDOW Command POSITION -1 DOCK WINDOW Properties POSITION -1 DOCK WINDOW Document POSITION -1 DOCK WINDOW View POSITION -1 = INKEY(.1) lnGap = 10 LnFromBottom = 60 lnSecondDesktopHeight = 1050 LnWhCommnd = _WFindTitl("Command") LnWhProperties = _WFindTitl("Properties - Desktop") lnWirtualDesktopWidth = GetSystemMetrics(SM_CXVIRTUALSCREEN) lnMainDesktopWidth = SYSMETRIC(1) lnSecondDesktopWidth = lnWirtualDesktopWidth - lnMainDesktopWidth lnCommandWidth = INT((lnSecondDesktopWidth - lnGap*3)/3) * 2 lnCommandHeight = 600 lnCommandLeft = lnMainDesktopWidth + lnGap = _WMoveP(LnWhCommnd, lnCommandLeft, lnSecondDesktopHeight - lnCommandHeight - LnFromBottom) = _WSizeP(LnWhCommnd, lnCommandWidth, lnCommandHeight) LnPropertiesWidth = INT(lnCommandWidth * .5) LnPropertiesHeight = lnSecondDesktopHeight - lnGap - LnFromBottom LnPropertiesLeft = lnWirtualDesktopWidth - lnGap - LnPropertiesWidth = _WMoveP(LnWhProperties, LnPropertiesLeft, lnGap) = _WSizeP(LnWhProperties, LnPropertiesWidth, LnPropertiesHeight) = INKEY(.1) DOCK WINDOW Document POSITION 4 WINDOW Properties = INKEY(.1) DOCK WINDOW View POSITION 4 WINDOW Command = INKEY(.1) ACTIVATE WINDOW Properties ACTIVATE WINDOW Command