Position of msg* dialogs

[ADutheil]

Is there a way to have the msg* functions dialog obey the SetCenterOnParent( .T. ) setting?

[ukoenig]

André,

I think it is not possible with the normal message.
I changed a few parts of the Messagebox-Functions from < Ramesh >.
viewtopic.php?f=3&t=22834&p=122051#p122051
Now it is possible, to center a message on any Dialog-position.
Sample : a full screen filemanager with a Dialog Top / left-corner
I can post the needed changes, in case You like this solution.

Working on a modified version testing all possible Messages,
Gradient-define and much more.







Best Regards
Uwe

[ADutheil]

I was about to write my own functions but now you and Ramesh did it for me . Thanks a lot.

[ukoenig]

André,

how to use :

LOCAL aRect[4]

@ 200, 280 BUTTON "&Message" OF oDlg1 SIZE 45, 13 PIXEL ;
ACTION MYMSGBOX( .T., aRect, "There is an error and the process could not be completed."+CRLF+"Please try it once again.",,"Error Message",,,aGradiate1,,,,oIcon1)

// save the Dialog-zize to a Array
ACTIVATE DIALOG oDlg1 ;
ON INIT ( oDlg1:Move( 50, 30, , , .f. ), ;
aRect[1] := oDlg1:nTop, aRect[2] := oDlg1:nLeft, ;
aRect[3] := oDlg1:nHeight, aRect[4] := oDlg1:nWidth )


Changes in Ramesh's function :

// lPosition = .T. means < calculated >
FUNCTION MyMsgBox( lPosition, aRect, cMsg, aOptions, cTitle, xIcon, nDefault, aGradiate, ;
bAction, oFont, cFileRes, oIcon, uVar, cPict, bValid,;
lSpinner, lMeter, oMeter, lCancel)
...
...
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT (DlgInit(oDlg, lPosition, aRect, oFont, cMsg, aOptions, cTitle, nDefault,;
aGradiate, bAction, xIcon, @uVar, cPict, bValid,;
lSpinner, lMeter, oMeter, @lCancel),;
gradiate(oDlg, aGradiate))

STATIC FUNCTION DlgInit(oDlg, lPosition, aRect, oFont, cMsg, aOptions, cTitle, nDefault,;
aGradiate, bAction, xIcon, uVar, cPict, bValid,;
lSpinner, lMeter, oMeter, lCancel )
...
...
// calculate the center-position
IF lPosition = .T.
oDlg:Move( aRect[1] + ( aRect[3] / 2 ) - ( nMaxHeight / 2 ), ;
aRect[2] + ( aRect[4] / 2 ) - ( nMaxWidth / 2 ), , , .f. )
ELSE
// centered on Main-window
WndCenter(oDlg:hWnd)
ENDIF

Best Regards
Uwe

[ukoenig]

View :

viewtopic.php?f=3&t=24479

Best Regards
Uwe