Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Change font in MessageBox?
Message
 
 
À
20/05/1999 03:52:18
Franz Mueller
J. Schuh Ges.m.b.H.
Kirchberg, Autriche
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00219801
Message ID:
00220945
Vues:
46
Hi Franz,

Sorry for bothering you again.

>>myString=String1+chr(13)+String2+chr(13)+...
>>myTitle="Some title"
>>myButton="Ok button"
>>myFont for message - any proportional, for Example, Courier 10
>>myFont for buttons - "Arial 9"
>>myIcon - info
>
>>What do I need to do next?

>Step by step instructions:
>1. include the dircetory, where you have MSGSVC installed to your path
>2. copy the MSGSVC.DBF, .FPT and .CDX files to you project directory
>3. run MSGDEMO.PRG to see what you can do with this tool
>4. open MSGSVC located in your project directory and do a browse
>5. append a record
>6. insert "DynamicMessage" in the CKEY field
>7. insert "Ok" in the CFUNCTION field
>8. open the memo of the CORIGINAL field und insert follow text: This message
>has more than one line: %c1% [press Enter] %c2% [press Enter] %c3%
>9. insert "info.bmp"in the CGUIVISUAL field
>10. insert "Some title" in the CTITLE field
>11. insert "Courier,10,N~Arial,9,B" in the CWINFONT field. 1st font for the
>messagetext, 2nd font for the buttontext
>12. ok thats it, close the browse window
>13. in the command window: input "DO msgsvc with "dynamicmessage",
>"String1~String2~String3" and press Enter. You should see a message which
>looks like the messagebox of VFP.

Almost :)

Ok, I did this. What I noticed:

1) Background of info.bmp and some other bmps are darker than form background and doesn't look nice.

2) Windows MessageBox has ok button widhter and also has disabled "x" close button.

3) How can I change mytitle on the fly? "Some title" was just an example, I want myTitle as a variable.

4) I also noticed that I can pass myString containing itself chr(13) and it works fine.

>I did not send you any subclassed code, as I don't know, if you will need it
>(e.g. for the Tips dialog ...). But just let it me know and you will get it (per email)

I don't know now, but may be in the future...

>BTW: in the directory where you have installed the MSGSVC, there is a small
>help file which may help you.

Yes, I saw.

Thanks a lot.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform