Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Custom messagebox
Message
 
 
À
08/07/2002 12:06:42
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00676092
Message ID:
00676184
Vues:
17
>>Hi everybody,
>>
>>I'm looking for messagebox replacement, which allows any number of buttons with custom captions. It also should support standard icons (? !, etc.)
>
>< snip >
>
>As you are limited from VFP to pass 27 parameters, you may acheave this using comma separated or memo-like list format for the parameters for captions.
>As for standard icons... I have developed class that extracts the EXE icon and shows it in Visual FoxPro HWND control. Same approach can be used to extract icons from any file with resource info - maybe some of the system DLLs or OCXs...
>
>However HWND control is no longer shipped with VFP. So I am not sure whether it will be legal or not to redistribute a VFP7 app with the Visual FoxPro HWND control.
>(If I remember you still use VFP6 at job so this is not problem for you at the moment)
>
>Kind Regards

Hi Zlatin,

I found Alert program in Downloads section written by Dragan Nedeljkovich. He passes a semicolon delimited list of buttons captions, so we can have unlimited number of buttons. I enhanced this program by adding ability to show standard VFP icon (I added a 5th parameter with a character picture to pass). We have all messagebox images in our BMPS directory (I don't know, where they come from, probably from another Download).

The only little thing I don't like in this program, what it uses its own font, and not the default font in MessageBox, so the look is slightly different, than standard messagebox. Anyway, I can live with it, or I can go the hard route and implement retrieving of MessageBox font attributes, as shown in Vlad's FAQ (he once helped me to find these properties for Form's Title bar).
If it's not broken, fix it until it is.


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

Click here to load this message in the networking platform