HMG Releases - Atualizações

por **Pablo César** » 06 Nov 2012 14:14

Esta versão tem uma mudança radical de quase todos os arquivos de código fonte: Aqui (40.70 MB) ou em Sourceforge.net

Graças a Claudio Soto, agora a maioria dos avisos do compilador desapareceram. Maior limpeza do código ajudou a otimizar a biblioteca.

Mais uma vez graças a Cláudio, HMG_HPDF agora está completo, você pode incluir no PDF qualquer imagem (JPG ou PNG) como recursos também.

- HMG 3.0.46 (Test) 2012/11/06
- Update to latest Harbour Nightly Build (18443 2012-11-05)
- New
- Print Barcode sample. See samples/printean13 folder for details. (Contributed by Marek Olszewski)
- Desktop Make Shortcut for file/dir and URLs in HFCL. See sample at hfcl/samples/makeshortcut folder. (Contributed by B.P Dave and Esgici)
- buildalllib.bat in the base directory to build all the libraries including hmg, hfcl, hmgsqlbridges, crypt, edit, editex, ini, graph, report etc with a single call.
- Included hbvpdf library in HMG library folder. This library is required to compile all the samples in samples/report.advanced folders.
- Update
- Bos Taurus Graphics library 1.01. Author Claudio Soto had modified the source files to make it compatible for HFCL. (Thanks to Claudio Soto)
- Updated BT_BitmapLoadFile() fuction, now load images in the formats: BMP, GIF, JPG, TIF and PNG.
- Added Functions:
- BT_BitmapInvert
- BT_BitmapContrast
- BT_BitmapModifyColor
- BT_BitmapGammaCorrect
- BT_BitmapConvolutionFilter3x3
- Updated BosTaurus-FunctionsReferenceGuide.PDF with changes made.
- Added Demo10
- HMG_HPDF Library in HFCL. Now the image command accepts both jpg and png file formats from either file or resource location. (Contributed by Claudio Soto)
- Fix
- Number of warnings while compiling the HMG library is now reduced to only six. Great thanks to Claudio Soto.
- Hardcoded Path name references in batch files. Now HMG can be installed any path (having no spaces).

por **Claudio Soto** » 26 Nov 2012 09:12

Rathinagiri escreveu:Dear HMG family,

I am very happy to announce the new version of HMG. In this version HMG is upgraded with Unicode compatibility with the sole and untiring contribution of Dr. Claudio Soto. When I had requested him about the implementation of Unicode in HMG few weeks back, without any inhibition or hesitation he had readily accepted to do the hectic job of revamping the HMG Win32 API source code. Since this is a major upgrade I had numbered this version 3.1.0.

Personally for me, it is a LONG time dream coming true. Now I can write applications having interface in my own native language or any human language! My personal thanks and credit goes to our friend Claudio.

Since this is a test version, it is not suggested for a live situation.

HMG 3.1.0 (2012-11-25) can be downloaded from here (40.70 MB) http://hmgforum.com/site/index.php

Alternatively you can download from sourceforge.net too. https://sourceforge.net/projects/hmg/files/latest/download?source=files

If you want to disable Unicode altogether, please delete/remark the following line in source/SET_COMPILE_HMG_UNICODE.ch and rebuild HMG library.

#define COMPILE_HMG_UNICODE

Code:
- HMG 3.1.0 (Test) 2012/11/25
- Major update to HMG
- Unicode (UTF8) compatibility. (Solely contributed by Dr. Claudio Soto)
- With this upgraded version HMG applications can be made available in all human languages. It is required to set 'Encoding->Encoding in UTF8' in Notepad++ for all the source code files which contain strings in languages using Unicode characters.
- New Main.UNI.Demo in samples folder for Unicode based demo in Tamil language.
- Update to BosTaurus Graphics Library version 1.0.2 (contributed by Dr. Claudio Soto)
- Updated BT_BitmapSaveFile() fuction, now save images in the formats: BMP, GIF, JPG, TIF and PNG.
- Updated BosTaurus-FunctionsReferenceGuide.PDF with changes made.
- New Demo11 in hfcl\samples\BosTaurus folder.
- Fixed HFCL HMG_HPDF TTF font loading bug.

