HMG 3.3.1 (Stable)

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

User avatar
srvet_claudio
Posts: 2145
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 58 times
Been thanked: 250 times
Contact:

Re: HMG 3.3.1 (Stable)

Post 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.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
srvet_claudio
Posts: 2145
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 58 times
Been thanked: 250 times
Contact:

Post 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, :lol: :lol: :lol:
apparently I mixed versions of source code.

PS: I love the patches for detect bugs !!!
Attachments
h_HMG_HPDF.rar
(10.01 KiB) Downloaded 357 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
mol
Posts: 3495
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Has thanked: 289 times
Been thanked: 197 times
Contact:

Post by mol »

:D
Thanks!
I'll try to install patch and test it!

User avatar
tonton2
Posts: 349
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Has thanked: 16 times
Been thanked: 17 times
Contact:

Post by tonton2 »

Merci a tous
It's working very good
L'Algerie vous salut
Y.TABET

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar »

Gracias Dr. Claudio

Excelente trabajo

Saludos

User avatar
srvet_claudio
Posts: 2145
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 58 times
Been thanked: 250 times
Contact:

Post 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
Attachments
HMG.3.3.1_Patch5.rar
(2.47 MiB) Downloaded 386 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 182 times

Post 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 ! :D
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
srvet_claudio
Posts: 2145
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 58 times
Been thanked: 250 times
Contact:

Post 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).
Attachments
HMG.3.3.1_Patch5b.rar
(2.47 MiB) Downloaded 442 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
quartz565
Posts: 624
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Has thanked: 236 times
Been thanked: 29 times
Contact:

Post by quartz565 »

Thank you Claudio !
Best Regards,
Nikos.

os: Windows Server 2012 - 64
hw: HP Server E5606, 2.13GHz, 8.00 GB - Intel Xeon CPU

Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar »

Gracias Dr. Claudio Soto por su ayuda siempre!

Saludos

Post Reply