Sample Code to Align a Dialog Box in Upper Right Corner of Screen

Keywords: 	 align dialog

---

This version for the newer 6.1 format dialogs

; 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")

This version for the older 5.0 format dialogs

Note: Computations are the same, just the examples are slightly different.

;: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