Enjoy!

srvet_claudio escreveu:Add to changelog of HMG 3.1.0 (Test) 2012/11/25

The Image and ToolBar controls can now load images (from disk or resources) in format: BMP, GIF, JPG, TIF, WMF, PNG, ICO and CUR.

por **Claudio Soto** » 03 Dez 2012 08:53

rathinagiri escreveu:Hi HMG birds,

I am as usual feeling happy to announce about the new version. This time it is a bug fixing version of our latest HMG UNICODE.

HMG 3.1.1 (2012-12-02) can be downloaded from here (41.90 MB) http://hmgforum.com/site/index.php

Alternatively you can download from sourceforge.net too. https://sourceforge.net/projects/hmg/files/latest/download?source=files

This is the change log for this version. Thanks a lot to Dr. Claudio Soto for fixing all the bugs reported so far.

- HMG 3.1.1 (Test) 2012/12/02
- Update to latest Harbour Nightly Build (18706 2012-11-29)
- Fix (Contributed by Dr. Claudio Soto)
- Set BACKGROUND Color in RadioGroup control when defined in the TAB control. This bug was found in previous versions of HMG also.
- Set Icon in StatusBar control in Windows XP (Found in HMG-UNICODE version)
- QueryData in GRID control (Found in HMG-UNICODE version)
- SELECT PRINTER DEFAULT (Found in HMG-UNICODE version)
- GetClipboard (Found in HMG-UNICODE version).
- All the libraries are now built without incremental and now built from scratch to avoid updation in 'c' source code.
- New
- Added 2 new functions HMG_IsUnicode() and HMG_CharSetName()
- "SET CODEPAGE TO UNICODE" is added to language directives. Those who write hybrid applications where in ANSI and UNICODE texts are used it is useful to use them both with 'SET CODEPAGE TO ANSI' and 'SET CODEPAGE TO UNICODE' wherever required. By default SET CODEPAGE TO UNICODE is set.

por **Pablo César** » 03 Dez 2012 14:00

Grande Dr. Claudio ! Muito bom termos um profissional com tão grandes habilidades em C e melhor saber que faz tanto pela nossa comunidade. Parabéns doutor !

por **Mario Mesquita** » 03 Dez 2012 14:56

Boa tarde, Pablo.

Teria como voce explicar pra galera (eu junto, claro) quais as caracteristicas/vantagens principais dessa versão 3.1?

Confesso que não alcancei tudo... Mas parece ser um salto em relação as 3.0 ...

Ela está em testes, ao que parece, então não é recomendada ainda para uso em produção?

Desde já, agradeço.

Sds,
Mario.

por **Pablo César** » 03 Dez 2012 16:04

O grande colega Claudio Soto, viabilizou o uso de UNICODE em HMG, o que permite você poder exibir os seus programas em qualquer lingua (humana, claro, rs), podendo exibir os caracteres de cada linguagem sem a necessidade de Set Code Page nem Set Language to ...

Veja exemplos:
Imagem

Veja este exemplo do colega Esgici, que fala por si só: http://hmgforum.com/download/file.php?id=2699

Como todo produto novo, está sujeito a ajustes. Mas já está funcionando e é totalmente confiável. Claro que você terá que adaptar o seu editor para exibir em UFT-8

por **Mario Mesquita** » 04 Dez 2012 10:24

Olá, Pablo.

Muito interessante. Nosso velho Clipper de guerra cada dia mais antenado com o mundo globalizado, rs.

Já que voce garante, vou usar a 3.1 para montar um projeto novo que estou trabalhando...

Parabens ao Dr. Soto.

Obrigado e um abraço.

