Monthly Archives: December 2014

Site News – 2011

Posted on by vivaclipper

DECEMBER 2011

Dec 12, 2011 :

Links

Dec 02, 2011 :

Selected Chapters (PDF)

NOVEMBER 2011

Nov 11, 2011 :

Array Aritmetics
Warn Lazy User
xBase Modul List

Nov 10, 2011 :

National Change Case
Alternate Collating Sequence
Auto fill in text box
Low-Level DBU

Nov 9, 2011 :

Dynamic ComboBox
Cuckoo Clock

Nov 8, 2011 :

DBA : Data Base Assistant
Mini Agenda

Nov 7, 2011 :

Clipper Description
Clipper, characteristics and versions

Nov 6, 2011 :

Two Methods for Tree
dBASE and Wayne Ratliff

Nov 5, 2011 :

How I can migrate ?
Building console application
Building a HMG application
Build a Harbour application
Building Harbour / HMG

Nov 4, 2011 :

Clipper In Short

Nov 3, 2011 :

Five years: A Brief History
Milestones
About Clipper History
Where Is It ?

Nov 2, 2011 :

A tale about Clipper
Tom Rettig

Nov 1, 2011 :

Fill Directory
Tree Menu
Directory List
Browse by IDE

OCTOBER 2011

Oct 31, 2011 :

Hex View

Oct 30, 2011 :

Message multiple values
Message Extended
Color Codes
Drives and Directories

Oct 29, 2011 :

HMG Tutor 1 – First HMG prg
HMG Tutor 2 – Main Menu
HMG Tutor 3 – Label
HMG Tutor 4 – TextBox
HMG Tutor 5 – Get Logical
HMG Tutor 6 – Making a Choice
HMG Tutor 7 – More Choices
HMG Tutor 8 – More Choices II
HMG Tutor 9 – Standard Buttons
HMG Tutor 10 – Picture Buttons
HMG Tutor 11 – CheckButton
HMG Tutor 12 – DatePicker
HMG Tutor 13 – EditBox
HMG Tutor 14 – IMAGE Control
HMG Tutor 15 – Progress Bar
HMG Tutor 16 – Spinner
HMG Tutor 17 – TAB Control
HMG Tutor 18 – ToolBar
HMG Tutor 19 – StatusBar
HMG Tutor 20 – Data-Bound GRID
HMG Tutor 22 – Data-Controls II
HMG Tutor 23 – SplitBox

Oct 28, 2011 :

Quick Start to HMG
About this tutorial
About HMG Samples

Oct 27, 2011 :

HMG IDE Basics
What is Harbour ?

Oct 26, 2011 :

Mere Clipper
What is Clipper ?

HMG 3.3.1 Patch 5 Published

Posted on by vivaclipper

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

 

HMG 3.3.1 HMG-HPDF.prg changed

Posted on by vivaclipper

Re: HMG 3.3.1 (Stable)
Postby srvet_claudio » Sat Nov 22, 2014 2:08 am

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 !!!
ATTACHMENTS
h_HMG_HPDF.rar
(10.01 KiB) Downloaded 56 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

GoVisitBlue324x48

DL_PatchFrHMGForum312x48

DL_PatchFrGogDrive312x48