I have below code to display Message to the user. used oDlg:Box() function to draw borders of the window. The border shows correct when its call on MDI Window but it does NOT show properly when it calls on the top of Dialog Window.
When it is called on the Dialog Window the Message Window Bottom border does not display properly. Its cuts the bottom border.
Please let me know whether I am doing correct or not.
- Code: Select all Expand view
FUNCTION MsgFYI( cTitle , cMsg )
LOCAL lRet := .F.
LOCAL aMsgBtn := Array(1)
LOCAL oDlg , oGetMsg
**local ICO_Q_FILE := oApp:G_FACES_DIR+"I.ico"
DEFINE DIALOG oDlg SIZE 541, 180 PIXEL TRUEPIXEL STYLE WS_POPUP
@ 002 , 02 SAY oSay VAR cTitle PIXEL SIZE 539, 25 OF oDlg FONT oApp:oFontTitle;
COLOR C_BCLR , nRGB(163,72,163)
**@ 005, 005 ICON FILENAME ICO_Q_FILE OF oDlg
@ 72, 100 SAY cMsg SIZE 400 , C_SAYH PIXEL COLOR C_SAYFCLR, C_SAYBCLR FONT oApp:oFontSay2 TRANSPARENT
@ 140, 250 BUTTON aMsgBtn[ 1 ] PROMPT "&OK" OF oDlg SIZE C_BTNW, C_BTNH PIXEL FONT oApp:oFontBTN1 ACTION ( oDlg:End() )
ACTIVATE DIALOG oDlg CENTERED ON INIT ( aMsgBtn[ 1 ]:SetFocus() ) ;
ON PAINT ( oDlg:Box( 0, 0, 180, 541 ) )
return lRet
