[求助]alert specify text is bold & color
Dear SirIt’s possible in alert specify text is bold & color
;;;;;;;;; ------ 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 ------ ;;;;;;;;;
页:
[1]