Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Change font in MessageBox?
Message
 
 
À
19/05/1999 15:51:44
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:
00220613
Vues:
50
Hi Franz,

>> My goal is - create MessageBox with info icon, my title, my message (multilines) and my font. How can I achieve this?
>>
>
>Yes, the code is a little bit complicated, but it has many advantages. You can subclass some classes to adopt it to your need, or simple change some lines.
>
>e.g.
>existing code: (near the top)
>LPARAMETERS txPara1, txPara2, txPara3
>PRIVATE lcSystemFont, lxRetVal
>lcSystemFont= GetSystemFont()
>
>changes to support if a special font (e.g. Tahoma) exists in your system:
>lcSystemFont=IIF(!AFONT(laFont, "Tahoma"), GetSystemFont(), "Tahoma")

This line of code changes System Font to "Tahoma" in all MessageBoxes, right?

>If you like, I can send you some pice of code to show how subclassing works.

Yes, it will be very helpful.

Because I still don't know how use this, how pass my own string (consisting from many lines) and display my own message, my own title, my own set of buttons, using my own font for message and different for buttons and info icon.

For example, I have:

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?

Thanks for your help
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