Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Keywords: align dialog
; Requires 2002E or newer for these 6.1 dialogs. ScreenWidth = WinMetrics(0) ScreenHeight = WinMetrics(1) PpHDU = WinMetrics(-6) PpVDU = WinMetrics(-5) MyDialogFormat=`WWWDLGED,6.1` MyDialogCaption=`Test Dialog` MyDialogWidth=084 MyDialogHeight=056 ;Upper Left ;MyDialogX=0 ;MyDialogY=0 ;Lower Left ;MyDialogX = 0 ;MyDialogY = int( Floor(( ScreenHeight - WinMetrics(4))/PpVDU-MyDialogHeight)) ;Upper Right MyDialogX = Int(Floor(ScreenWidth/PpHDU-MyDialogWidth)) MyDialogY = 0 ;Lower Right ;MyDialogX = int(Floor(ScreenWidth/PpHDU-MyDialogWidth)) ;MyDialogY = int(Floor( ( ScreenHeight - WinMetrics(4))/PpVDU-MyDialogHeight)) MyDialogNumControls=001 MyDialogProcedure=`DEFAULT` MyDialogFont=`DEFAULT` MyDialogTextColor=`DEFAULT` MyDialogBackground=`DEFAULT,DEFAULT` MyDialog001=`020,018,033,011,PUSHBUTTON,DEFAULT,"OK",1,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT` ButtonPushed=Dialog("MyDialog")
;:requires 2000c or newer ScreenWidth = WinMetrics(0) ScreenHeight = WinMetrics(1) PpHDU = WinMetrics(-6) PpVDU = WinMetrics(-5) MyDialogFormat=`WWWDLGED,5.0` MyDialogCaption=`WIL Dialog` MyDialogWidth = 150 MyDialogHeight = 80 ;Upper Left ;MyDialogX=0 ;MyDialogY=0 ;Lower Left ;MyDialogX = 0 ;MyDialogY = int( Floor(( ScreenHeight - WinMetrics(4))/PpVDU-MyDialogHeight)) ;Upper Right MyDialogX = Int(Floor(ScreenWidth/PpHDU-MyDialogWidth)) MyDialogY = 0 ;Lower Right ;MyDialogX = int(Floor(ScreenWidth/PpHDU-MyDialogWidth)) ;MyDialogY = int(Floor( ( ScreenHeight - WinMetrics(4))/PpVDU-MyDialogHeight)) MyDialogNumControls=1 MyDialog01=`3,3,51,DEFAULT,PUSHBUTTON,DEFAULT,"OK",1` ButtonPushed=Dialog("MyDialog")
Article ID: W14580
Filename: Align a Dialog Box in Upper Right.txt
File Created: 2003:05:28:10:19:30
Last Updated: 2003:05:28:10:19:30