J
Jeff Ledbetter
Guest
Here is an older example I had in my samples directory.. still seems to work... USING System.ComponentModel.*. USING System.Windows.Forms.*. DEFINE VARIABLE c AS CHARACTER FORMAT "x(30)" LABEL "Enter tip". DEFINE VARIABLE components AS CLASS Container. DEFINE VARIABLE notifyIcon AS CLASS NotifyIcon. RUN setupNotifyIcon. DO WHILE TRUE ON END-KEY UNDO, LEAVE: UPDATE c WITH FRAME A VIEW-AS DIALOG-BOX THREE-D SIDE-LABELS TITLE "The Tip Maker". RUN showTip ("Just the tip", c, 50). END. QUIT. FINALLY: DELETE OBJECT components. DELETE OBJECT notifyIcon. END FINALLY. PROCEDURE setupNotifyIcon: DEFINE VARIABLE cIconFilename AS CHARACTER NO-UNDO. cIconFilename = SEARCH("d:\work\rtb\rtbgears.ico"). components = NEW System.ComponentModel.Container(). notifyIcon = NEW System.Windows.Forms.NotifyIcon(components). notifyIcon:Text = "Roundtable TSMS". notifyIcon:Icon = NEW System.Drawing.Icon (cIconFilename). notifyIcon:Visible = TRUE. END PROCEDURE. PROCEDURE showTip: DEFINE INPUT PARAMETER pcTitle AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER pcText AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER piTime AS INTEGER NO-UNDO. notifyIcon:BalloonTipTitle = pcTitle. notifyIcon:BalloonTipText = pcText. notifyIcon:ShowBalloonTip(piTime). RETURN. END PROCEDURE.
Continue reading...
Continue reading...