Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations John Tel on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Flat buttons on message box
- Thread starter Trip
- Start date
Hi,
I don't have Clarion 6, but with 5.5 there is a system property that allow you to overwrite the builtin message box. You can do what ever you want in your own message procedure.
SYSTEM{PROP:MessageHook} = Address(MyMessageProcedure)
SYSTEM{PROP:MessageHook} = 0
MyMessageProcedure PROCEDURE(STRING MsgText,<STRING Caption>,<STRING msgIcon>,<STRING Buttons>,UNSIGNED btnDefault=0,BOOL Style=FALSE)
etc...
Good luck.
Valery.
I don't have Clarion 6, but with 5.5 there is a system property that allow you to overwrite the builtin message box. You can do what ever you want in your own message procedure.
SYSTEM{PROP:MessageHook} = Address(MyMessageProcedure)
SYSTEM{PROP:MessageHook} = 0
MyMessageProcedure PROCEDURE(STRING MsgText,<STRING Caption>,<STRING msgIcon>,<STRING Buttons>,UNSIGNED btnDefault=0,BOOL Style=FALSE)
etc...
Good luck.
Valery.
- Status
Similar threads
