HMG 3.2 (Stable)

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

Post Reply
User avatar
tonton2
Posts: 444
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Contact:

Re: HMG 3.2 (Stable)

Post by tonton2 »

voila un exemple de SUBSTR dans "COMBOSEARCHGRID" ,il a l'air de fonctionner normalement
here is an example of SUBSTR in "COMBOSEARCHGRID", it seems to work normally

Code: Select all

function _HMG_CSG_C2SQL( Value )
local cValue := ""
local cdate := ""
if ( valtype(value) == "C" .or. valtype( value ) == "M" ) .and. len(alltrim(value)) > 0
   value := strtran(value, "'", "''" )
endif
do case
   case Valtype(Value) == "N"
      cValue := AllTrim(Str(Value))
   case Valtype(Value) == "D"

      if !Empty(Value)
         cdate := dtos(value)
          cValue := "'"+SUBSTR(cDate,1,4)+"-"+SUBSTR(cDate,5,2)+"-"+SUBSTR(cDate,7,2)+"'"
      else
         cValue := "''"
      endif
   case Valtype(Value) $ "CM"
      IF Empty( Value)
         cValue="''"
      ELSE
         cValue := "'" + value + "'"
      ENDIF
   case Valtype(Value) == "L"
      cValue := AllTrim(Str(iif(Value == .F., 0, 1)))
   otherwise
      cValue := "''"       // NOTE: Here we lose values we cannot convert
endcase
return cValue
may be I did not understand the real problem :?:
L'Algerie vous salut
Y.TABET
User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:

Re: HMG 3.2 (Stable)

Post by Rathinagiri »

Sorry friends,

I was on a business tour, an official tour and a personal tour continuously for the past one month. I have to catch up with the various posts. I am happy that there are hundreds of posts to follow. :)
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
User avatar
CalScot
Posts: 303
Joined: Thu Mar 21, 2013 12:22 am
Location: California

Re: HMG 3.2 (Stable)

Post by CalScot »

Welcome back!
I hope that you were able to enjoy every part of your trip.
Regards,
CalScot
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: HMG 3.2 (Stable)

Post by srvet_claudio »

Hi All,
this is a patch for HMG:

1) unzip HMG.3.2_patch2.rar file in folder c:\hmg.3.2\

2) execute c:\hmg.3.2\BuildLib.bat

See demo: C:\hmg.3.2\SAMPLES\Controls\RichEditBox

Code: Select all

1) The documentation was rearranged (e.g. DISABLE/ENABLE EVENTS, CREATE EVENTS and READ KEYBOARD FUNCTIONS is moved to Advanced topic)

2) New Features (see doc):

***************
* RICHEDITBOX
***************

New Properties:
---------------
FontName
FontSize
FontBold
FontItalic
FontUnderline
FontStrikeOut
FontColor
FontBackColor
FontScript
Link
GetClickLinkRange
GetClickLinkText
RTFTextMode
AutoURLDetect
Zoom
SelectRange
CaretPos
Value
ViewRect
GetSelectText
GetTextLength
GetTextRange
GetPosChar
AddText
AddTextAndSelect
CanPaste
CanUndo
CanRedo
BackGroundColor
ParaAlignment
ParaNumbering
ParaNumberingStyle
ParaNumberingStart
ParaOffset
ParaLineSpacing
ParaIndent
FindText
ReplaceText
ReplaceAllText


New Methods:
-------------
SelectAll
UnSelectAll
SelCopy
SelPaste
SelCut
SelClear
Undo
Redo
ClearUndoBuffer
RTFLoadFile
RTFSaveFile
RTFPrint


New at definition:
------------------
NOHSCROLL
NOVSCROLL
ON SELECT
ON LINK
ON VSCROLL


******************
* SELECT PRINTER
******************

OpenPrinterGetDC()
OpenPrinterGetPageDC()
IsPrintPageMetaFile()
OpenPrinterGetPageWidth()
OpenPrinterGetPageHeight()


********************
* DEFINE WINDOW
********************

<FormName>.Handle
<FormName>.Index
<FormName>.IsMinimized
<FormName>.IsMaximized
<FormName>.ClientAreaWidth
<FormName>.ClientAreaHeight



*****************
* New Functions
*****************
    - FindTextDialog
    - ReplaceTextDialog
    - HMG_LoadResourceRawFile ( cFileName, cTypeResource | nTypeResourceID ) --> cData
    - GetFontList ( [ hDC ] , [ cFontFamilyName ] , [ nCharSet ] , [ nPitch ] , [ nFontType ] , [ lSortCaseSensitive ] , [ @aFontName ] )
    - System.EmptyClipboard

********************
* Enanced Function
********************
    - GetColor ( [ aDefaultColor ], [ @aCustomColors ], [ lFullOpenBox ] )
Attachments
HMG.3.2_patch2.rar
(1.73 MiB) Downloaded 683 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: HMG 3.2 (Stable)

Post by danielmaximiliano »

Gracias Claudio por tu trabajo con HMG .
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Javier Tovar
Posts: 1275
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México

Re: HMG 3.2 (Stable)

Post by Javier Tovar »

Gracias Dr. Claudio por su dedicación a HMG! :D

Saludos
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: HMG 3.2 (Stable)

Post by esgici »

srvet_claudio wrote: this is a patch for HMG:
Muchas Gracias Dr. :!:

Viva HMG :D
Viva INTERNATIONAL HMG :D
Mario Mansilla
Posts: 269
Joined: Wed Aug 13, 2008 2:35 pm
Location: Córdoba - Argentina

Re: HMG 3.2 (Stable)

Post by Mario Mansilla »

Hola :
He bajado el nuevo patch y recompilado un proyecto que estoy realizando y a su vez mi avast antivirus al actualizarse me acusa el archivo ld.exe de la carpeta mingw/bin de la distribucion con el virus WIN:EVO-GEN .
Me da opciones de acusar falso positivo o bien ingresarlo como exclusion .
Por supuesto no me deja crear el ejecutable .
Alguien que use avast le sucede lo mismo . :(
Saludos
Mario Mansilla

Hello:
I downloaded the new patch and recompiled a project I'm already making my turn to update avast antivirus accuses me ld.exe file mingw / bin folder of the distribution with the virus WIN: EVO-GEN.
It gives me options to acknowledge or submit false positive as exclusion.
Of course not let me create the executable
Someone using avast same thing happens. : (
regards
Mario Mansilla
User avatar
Pablo César
Posts: 4059
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil

HMG 3.2 (Stable)

Post by Pablo César »

Mario Mansilla wrote:Alguien que use avast le sucede lo mismo . :(
Hola Mario, yo uso Avast y no tuve problemas.

Gracias, Claudio por los nuevos recursos en el RichEditBox.
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: HMG 3.2 (Stable)

Post by andyglezl »

Hola, estoy compilando con esta nueva version
y me despliega que no encuentra algunas funciones.
Ya ejecute BuildLib.bat, BuildAllLib.bat, en ANSI, en UNICODE, aplique
los "HMG.3.2Patch1.rar", "HMG.3.2Patch2.rar" y nada,
me sigue dando el mismo mensaje.
Alguna idea ?
----------------------------------------------------------------------
Hi, I'm compiling with this new version
and displays that I can not find some functions.
Now run BuildLib.bat, BuildAllLib.bat in ANSI, in UNICODE, apply
the "HMG.3.2Patch1.rar", "HMG.3.2Patch2.rar" and nothing,
still gives me the same message.
Any idea?
Attachments
error_hmg3.2.JPG
error_hmg3.2.JPG (124.54 KiB) Viewed 6675 times
Andrés González López
Desde Guadalajara, Jalisco. México.
Post Reply