SET LIBRARY TO xmsg.fll
 
xmsg_AssignMessageFont('Lucida Bright', 24)
xmsg_AssignMessageFontColor( RGB(12,57,126) )
xmsg_LoadBackcolorFromHatchBrush(1, 2, RGB(200,220,250))
xmsg_LoadBackcolorFromHatchBrush(2, 5, RGB(140,182,244))
xmsg_EnableUdfBackcolors(.T.)
xmsg_LoadIconFromResourceFile(0x80, _vfp.ServerName, 0)
xmsg_AssignButtonCaption(4, 'Agree')
xmsg_AssignButtonCaption(2, 'Strongly Agree')
xmsg_EnableUdfButtonCaptions(.T.)
xmsg_SetDlgMonitor(.T.)
 
= MESSAGEBOX('A picture is worth a thousand words.',;
    64+5, VERSION())
 

 
xmsg_AssignMessageFont('Times New Roman', 24)
xmsg_LoadBackcolorFromSolidColor(1, RGB(118,147,207))
xmsg_LoadBackcolorFromSolidColor(2, RGB(74,93,130))
xmsg_AssignMessageFontColor( RGB(22,58,130) )
xmsg_LoadIconFromIconFile(0x80, HOME(4)+'Icons\Win95\explorer.ico')
xmsg_AssignButtonCaption(4, 'Consentir')
xmsg_AssignButtonCaption(2, 'Sans Doute')
 
= MESSAGEBOX("Un bon croquis vaut mieux qu'un long discour.",;
    64+5, VERSION())
 

 
xmsg_AssignMessageFont('Times New Roman', 24, .T.)
xmsg_AssignDlgMaxSize(-360, -220)
xmsg_AssignMessageFontColor( RGB(12,57,126) )
xmsg_LoadBackcolorFromBitmapFile(1, 'samples\bg_360_220_002.bmp')
xmsg_LoadBackcolorFromSolidColor(2, RGB(156,156,156))
xmsg_LoadIconFromFileType(0x80, 'C:\Program Files (x86)\Skype\Phone\Skype.exe')
 
xmsg_EnableCheckBoxCtrl('Skip intro')
 
= MESSAGEBOX("Un bon croquis vaut mieux qu'un long discour.",;
    64+5, VERSION())