Mario

por **Claudio Soto** » 11 Dez 2012 01:32

En el siguiente link dejé un listado de las funciones de Harbour que soportan Strings en UNICODE y en ANSI. http://www.hmgforum.com/viewtopic.php?p=23372#p23372

y en este link funciones que SOLO soportan Strings en ANSI. http://www.hmgforum.com/viewtopic.php?p=23380#p23380

Saludos,
Claudio Soto.

por **Jairo Maia** » 11 Dez 2012 06:58

Hello Dr Claudio Soto,

Thanks for sharing these informations.

Did you know this link too?: Unicode Convert

This link was passed to me by Pablo Cesar short time ago. It have the source of all functions listed. I think that it is interesting for the theme too.

por **Pablo César** » 04 Abr 2013 13:14

Está disponível atualização aqui basicamente ajustes para UNICODE:

-HMG 3.1.2 (Test) 2013/04/04
- Update to latest Harbour Nightly Build (2013-03-18)
- New Included contrib folder of Harbour for Library samples
- set the compiler warnings to W2 (Contributed by Dr. Claudio Soto)
- Fixed Browse Control Problem (Contributed by Dr. Claudio Soto)
- Fixed Image Property in COMBOBOX control (Contributed by Dr. Claudio Soto)
- New functions HMG_LOWER() and HMG_UPPER() (see source\Unicode_Strings.PRG) for support LowerCase and UpperCase of strings in Unicode. (Contributed by Dr. Claudio Soto)
- New functions HMG_PADC(), HMG_PADL() and HMG_PADR() (see source\Unicode_Strings.PRG) for Unicode string padded. (Contributed by Dr. Claudio Soto)
- New alternative functions for some string related functions for Unicode or ANSI (Contributed by Dr. Claudio Soto)
UNICODE/ANSI ANSI Only
------------ ---------
HMG_LEN() <=> LEN()
HMG_LOWER() <=> LOWER()
HMG_UPPER() <=> UPPER()
HMG_PADC() <=> PADC()
HMG_PADL() <=> PADL()
HMG_PADR() <=> PADR()

HB_USUBSTR() <=> SUBSTR()
HB_ULEFT() <=> LEFT()
HB_URIGHT() <=> RIGHT()
HB_UAT() <=> AT()
HB_UTF8RAT() <=> RAT()
HB_UTF8STUFF() <=> STUFF()
- Fixed EDIT Control language problem.(Contributed by Dr. Claudio Soto)
- New Define/Release at runtime Main / Context / Notify / DropDown Menu
- New Commands/Functions (see example MENU_Dynamic_Demo.rar) (Contributed by Dr. Claudio Soto)
IsMainMenuDefined ( cFormName )
IsContextMenuDefined ( cFormName )
IsNotifyMenuDefined ( cFormName )
IsDropDownMenuDefined ( cButtonName, cFormName )

RELEASE MAIN MENU OF FormName
RELEASE MAINMENU OF FormName
ReleaseMainMenu ( cFormName )

RELEASE CONTEXT MENU OF FormName
RELEASE CONTEXTMENU OF FormName
ReleaseContextMenu ( cFormName )

RELEASE NOTIFY MENU OF FormName
RELEASE NOTIFYMENU OF FormName
ReleaseNotifyMenu ( cFormName )

RELEASE DROPDOWN MENU BUTTON ButtonName OF FormName
RELEASE DROPDOWNMENU OWNERBUTTON ButtonName OF FormName
ReleaseDropDownMenu ( cButtonName, cFormName )
- Fixed HFCL for Unicode support except HMG_HPDF (Contributed by Dr. Claudio Soto)
- New BosTaurus documentation and Demo12 (Unicode example) (Contributed by Dr. Claudio Soto)

Exemplo do Dynamic Menu demo (colocar na pasta SAMPLES): MENU_Dynamic_Demo

por **Pablo César** » 09 Mai 2013 10:59

Está disponível nova atualização, basicamente ajustes para UNICODE e novas funções: Para Download, clicar aqui

-HMG 3.1.3 (Test) 2013/05/09
- New IDE_Unicode Test Version (Contributed by Dr. Claudio Soto)
- New TimePicker control. Please see DOC\data\TimePicker.htm for more details) (Contributed by Dr. Claudio Soto)
- New Time-related functions
- HMG_TimeToValue()
- HMG_ValueToTime()
- HMG_TimeToTime()
- HMG_IsTimeAMPM()
- New MsgDebug() function to display Debugging information (Contributed by Dr. Claudio Soto)
- New functions to check Unicode support (Contributed by Dr. Claudio Soto)
- HMG_SupportUnicode()
- IF HMG SUPPORT UNICODE [ RUN | STOP]
- New ANSI string functions for Unicode string functions: (Contributed by Dr. Claudio Soto)
ANSI/UNICODE ONLY ANSI
------------ ---------
HMG_ISALPHA() <=> ISALPHA()
HMG_ISDIGIT() <=> ISDIGIT()
HMG_ISLOWER() <=> ISLOWER()
HMG_ISUPPER() <=> ISUPPER()
HMG_ISALPHANUMERIC() <=> RETURN (ISALPHA(c) .OR. ISDIGIT(c))
- New Functions/Commands for better program control. With these commands we can avoid re-entry while processing the events of a control or window allowing the use of other controls/functions that generate messages of re-called of events (Contributed by Dr. Claudio Soto)
- DISABLE [ CONTROL ] EVENT ControlName OF FormName
- ENABLE [ CONTROL ] EVENT ControlName OF FormName
- StopControlEventProcedure ( cControlName, cFormName, lStop )
- DISABLE [ WINDOW ] EVENT OF FormName
- ENABLE [ WINDOW ] EVENT OF FormName
- StopWindowEventProcedure ( cFormName, lStop )
- GetLastActiveFormIndex () --> Return nFormIndex
- GetLastActiveControlIndex () --> Return nControlIndex
- New Samples/Grid.40 Demo showing the functionality of new GridEx and TimePicker Control features (Contributed by Dr. Claudio Soto)
- Enhanced Grid control properties/methods (see HMG_UNICODE in Documentation for more details) (Contributed by Dr. Claudio Soto)
- Set/Get Properties: ColumnCOUNT, ColumnHEADER( nColIndex ), ColumnWIDTH( nColIndex ), ColumnJUSTIFY( nColIndex ), ColumnCONTROL( nColIndex ), ColumnDYNAMICBACKCOLOR( nColIndex ), ColumnDYNAMICFORECOLOR( nColIndex ), ColumnVALID( nColIndex ), ColumnWHEN( nColIndex ), ColumnONHEADCLICK( nColIndex ), ColumnDISPLAYPOSITION( nColIndex )
- New CellEx property for faster access to Grid Cells.
- New BackGroundImage ( nAction, cPicture, nRow, nCol )
- New CellNavigationColor colors and display mode in GRID cell navigation mode:
- New Methods:
- AddColumnEx ( [ nColIndex ],[ cCaption ],[ nWidth ],[ nJustify ],[aColumnControl] )
- AddItemEx ( aItem, nRow )
- AddColumn, AddColumnEx and DeleteColumn properties DO NOT clean the Grid (NOT Delete all items), for compatibility with old behavior of ADDCOLUMN and DELETECOLUMN use:
- SET GridDeleteAllItems [ TRUE|ON ] | [ FALSE|OFF ]
- IsGridDeleteAllItems() --> Return .T. or .F.
- Updated to latest Harbour Nightly Build (2013-05-08)
- Updated HMG Documentation (Contributed by Dr. Claudio Soto)
- Upgraded MsgBox, MsgExclamation, MsgInfo, MsgOkCancel, MsgRetryCancel, MsgStop, MsgYesNo Functions (Contributed by Dr. Claudio Soto)
- Now these functions accept as a parameter any data type or an array of any data type
- Removed GridEx from HFCL as it is merged to HMG main source (Contributed by Dr. Claudio Soto)
- Fixed Bugs (Contributed by Dr. Claudio Soto)
- Bug in Define/Release Menu (Reported by Marek)
- Bug in Numeric Textbox with Euro symbol (Reported by Mustafa)
- Increment Bitmap Handle with load PNG image (Reported by Grigory)
- Value property of Textbox control (Reported by Daniel Maximiliano, Ed-Steed and AidTIC)
- Undefined reference to HMG_UPPER(), HMG_LEN() and HMG_LOWER() with compile for support ANSI character set (Reported by Danny)
- Bug in behaviour of HMG_PADL() and HMG_PADR() (Reported by Carlos Britos)

