CLICK HMG Source

[AUGE_OHR]

hi,

i have CLICK HMG Source

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