Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Change font in MessageBox?
Message
From
19/05/1999 15:51:44
Franz Mueller
J. Schuh Ges.m.b.H.
Kirchberg, Austria
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00219801
Message ID:
00220588
Views:
37
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform