prg code function documentor in HMG

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

RPC
Posts: 245
Joined: Fri Feb 10, 2017 4:12 am
DBs Used: DBF
Has thanked: 141 times
Been thanked: 14 times

Re: prg code function documentor in HMG

Post by RPC »

Hi Jimmy
I got confused, your DP mentions it as AUGE_OHR so I was addressing you accordingly.
Henceforth I will call you Jimmy.
Yes I got a different icon instead of your icon.

I think the second icon is redundant, it doesn't seem to be used anywhere.

User avatar
AUGE_OHR
Posts: 1318
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 246 times
Been thanked: 378 times

Post by AUGE_OHR »

hi,

this is the Clipper Source to get IndexKey() from NTX without load DBF.
INDDUMP.ZIP
(3.76 KiB) Downloaded 134 times
it use low level and read at byte 22
i have made some test and it seem still work after 20 year :D
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 1318
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 246 times
Been thanked: 378 times

Post by AUGE_OHR »

hi,

i do have a Problem with HMG Source Syntax and Logic of CLICK

c:\hmg.3.4.4\SOURCE\H_GRID.PRG

Code: Select all

1017 IF AEC = 'EDITBOX'

      DEFINE WINDOW _HMG_GRID_InplaceEdit AT 0, 0 ;
                 WIDTH 350 ;
                 HEIGHT 350 + IF( IsAppThemed(), 3, 0 ) ;
                 TITLE _HMG_SYSDATA[ 7 ] [ idx ] [ ci ] ;
                 MODAL ;
                 NOSIZE ;
                 SHORTTITLEBAR

      ELSE

         DEFINE WINDOW _HMG_GRID_InplaceEdit AT r + DR, c + DC ;
                    WIDTH This.CellWidth + DW ;
                    HEIGHT This.CellHeight + 6 + DH ;
                    TITLE '' ;
                    MODAL NOSIZE NOCAPTION

         ENDIF
c:\hmg.3.4.4\SOURCE\h_controlmisc.prg

Code: Select all

3437 IF nR + nH > GetDeskTopRealHeight()
      nDiff := nR + nH - GetDeskTopRealHeight()
      // nR := nR - nDiff
      DEFINE WINDOW _InputWindow AT nR, nC WIDTH nW HEIGHT( nH - nDiff ) ;
                 VIRTUAL HEIGHT nH VIRTUAL WIDTH nW + 20 ;
                 TITLE cTitle MODAL NOSIZE BackColor aBackColor ON RELEASE _InputWindowOnRelease(OldScrollStep, aHotKeys )

         SET SCROLLSTEP TO 20
      ELSE
         DEFINE WINDOW _InputWindow AT nR, nC WIDTH nW HEIGHT nH ;
                 TITLE cTitle MODAL NOSIZE BackColor aBackColor ON RELEASE _InputWindowOnRelease( OldScrollStep, aHotKeys )
         ENDIF
there is a DEFINE but no ENDxxx before ELSE or ENDIF ... hm

so i have change 2 lines in CLICK
NOT to use "DEFINE WINDOW" to indent
search for "Jimmy 20200921" in new CLICK.PRG

here changed Code
--- deleted ---

here working full Source Code (only PRG) v2.05.34
hb_CLICK_20534.ZIP
(64.7 KiB) Downloaded 103 times

p.s.
when work with c:\hmg.3.4.4\SOURCE\*.PRG (no Subfolder) it need some small modification.
i will open extra Thread
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 1318
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 246 times
Been thanked: 378 times

Post by AUGE_OHR »

hi,

Modification in v2.05.34 for HMG \Source work but it look not nice with "normal" Syntax.

So I add option in CLICK whether to indent DEFINE WINDOW or not
DEF_WIN.JPG
DEF_WIN.JPG (12.28 KiB) Viewed 2087 times
Upgrade is just CLICK.PRG so you need last full Version.
CLICK20535.ZIP
(26 KiB) Downloaded 92 times
have fun
Jimmy

User avatar
AUGE_OHR
Posts: 1318
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 246 times
Been thanked: 378 times

Post by AUGE_OHR »

latest CLICK Version 2.05.36
CLICK20536.ZIP
(26.14 KiB) Downloaded 72 times
add "NODE" for DEFINE TREE like this

Code: Select all

   DEFINE TREE Tree_1 ...
      NODE 'Item 1'
         TREEITEM 'Item 1.1'
         TREEITEM 'Item 1.2' ID 999
         TREEITEM 'Item 1.3'
      END NODE
have fun
Jimmy

User avatar
jairpinho
Posts: 410
Joined: Mon Jul 18, 2011 5:36 pm
Location: Rio Grande do Sul - Brasil
Has thanked: 5 times
Been thanked: 34 times
Contact:

Post by jairpinho »

AUGE_OHR wrote:
Mon Nov 16, 2020 1:15 am
latest CLICK Version 2.05.36
CLICK20536.ZIP

add "NODE" for DEFINE TREE like this

Code: Select all

   DEFINE TREE Tree_1 ...
      NODE 'Item 1'
         TREEITEM 'Item 1.1'
         TREEITEM 'Item 1.2' ID 999
         TREEITEM 'Item 1.3'
      END NODE
hello Jimmy can compile with HMG ide
Jair Pinho
HMG ALTA REVOLUÇÃO xBASE
HMG xBASE REVOLUTION HIGH
http://www.hmgforum.com.br

User avatar
AUGE_OHR
Posts: 1318
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 246 times
Been thanked: 378 times

Post by AUGE_OHR »

hi,
jairpinho wrote:
Mon Nov 16, 2020 2:29 am
hello Jimmy can compile with HMG ide
Upgrade is just CLICK.PRG so you need last full Version.
have fun
Jimmy

HGAutomator
Posts: 34
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF
Has thanked: 1 time
Been thanked: 4 times

Post by HGAutomator »

Wow. I remember CLICK, I didn't know someone built a harbour version. Thanks.

I have all the sources. Do we build it with hbmk2.bat?

User avatar
AUGE_OHR
Posts: 1318
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 246 times
Been thanked: 378 times

Post by AUGE_OHR »

hi,
HGAutomator wrote:
Sat Apr 17, 2021 2:41 am
I have all the sources. Do we build it with hbmk2.bat?
i have include *.HBP so you can use

Code: Select all

build CLICK.HBP  
have fun
Jimmy

Post Reply