Faltaram algumas implementações indicadas aqui que tinham sido consideradas em versões anteriores, mas estão sendo avaliadas e adicionadas para as próximas atualizações.

por **Pablo César** » 17 Jun 2013 09:06

Cada vez mais forte ! Não podia ser diferente, o trabalho em conjunto com a força extra do Dr. Soto a HMG ganha a cada dia mais força e aperfeiçoamento. Está lançada a versão 3.1.4 que pode ser abaixada aqui ou https://sourceforge.net/projects/hmg/files/latest/download, com as seguintes alterações:

-HMG 3.1.4 (Test) 2013/06/16
- New function HMG_GetLanguage() --> Returns cLang (returns the name ID of the language in which HMG shows messages - Eg.: "EN") (Contributed by Dr. Claudio Soto)
- New Control level context menu (Contributed by Dr. Claudio Soto)
- DEFINE CONTROL CONTEXT MENU cControlName [ OF | PARENT cParentName ]
- DEFINE CONTROL CONTEXTMENU cControlName [ OF | PARENT cParentName ]
- RELEASE CONTROL CONTEXT MENU cControlName OF | PARENT cParentName
- RELEASE CONTROL CONTEXTMENU cControlName OF | PARENT cParentName
- ReleaseControlContextMenu (cControlName, cParentForm )
- IsControlContextMenuDefined (cControlName, cParentForm ) --> Return lBoolean
- SET CONTROL CONTEXTMENU [ ON | OFF ]
- SET CONTROL CONTEXT MENU [ ON | OFF ]
- New commands and functions for managing events (Please see DOC\data\HMG_UNICODE_DOC\Update_HMG_Unicode.htm for more details) (Contributed by Dr. Claudio Soto)
- New MARQUEE command for ProgressBar. Use this command when you do not know the amount of progress toward completion but wish to indicate that progress is being made. (Contributed by Dr. Claudio Soto)
- SET PROGRESSBAR ControlName OF FormName ENABLE MARQUEE [ UPDATED MilliSeconds ]
- SET PROGRESSBAR ControlName OF FormName DISABLE MARQUEE
- New AutoAdjust demo in samples\MainDemo\MAIN.AUTOADJUST (Contributed by Pablo César)
- New DynamicMenu demo in samples\Menu\MENU_Dynamic_Demo) (Contributed by Dr. Claudio Soto)
- New CueBanner demo in samples\controls\textbox\cuebanner (Contributed by S. Rathinagiri)
- CueBanner works only in UniCode version and Windows Vista and above.
- New QHTM library in HFCL (Contributed by Pablo César)
- QHTM.dll is needed at run time. (included in HFCL\samples\QHTM)
- QHTM can not be used in a commercial product unless you have purchased a licence
- Enhanced Image Control (Contributed by Dr. Claudio Soto)
- Now is possible to automatically load an image at its original size.
- Added properties:
- TRANSPARENT lValue
- BACKGROUNDCOLOR aRGBcolor
- ADJUSTIMAGE lValue
- TRANSPARENTCOLOR aRGBcolor
- Enhanced PutFile() function: (Contributed by Dr. Claudio Soto)
- New parameters: cDefaultFileName and @cExtFile
- Remember, if:
cExtFile := NIL ---> Not set selected file extension (traditional behavior)
cExtFile := "" ---> Sets the file extension selected by the user
- Updated IDE-Unicode: Now supports the Unicode character set and allows at runtime change the language (Contributed by Dr. Claudio Soto)
- Updated to latest Harbour Nightly Build (2013-06-15)
- Changed default IDE to Unicode version. Ansi IDE is suitably included in IDE_ANSI folder.
- Changed structure of samples folder and introduced various sub-folders by categories.
- Fixed Build.bat in samples folder/subfolders. Now it is possible to call build.bat from any level of sub-folders.
- Fixed Build.bat in hmg main folder to delete the file init.cld. (Contributed by Pablo César)
- Fixed ComboSearchBox in HFCL. Now the listbox bottom is correctly shown. (Contributed by Dr. Claudio Soto)

