prg code function documentor in HMG

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

RPC
Posts: 281
Joined: Fri Feb 10, 2017 4:12 am
DBs Used: DBF

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: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: prg code function documentor in HMG

Post by AUGE_OHR »

hi,

this is the Clipper Source to get IndexKey() from NTX without load DBF.
INDDUMP.ZIP
(3.76 KiB) Downloaded 683 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: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: prg code function documentor in HMG

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 707 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: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: prg code function documentor in HMG

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 30278 times
Upgrade is just CLICK.PRG so you need last full Version.
CLICK20535.ZIP
(26 KiB) Downloaded 750 times
have fun
Jimmy
User avatar
AUGE_OHR
Posts: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: prg code function documentor in HMG

Post by AUGE_OHR »

latest CLICK Version 2.05.36
CLICK20536.ZIP
(26.14 KiB) Downloaded 566 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: 420
Joined: Mon Jul 18, 2011 5:36 pm
Location: Rio Grande do Sul - Brasil
Contact:

Re: prg code function documentor in HMG

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: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: prg code function documentor in HMG

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: 188
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: prg code function documentor in HMG

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: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: prg code function documentor in HMG

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
HGAutomator
Posts: 188
Joined: Thu Jul 16, 2020 5:42 pm
DBs Used: DBF

Re: prg code function documentor in HMG

Post by HGAutomator »

Thanks Auge,

But I only see the PRGs. Which Zip file is the hbp file in?

Should I just throw in the full list CLICK files, CLICK,XBASE,FUNCTRAK, etc. into a CLICK.HBP?
Post Reply