To Antonio: positioning Dialog at bottom right corner.

[HunterEC]

Antonio:

To position a dialog (419 x 287) at the right edge of the screen, are these formulas correct ?

oDlg:nTop := GetSysMetrics(0) - 287
oDlg:nLeft := GetSysMetrics(1) - 419
oDlg:nBottom := GetSysMetrics(1)
oDlg:nRight := GetSysMetrics(0)

Thank you.

[JC]

Hunter,

I have tried this implementation to make this into my application... maybe this help you!

Code: Select all  Expand view

STATIC PROCEDURE adjustDialog( oDlg, oWnd, nTopCorrection )

LOCAL aCoorsWnd := { 0, 0 }
LOCAL nTopWnd   := 0
LOCAL nLeftWnd  := 0

DEFAULT nTopCorrection := 0


// Gettering informations
aCoorsWnd := clientToScreen( oWnd:hWnd, aCoorsWnd )
nTopWnd   := ( ( aCoorsWnd[1] + oWnd:nHeight ) - oDlg:nHeight ) - 29

// Positioning dialog
oDlg:center( oWnd )
oDlg:move( iif( !isEmpty( nTopCorrection ), nTopWnd - nTopCorrection, nTopWnd ), ( clientToScreen( oDlg:hWnd, { 0, 0 } ) )[2],,, TRUE )

RETURN( NIL )

[HunterEC]

JC:

Thank you for your help, but what does the ClientToScreen function does ? Can you post it ?

[JC]

Hunter,

The function clientToScreen() gets the coordinates of a :hWnd in relativity of a
client area!

JC:

Thank you for your help, but what does the ClientToScreen function does ? Can you post it ?