por **Jairo Maia** » 31 Jul 2013 15:18

Olá Pessoal,

Nesta semana o forum oficial da HMG completou 5 anos. Nesta data comemorativa, foi lançada a nova versão: 3.1.5, onde abaixo estão as novas implementações.

Uma das coisas legais e que era muito esperada está agora contemplada, a saber: Impressão do código QR Code:

: QR Code - Fonte Hmg Forum.png (1.92 KiB) Visualizado 17608 vezes

Para baixar a nova versão acesse: Sourceforge.net Ou: HMG site

-HMG 3.1.5 (Test) 2013/07/31
- New Visual Effects on Windows (Contributed by Dr. Claudio Soto)
- SET WINDOW cFormName TRANSPARENT TO nAlphaBlend --> nAlphaBlend = 0 to 255 (completely transparent = 0, opaque = 255)
- SET WINDOW cFormName [ TRANSPARENT ] TO OPAQUE
- FLASH WINDOW cFormName CAPTION COUNT nTimes INTERVAL nMilliseconds
- FLASH WINDOW cFormName TASKBAR COUNT nTimes INTERVAL nMilliseconds
- FLASH WINDOW cFormName [ ALL ] COUNT nTimes INTERVAL nMilliseconds
- ANIMATE WINDOW cFormName MODE nFlags INTERVAL nMilliseconds
- ANIMATE WINDOW cFormName MODE nFlags (See Docs for various modes)
- New Read Keyboard Functions (Contributed by Dr. Claudio Soto)
- HMG_GetLastVirtualKeyDown ( [ @hWnd ], [ @nMsg ], [ @wParam ], [ @lParam ] ) --> nVK_Code
- HMG_GetLastVirtualKeyUp ( [ @hWnd ], [ @nMsg ], [ @wParam ], [ @lParam ] ) --> nVK_Code
- HMG_GetLastCharacter ( [ @hWnd ], [ @nMsg ], [ @wParam ], [ @lParam ] ) --> cCharacter
- HMG_CleanLastVirtualKeyDown ( [ lCleanAll ] )
- HMG_CleanLastVirtualKeyUp ( [ lCleanAll ] )
- HMG_CleanLastCharacter ( [ lCleanAll ] )
- HMG_GetLastVirtualKeyName ( [ lParam ] ) --> cVK_Name
- HMG_VirtualKeyIsPressed ( VK_Code )
- GetKeyState ( VK_Code ) --> return nKeyState
- HMG_SendCharacter ( [ hWnd ], cText )
- HMG_EnableReadKey()
- HMG_DisableReadKey()
- New Handle: Form/Control property (To use in combination with Read Keyboard functions (Contributed by Dr. Claudio Soto)
- Form.HANDLE --> equivalent to: GetFormHandle ( cForm )
- Form.Control.HANDLE --> equivalent to: GetControlHandle ( cControl, cForm )
- GetFormNameByHandle ( hWnd, @cFormName, @cFormParentName ) --> Return nFormIndex
- GetControlNameByHandle ( hWnd, @cControlName, @cFormParentName ) --> Return nControlIndex
- New Convert Unicode Value <=> Text (Contributed by Dr. Claudio Soto)
- HMG_GetUnicodeValue ( cUnicodeText ) --> Return array { nCode1, nCode2, ..., nCodeN }
- HMG_GetUnicodeCharacter ( { nCode1, nCode2, ..., nCodeN } ) --> Return cUnicodeText
- New in HFCL: HMG_Zebra Barcode Creation Function using hbzebra harbour contrib library and HFCL BosTaurus library. (Contributed by Dr. Claudio Soto and S. Rathinagiri)
- HMG_CreateBarCode( cCode, cType, [nBarwidth], [nBarHeight], [lDisplayCode], [cPNGFileName], [aBarColor], [aBackColor], [lCheckSum], [lWide2_5], [lWide3] )
- HMG_CreateBarCode() function can be used to create barcode image in png file format if cPNGFileName parameter is included. If cPNGFileName is omitted, the function returns the hBitMap handle of barcode.
- Any one of the following Barcode types is allowed. { "EAN13","EAN8","UPCA","UPCE","CODE39","ITF","MSI","CODABAR","CODE93","CODE11","CODE128","PDF417","DATAMATRIX","QRCODE" }
- Checkdigit will be generated by library if omitted.
- See sample in hfcl\samples\hmg_zebra folder
- Updated to latest Harbour Nightly Build (2013-07-18)
- Fixed bugs in various samples (Contributed by Pablo César)
- Fixed and optimized HFCL: ComboSearchBox (Contributed by S. Rathinagiri)
- Anywhere search not working in the first instance.

por **Jairo Maia** » 06 Ago 2013 16:37

Olá Pessoal,

A HMG 3.1.5 apresenta um problema com mensagens múltiplas numa janela ativa. Para corrigir o problema, proceda da seguinte forma:

1 - Edite o arquivo C:\hmg.3.1.5\Source\h_windows.prg
2 - comente a linha 49: // #define ALLOW_ONLY_ONE_MESSAGE_LOOP
3 - Na pasta HMG.3.1.5 execute o arquivo buildlib.bat e escolha a opção 2 (Unicode)

Abaixo as razões explicadas pelo Dr Claudio Soto no fórum oficial da HMG IDE:

"Esta é a linha de todos os problemas da HMG.3.1.5:
// #define ALLOW_ONLY_ONE_MESSAGE_LOOP

Esta macro faz com que a HMG trabalhe como se fosse um programa normal em C no Windows, com um único loop (laço) de mensagem. Mas a HMG é estilo de programação CLIPPER e não de programação C. Vou tentar explicar com um exemplo simples:

#include "hmg.ch"

PROCEDURE Main
PRIVATE var1 := 100

   DEFINE WINDOW Win_1  AT 0,0 WIDTH 300 HEIGHT 300 MAIN
      @ 50, 50 Button Button_1 Caption 'Test' Action test()
   END WINDOW
   Win_1.Center
   Win_1.Activate
RETURN

PROCEDURE Test
PRIVATE var2 := 200
   MsgDispVar ("One")  // ---> esta funciona OK

   DEFINE WINDOW Win_2  AT 0,30 WIDTH 200 HEIGHT 200 MODAL
      @ 50, 50 Button Button_1 Caption 'Test' Action MsgDispVar ("Two")  //  ---> esta não funciona com o loop de mensagem único
   END WINDOW
   Win_2.Center
   Win_2.Activate
RETURN

PROCEDURE MsgDispVar (Title)
   MsgInfo (ListCalledFunctions (), Title)
   MsgDebug (var1, IF(TYPE("var2")<>"U", Var2, NIL))
RETURN

Com multiplos loops de mensagens, cada vez que você ativar uma janela, o programa pára naquele ponto à espera de uma resposta do usuário, simulando a ação da cláusula READ do CLIPPER.

Com o loop único de mensagem para a janela ativa, a execução do programa não é interrompida e continua. Neste caso a Win_2.Activate é equivalente a Win_2.Show como em C.

É por esta razão que a segunda chamada da função MsgDispVar() não funciona corretamente, porque a função Teste() foi finalizada e a Var2 não existe.

Compare o resultado da função ListCalledFunctions() com a ALLOW_ONLY_ONE_MESSAGE_LOOP ativada e com ela desativada, e veja a diferença."

Para ver a mensagem original acesse: HMG 3.1.5. Variable Problem

por **Claudio Soto** » 09 Dez 2013 00:24

Rathinagiri escreveu:Dear Friends,

After a long time, we are releasing a stable version of HMG. This is the first UNICODE stable version of HMG.

As usual, the new version can be downloaded from here.http://hmgforum.com/site/index.php?option=com_phocadownload&view=category&id=7:hmg-3.2&download=45:hmg-3.2&Itemid=2

Alternatively it can be downloaded from Sourceforge also. https://sourceforge.net/projects/hmg/files/latest/download

Changelog for this version:

-HMG 3.2 (Stable) 2013/12/08
- This is a stable version of HMG
- Zero message warning of compiler (Contributed by Dr. Claudio Soto)
- Fixed: message loop bug (introduced in HMG.3.1.5) (Contributed by Dr. Claudio Soto)
- Improvement in GetFolder() function (see doc) (Contributed by Dr. Claudio Soto)
- Now DISABLEUPDATE/ENABLEUPDATE method available in GRID, COMBOBOX, BROWSE and TREE controls (Contributed by Dr. Claudio Soto)
- New functions: GetUserName, GetComputerName, SetComputerName (Contributed by Dr. Claudio Soto)
- New function: HMG_GetImageInfo ( [ cFileName | hBitmap ], @nWidth, @nHeight, @aBackColor, [ nRowColor ], [ nColColor ] ) --> Return lBoolean (Contributed by Dr. Claudio Soto)
- New function: HMG_MessageBoxTimeout ( cText, cCaption, nTypeIconButton, nMilliseconds ) ---> return nRetValue (Contributed by Dr. Claudio Soto)
- nTypeIconButton and nRetValue: are constants defined in i_MsgBox.ch
- New info debug command: DEBUGINFO [ STOREIN cVar ] [ TITLE xTitle ] [ TYPE nTypeIconButton ] [ TIMEOUT nMilliseconds ] [ PARAMETERS ] xData1, xData2, ... (Contributed by Dr. Claudio Soto)
- TREE control New Properties/Methods : (Contributed by Dr. Claudio Soto)
- GetProperty -> AllValue, RootValue, FirstItemValue, ImageCount, ParentValue, ChildValue, SiblingValue, ItemText, IsTrueNode
- Set/GetProperty -> NodeFlag,ImageIndex
- SetProperty -> AddImage, TextColor, BackColor, LineColor
- DoMethod -> SetDefaultNodeFlag, SetDefaultAllNodeFlag, Sort
- TREESORT ControlName OF ParentName [ ITEM nItem ] [ RECURSIVE lRecursive ] [ CASESENSITIVE lCaseSensitive ] [ ASCENDINGORDER lAscendingOrder ] [ NODEPOSITION nNodePosition ]
- Enanced Expand/Collapse method: include recursive clause
- Updated documentation of changes (Contributed by Dr. Claudio Soto)
- New demos: (Contributed by Dr. Claudio Soto)
- Samples\Controls\EditBox\EditBoxOverwrite (CREATE EVENT example)
- Samples\Controls\Grid\GridIncrementalSearch (CREATE EVENT example)
- Samples\Miscellaneous\ScreenSplash
- Samples\Controls\Tree\TreeSort