Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Change font in MessageBox?
Message
De
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:
00220588
Vues:
36
>Hi Franz,
>
>>you can find on Steven Blacks hompepage (http://www.stevenblack.com/SBCPublicDomain.asp) the excellent public domain tool MSGSVC, which emulates some windows dialogs.
>
> I downloaded this. It looks very nice and has great possibilities inside, but I can not understand the whole code (it's too large and complicated for me), so I still don't understand how can I use it for my own purposes?
> 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")

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

Franz
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform