Page 21 of 29
Re: HMG 3.3.1 (Stable)
Posted: Fri Nov 21, 2014 12:38 am
by srvet_claudio
srvet_claudio wrote:mol wrote:I've installed and compiled Patch 4 - there is still a problem with PDF generation.
I've tested with my app and sample HMG\SAMPLES\HPDF\HMG_HPDF\DEMO and built application throws an error:
Can not start new page. | HB_HPDF_INVALID | StartPage and
Can not create Page Outline
I must revert to Patch 2
Hi Marek,
you're right !!!
It's very weird because I did not make any changed in HPDF in any of the patches
The problem was introduced in patch 3, I will investigate.
Re: HMG 3.3.1 (Stable)
Posted: Sat Nov 22, 2014 2:08 am
by srvet_claudio
mol wrote:I've installed and compiled Patch 4 - there is still a problem with PDF generation.
I've tested with my app and sample HMG\SAMPLES\HPDF\HMG_HPDF\DEMO and built application throws an error:
Can not start new page. | HB_HPDF_INVALID | StartPage and
Can not create Page Outline
I must revert to Patch 2
I fixed, the problem was the load of TTF fonts.
Please unzip this file in \Source and rebuild.
srvet_claudio wrote:It's very weird because I did not make any changed in HPDF in any of the patches
srvet_claudio wrote:The problem was introduced in patch 3
I'm becoming an old man and forgotten,
apparently I mixed versions of source code.
PS: I love the patches for detect bugs !!!
Re: HMG 3.3.1 (Stable)
Posted: Sat Nov 22, 2014 12:13 pm
by mol
Thanks!
I'll try to install patch and test it!
Re: HMG 3.3.1 (Stable)
Posted: Sat Nov 22, 2014 2:43 pm
by tonton2
Merci a tous
It's working very good
Re: HMG 3.3.1 (Stable)
Posted: Sat Nov 22, 2014 5:11 pm
by Javier Tovar
Gracias Dr. Claudio
Excelente trabajo
Saludos
Re: HMG 3.3.1 (Stable)
Posted: Sat Dec 06, 2014 9:19 pm
by srvet_claudio
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:
Code: Select all
#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
Re: HMG 3.3.1 (Stable)
Posted: Sat Dec 06, 2014 9:56 pm
by Pablo César
Wow doctor ! You are great !!!
All is working perfect ! Very nice all improvements, with different ToolTips ! Genial !
Thank you very much, genius !!
Thank you Claudio !
Re: HMG 3.3.1 (Stable)
Posted: Sun Dec 07, 2014 12:10 pm
by srvet_claudio
Hi Friends,
I fixed a bug reporter in patch 5 (
viewtopic.php?f=36&t=4078&start=20#p38506)
Please substitute patch 5 for this patch (patch 5b).
Re: HMG 3.3.1 (Stable)
Posted: Sun Dec 07, 2014 5:58 pm
by quartz565
Thank you Claudio !
Re: HMG 3.3.1 (Stable)
Posted: Sun Dec 07, 2014 6:01 pm
by Javier Tovar
Gracias Dr. Claudio Soto por su ayuda siempre!
Saludos