O
OctavioOlguin
Guest
This is the code: /*------------------------------------------------------------------------ File : NotifyToolTip Purpose : Syntax USING procs.msg.NotifyToolTip FROM PROPATH. DEFINE VARIABLE Ballon AS NotifyToolTip NO-UNDO. Ballon = NEW NotifyToolTip (). ballon:ShowTip("Título", "Mensaje", 10). Description : Genera una Notificación tipo Ballon Tool Tip en windows. Author(s) : JorgeOctavioOlguin Created : Fri Mar 10 15:53:44 CST 2017 Notes : Orignal Jeff Ledbetter Tugboat Software.. ----------------------------------------------------------------------*/ USING Progress.Lang.*. USING System.ComponentModel.*. USING System.Windows.Forms.*. BLOCK-LEVEL ON ERROR UNDO, THROW. CLASS Procs.Msg.NotifyToolTip: DEFINE VARIABLE components AS CLASS Container. DEFINE VARIABLE notifyIcon AS CLASS NotifyIcon. CONSTRUCTOR PUBLIC NotifyToolTip ( ): SUPER (). DEFINE VARIABLE cIconFilename AS CHARACTER NO-UNDO. cIconFilename = SEARCH("Procs\iconos\sch.ico"). components = NEW System.ComponentModel.Container(). notifyIcon = NEW System.Windows.Forms.NotifyIcon(components). notifyIcon:Text = "Sistema TAP". notifyIcon:Icon = NEW System.Drawing.Icon (cIconFilename). notifyIcon:Visible = TRUE. END CONSTRUCTOR. METHOD PUBLIC VOID ShowTip( INPUT pcTitle AS CHARACTER, INPUT pcText AS CHARACTER, INPUT piTime AS INTEGER ): notifyIcon:BalloonTipTitle = pcTitle. notifyIcon:BalloonTipText = pcText. notifyIcon:ShowBalloonTip(piTime). RETURN. END METHOD. DESTRUCTOR PUBLIC NotifyToolTip ( ): DELETE OBJECT components. DELETE OBJECT notifyIcon. END DESTRUCTOR. END CLASS.
Continue reading...
Continue reading...