HMG 3.3.1 Patch 5 Published

by srvet_claudio » Sat Dec 06, 2014 9:19 pm

Hi Friends.

Please test this patch the last minute.
SET TOOLTIPCUSTOMDRAW ON|OFF –> For default ToolTip Custom Draw is OFF
SET TOOLTIPCUSTOMDRAW TO <lOn>

ToolTipCustomDrawIsActive() –> lBoolean

SET TOOLTIPCUSTOMDRAW CONTROL <ControlName> OF <ParentName> [ BACKCOLOR <aBackColor> ] [ FORECOLOR <aForeColor> ] [ ARRAYFONT <aFont> ] [ BALLOON <lBalloon> ]

SET TOOLTIPCUSTOMDRAW CONTROL <ControlName> OF <ParentName> –> Remove tooltip custom draw of the control
Note:

aFont := ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ] –> { cFontName, nFontSize, lBold, lItalic, lUnderline, lStrikeout }

aFont := CREATE ARRAY FONT <cFontName> SIZE <nFontSize> [ BOLD <lBold> ] [ ITALIC <lItalic> ] [ UNDERLINE <lUnderline> ] [ STRIKEOUT <lStrikeout> ] –> { cFontName, nFontSize, lBold, lIitalic, lUnderline, lStrikeout }
See this demo:

#include "hmg.ch"
Function Main
PRIVATE lOnToolTipCustomDraw := .T.
   SET TOOLTIPSTYLE BALLOON
 
   SET TOOLTIPFORECOLOR BLUE
   SET TOOLTIPCUSTOMDRAW TO lOnToolTipCustomDraw // For default ToolTip Custom Draw is OFF
   DEFINE WINDOW Form_1 MAIN
   @ 200,250 LABEL Label_1 ;
     AUTOSIZE ;
     VALUE 'Click me On/Off TOOLTIP Custom Draw!' ;
     ACTION SetOnOff();
     FONT 'Arial' SIZE 24;
     TOOLTIP "ToolTip Label 1"
   @ 50,50 LABEL Label_2 ;
     AUTOSIZE ;
     VALUE 'Hello HMG World' ;
     TOOLTIP "ToolTip Label 2 of Form_1"
   @ 150,50 LABEL Label_3 ;
     AUTOSIZE ;
     VALUE 'Label with Default ToolTip' ;
     TOOLTIP "ToolTip Default"
END WINDOW
aFont := ARRAY FONT "Arial" SIZE 12 BOLD UNDERLINE
SET TOOLTIPCUSTOMDRAW CONTROL Label_1 OF Form_1 FORECOLOR RED ARRAYFONT aFont
 
aFont := ARRAY FONT "Times New Roman" SIZE 10 BOLD ITALIC
SET TOOLTIPCUSTOMDRAW CONTROL Label_2 OF Form_1 ARRAYFONT aFont BALLOON .F.
// SET TOOLTIPCUSTOMDRAW CONTROL Label_1 OF Form_1 // Remove tooltip custom draw of the control
 
ACTIVATE WINDOW Form_1
Return
PROCEDURE SetOnOff
   lOnToolTipCustomDraw := .NOT. lOnToolTipCustomDraw
   SET TOOLTIPCUSTOMDRAW TO lOnToolTipCustomDraw
   MsgInfo ({"ToolTip Custom Draw is: ", ToolTipCustomDrawIsActive ()})
RETURN

ATTACHMENTS
HMG.3.3.1_Patch5.rar

Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

GoVisitBlue324x48

DL_PatchFrHMGForum312x48
DL_PatchFrGogDrive312x48

 

Advertisements

One response to “HMG 3.3.1 Patch 5 Published

  1. Pingback: HMG News | Viva Clipper !

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s