[求助]alert specify text is bold & color

sachindkini

Dear Sir

It’s possible in alert specify text is bold & color

2. ;;;;;;;;; ------ User Name & Login Time ------ ;;;;;;;;;
3. (setq usernm (getenv "username"))
4. (setq ttdt (rtos (getvar "cdate") 2 4))
5. (setq year (substr ttdt 1 4))
6. (setq month (substr ttdt 5 2))
7. (setq day (substr ttdt 7 2))
8. (setq hourms (substr ttdt 10 2))
9. (setq mints (substr ttdt 12 2))
10. (setq hourm (atoi hourms))
11. (if (> hourm 12) (setq houri (- hourm 12)) (setq houri hourm))
12. (if (> hourm 12) (setq ampm " pm") (setq ampm " am"))
13. (setq hour (itoa houri))
14. (setq greet "Morning")
15. (if (and (>= hourm 12) (< hourm 18)) (setq greet "Afternoon"))
16. (if (and (>= hourm 18) (<= hourm 23)) (setq greet "Evening"))
17. (setq alrtxt (strcat "Welcome " usernm "\nGood " greet "\nDate: " day "-" month "-" year "\nLogIn Time " hour ":" mints ampm))
18. (vlr-beep-reaction)
19. (alert alrtxt)
20. ;;;;;;;;; ------     End Program        ------ ;;;;;;;;;

;;;;;;;;; ------ User Name & Login Time ------ ;;;;;;;;; (setq usernm (getenv "username")) (setq ttdt (rtos (getvar "cdate") 2 4)) (setq year (substr ttdt 1 4)) (setq month (substr ttdt 5 2)) (setq day (substr ttdt 7 2)) (setq hourms (substr ttdt 10 2)) (setq mints (substr ttdt 12 2)) (setq hourm (atoi hourms)) (if (> hourm 12) (setq houri (- hourm 12)) (setq houri hourm)) (if (> hourm 12) (setq ampm " pm") (setq ampm " am")) (setq hour (itoa houri)) (setq greet "Morning") (if (and (>= hourm 12) (< hourm 18)) (setq greet "Afternoon")) (if (and (>= hourm 18) (<= hourm 23)) (setq greet "Evening")) (setq alrtxt (strcat "Welcome " usernm "\nGood " greet "\nDate: " day "-" month "-" year "\nLogIn Time " hour ":" mints ampm)) (vlr-beep-reaction) (alert alrtxt) ;;;;;;;;; ------     End Program        ------ ;;;;;;;;;