FIRST : New MessageBox with Free Button's Name and Button's Number, and HTML formatted Message.

Example

...

Message := /* an HTML String */ ;

Buttons := 'Yes#13No#13Perhaps#13I don't know' ;

Answer := BM('Do you love me ?',Message, Buttons) ;

Case Answer of

1 : // Yes

2 : // No

3 : // Perhaps

4 : // I don't know

End ; // Case

Very easy to use.

SECOND : Function BM use HTML interpretor :

TextHTMLOut( TargetCanvas, X, Y, HTMLString, {Var} Height) ;

Wich can be use to create THTMLLabel, THTMLButton,

THTMLEdit, or directly used on FormPaint event manager

bm.zip contains :

PTestUBM.dpr 194 octets (sample dpr)

DDU_Public.pas 145 841 octets (TextHMLOut function)

UBM_Public.pas 5 557 octets (BM function)

UTestUBM.pas 692 octets (sample pas)

PTestUBM.res 876 octets (sample res)

UBM_Public.dfm 493 octets (sample dfm)

UTestUBM.dfm 498 octets

COMMENTS ARE WAITED

but I my main language is French

If you speak French ....