Boîte de message améliorée (nom et nombre de bouton libre - message formaté grâce à html)

Description

Nous avons souvent besoin des Boîtes de Message.
Malheureusement les boîtes de message standards sont vraiment très limitées.
J'avais déjà publié une boite de message à boutons libres (Nom et nombre des boutons libres).
Exemple :
Case BM(Titre,Message,'Oui#13Non#13Peut-être') do
0 : // la BM a été fermée avec [X] ou <Echap>
1 : // OUI
2 : // NON
3 : // Peut-être
End ; // case

Si NomBouton.Bmp est présent dans le répertoire courant, il attribué comme glyph du bouton.
Cette nouvelle boîte permet de passer en paramètre un message au format HTML.
La syntaxe est la même.
Case BM(Titre,
'<FONT Face="Times New Roman" Size=15 Color=#FF>'+
'Tu m''aimes ?<P><FONT>'+
'<I>Réfléchis bien !</I>',
'Peut-être#13Un peu#13Beaucoup#13A la Folie#13pas du &Tout') do
0 : // la BM a été fermée avec [X] ou <Echap>
1 : // Peut-être
2 : // Un peu
3 : // Beaucoup
4 : // A la Folie
5 : // pas du Tout
End ; // End case
ATTENTION : l'interpréteur HTML ne respecte pas avec rigeur la norme HTML. C'est même une approximation. Les habitués d'HTML ne seront pas perdu.
Comme le source est fourni et que je 'ai pas le temps, je documente pas ce source

Vous trouverez aussi la fonction :
Function TextHTMLOut ( CanvasCible : TCanvas ;
X, Y, Largeur : Integer ;
Chaine : String ; // HTML !
AvecMarques : Boolean = False ) : Integer ;
J'ai commencé un editeur HTML qui marche en beugant un peu.

Conclusion :


Si je rédige une doc, en particulier sur les balises HTML reconnues BM et , je la publierai TextHTMLOut.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.