CLICK HMG Source

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
User avatar
AUGE_OHR
Posts: 1149
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany
Has thanked: 213 times
Been thanked: 310 times

CLICK HMG Source

Post by AUGE_OHR »

hi,

i have CLICK HMG Source :D

it need some small change in HMG \Source Code

---

modify for Type "I", "T" and "@" ( HBFM v1.28 )
c:\hmg.3.4.4\SOURCE\H_BROWSE.PRG and h_controlmisc.prg
search for comment "by Jimmy"

---

i have extract C-Code (still in Source) from
C:\hmg.3.4.4\SOURCE\h_controlmisc.prg
C:\hmg.3.4.4\SOURCE\h_HMG_HPDF.Prg
C:\hmg.3.4.4\SOURCE\h_HMG_HPDF_UNICODE.prg
and Build HB_FUNC.PRG (for CLICK) with C-Code

new hmg32.hbp and hmg64.hbp include HB_FUNC.PRG

---

modify for CLICK this Syntax in H_GRID.PRG

Code: Select all

   IF AEC = 'EDITBOX'
      DEFINE WINDOW
   ELSE
      DEFINE WINDOW
   ENDIF
---

change Code in c:\hmg.3.4.4\SOURCE\h_textbox.prg for CLICK Syntax

Code: Select all

#ifdef COMPILE_HMG_UNICODE
      if c != '9' .and.  c != '$' .and. c != '*' .and. c !='.' .and. c != ','  .and. c != ' ' .and. c != 'Ђ' .and. c != '€'
#else
      if c != '9' .and.  c != '$' .and. c != '*' .and. c !='.' .and. c != ','  .and. c != ' ' .and. c != 'Ђ'
#endif
         MsgHMGError("@...TEXTBOX: Wrong InputMask Definition" )
      EndIf
---

change /*Comment*/ Code in c:\hmg.3.4.4\SOURCE\h_HMG_HPDF_UNICODE.prg

Code: Select all

   DrawText (hDC, cText, -1, &rect, DT_NOCLIP | DT_WORDBREAK | /*DT_EXTERNALLEADING |*/ DT_NOPREFIX | nAlign);
---

after run CLICK there is a Error in h_controlmisc.prg

Code: Select all

FUNCTION HMG_CallDLL( cLibName, nRetType, cFuncName, ... )
STATIC s_hDLL   := { = > } // Error
must be

Code: Select all

STATIC s_hDLL   := { => }
i will upload Change to Github HBFM under \Source
backup your \Source Folder before replace with include files

have fun
have fun
Jimmy

Post Reply