HMG Extended Edition version 19.06 (Update 1 and 2)

You can share your experience with HMG. Share with some screenshots/project details so that others will also be benefited.

Moderator: Rathinagiri

User avatar
gfilatov
Posts: 667
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 24 times
Been thanked: 232 times
Contact:

HMG Extended Edition version 19.06 (Update 1 and 2)

Post by gfilatov » Wed Jun 26, 2019 7:53 am

Hi All,

I've uploaded the updated setup of the build 19.06 for Borland C++ 5.5.1 at

http://hmgextended.com/files/CONTRIB/hm ... -setup.exe

Whatsnew:
* Modified: Stability fix in the internal function _SetTextEditReadOnly().

You can modify a ReadOnly mode at runtime for the enabled controls

only. Problem was reported by Rafael Moran <webrmoran/at/yahoo.com>.

Contributed by Grigory Filatov <gfilatov@inbox.ru>

* Enhanced: Added 'ON DBLCLICK' clause (optional) to LABEL and IMAGE controls.

NOTE: Don't register click and dblclick events on the same element:

it's impossible to distinguish single-click events from click

events that lead to a dblclick event.

Contributed by Grigory Filatov <gfilatov@inbox.ru>

* New: Added the useful function HMG_IsEqualArr ( aData1, aData2 ) for

comparing of the two arrays.

Sample code:

aValue1 := Form.Grid1.Value

aValue2 := Form.Grid2.Value

lResult := HMG_IsEqualArr ( aValue1, aValue2 )

Requested by Paola Bruccoleri <pbruccoleri/at/adinet.com.uy>.

Based upon a contribution of Roberto Lopez <mail.box.hmg@gmail.com>

* New: Added the Harbour contrib library for 7zip compression.

This is a wrapper of 7-zip32.dll, another variant of the Open-Source

7Zip compression library. All calls are pointing to 7-zip32.dll,

thus the such dll must exist in a search path.

Based on an original work of Andi Jahja <andi.jahja/at/yahoo.co.id>.

(see source in folder \Source\SevenZip)

Contributed by Grigory Filatov <gfilatov@inbox.ru>

(see demos in folder \samples\Advanced\sevenzip)

* New: 'Button Gradient Test' sample.

Based upon a contribution of MiniGUI user.

Revised by Grigory Filatov <gfilatov@inbox.ru>

(see in folder \samples\Basic\Button_Gradient)

* New: 'Weather-forecast' sample is based on the service site http://wttr.in.

Based upon a contribution of Vagelis Prodromidis.

Revised by Grigory Filatov <gfilatov@inbox.ru>

(see in folder \samples\Advanced\Weather-forecast)
The upgrade to this build is optional.

Thanks for your attention.

--
Best Regards,
Grigory Filatov
[MiniGUI Team]
Last edited by gfilatov on Thu Jul 04, 2019 6:37 am, edited 1 time in total.

ecabrerizo
Posts: 30
Joined: Mon Mar 26, 2012 10:33 am
Location: España

Post by ecabrerizo » Wed Jun 26, 2019 10:17 am

Thanks
Great Job !!!

User avatar
serge_girard
Posts: 2361
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 608 times
Been thanked: 124 times
Contact:

Post by serge_girard » Wed Jun 26, 2019 10:35 am

Thanks Grigory !

User avatar
Steed
Posts: 386
Joined: Sat Dec 12, 2009 3:40 pm
Has thanked: 2 times
Been thanked: 2 times

Post by Steed » Thu Jun 27, 2019 3:01 pm

Thnaks

User avatar
quartz565
Posts: 566
Joined: Mon Oct 01, 2012 12:37 pm
Location: Thessaloniki, Greece
Has thanked: 175 times
Been thanked: 20 times
Contact:

Post by quartz565 » Thu Jun 27, 2019 9:32 pm

Thanks Grigory !
Best Regards,
Nikos.

os: Windows Server 2012 - 64
hw: HP Server E5606, 2.13GHz, 8.00 GB - Intel Xeon CPU

User avatar
gfilatov
Posts: 667
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 24 times
Been thanked: 232 times
Contact:

Post by gfilatov » Fri Jun 28, 2019 12:31 pm

One more a good news...

I've adapted already a latest Minigui Ex build for using of the recent MS Visual C 2019 Community Edition with the following steps.

1) download MS Visual C 2019 free installation (about 22 GB)

2) install above package and prepare/extract from it VC2019 command-line tools (about 454 MB).

3) compile Harbour with above VC2019 compiler from his sources
Harbour 3.2.0dev (r1904111533)
Copyright (c) 1999-2019, https://harbour.github.io/

Harbour Build Info
---------------------------
Version: Harbour 3.2.0dev (r1904111533)
Compiler: Microsoft Visual C++ 19.21.27702 (32-bit)
Platform: Windows 10 10.0
PCode version: 0.3
ChangeLog last entry: 2019-04-11 17:33 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
ChangeLog ID: ba87964f6754d037f86be597c07a08e02f4cb9e0
Built on: Jun 27 2019 12:49:01
Extra Harbour compiler options: -gc0
Extra C compiler options: -DHB_GC_AUTO -DHB_GUI -DHB_NO_TRACE
Build options: (C++ mode) (Clipper 5.3b) (Clipper 5.x undoc)
---------------------------
4) compile and test a latest MiniGUI build with the above tools successfully.
minigui.png
minigui.png (17.77 KiB) Viewed 728 times
That's all 8-)
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein


User avatar
gfilatov
Posts: 667
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 24 times
Been thanked: 232 times
Contact:

Post by gfilatov » Tue Jul 02, 2019 4:48 pm

mol wrote:
Tue Jul 02, 2019 3:25 pm
What advantages has MS VC2019?
Hi Marek,

It is a high-speed and stable C++ compiler which will support the all latest WinAPI requirements.
And it is a freeware (Community Edition) for a single developer also.

The Harbour speed tests are below:
2019-07-02 14:18:48 Windows 10 10.0
Harbour 3.2.0dev (r1904111533) Microsoft Visual C++ 19.21.27702 (32-bit) x86
THREADS: 0
N_LOOPS: 1000000
[ T000: empty loop overhead ]...................................0.02
====================================================================
[ T001: x := L_C ]..............................................0.00
[ T002: x := L_N ]..............................................0.02
[ T003: x := L_D ]..............................................0.00
[ T004: x := S_C ]..............................................0.02
[ T005: x := S_N ]..............................................0.00
[ T006: x := S_D ]..............................................0.02
[ T007: x := M->M_C ]...........................................0.00
[ T008: x := M->M_N ]...........................................0.02
[ T009: x := M->M_D ]...........................................0.02
[ T010: x := M->P_C ]...........................................0.00
[ T011: x := M->P_N ]...........................................0.02
[ T012: x := M->P_D ]...........................................0.02
[ T013: x := F_C ]..............................................0.00
[ T014: x := F_N ]..............................................0.00
[ T015: x := F_D ]..............................................0.02
[ T016: x := o:Args ]...........................................0.05
[ T017: x := o[ 2 ] ]...........................................0.02
[ T018: Round( i / 1000, 2 ) ]..................................0.06
[ T019: Str( i / 1000 ) ].......................................0.14
[ T020: Val( s ) ]..............................................0.08
[ T021: Val( a [ i % 16 + 1 ] ) ]...............................0.13
[ T022: DToS( d - i % 10000 ) ].................................0.20
[ T023: Eval( {|| i % 16 } ) ]..................................0.11
[ T024: Eval( bc := {|| i % 16 } ) ]............................0.08
[ T025: Eval( {| x | x % 16 }, i ) ]............................0.09
[ T026: Eval( bc := {| x | x % 16 }, i ) ]......................0.06
[ T027: Eval( {| x | f1( x ) }, i ) ]...........................0.09
[ T028: Eval( bc := {| x | f1( x ) }, i ) ].....................0.08
[ T029: Eval( bc := &( "{| x | f1( x ) }" ), i ) ]..............0.08
[ T030: x := &( "f1(" + Str( i ) + ")" ) ]......................0.69
[ T031: bc := &( "{| x | f1( x ) }" ), Eval( bc, i ) ]..........0.75
[ T032: x := ValType( x ) + ValType( i ) ]......................0.09
[ T033: x := StrZero( i % 100, 2 ) $ a[ i % 16 + 1 ] ]..........0.19
[ T034: x := a[ i % 16 + 1 ] == s ].............................0.08
[ T035: x := a[ i % 16 + 1 ] = s ]..............................0.09
[ T036: x := a[ i % 16 + 1 ] >= s ].............................0.08
[ T037: x := a[ i % 16 + 1 ] <= s ].............................0.09
[ T038: x := a[ i % 16 + 1 ] < s ]..............................0.09
[ T039: x := a[ i % 16 + 1 ] > s ]..............................0.08
[ T040: AScan( a, i % 16 ) ]....................................0.13
[ T041: AScan( a, {| x | x == i % 16 } ) ]......................0.83
[ T042: iif( i % 1000 == 0, a := {}, ), AAdd(a,{i,1,.T.,s, ]....0.27
[ T043: x := a ]................................................0.00
[ T044: x := {} ]...............................................0.03
[ T045: f0() ]..................................................0.02
[ T046: f1( i ) ]...............................................0.03
[ T047: f2( c[1...8] ) ]........................................0.02
[ T048: f2( c[1...40000] ) ]....................................0.03
[ T049: f2( @c[1...40000] ) ]...................................0.02
[ T050: f2( @c[1...40000] ), c2 := c ]..........................0.03
[ T051: f3( a, a2, s, i, s2, bc, i, n, x ) ]....................0.11
[ T052: f2( a ) ]...............................................0.03
[ T053: x := f4() ].............................................0.13
[ T054: x := f5() ].............................................0.06
[ T055: x := Space( 16 ) ]......................................0.05
[ T056: f_prv( c ) ]............................................0.08
====================================================================
[ total application time: ].....................................6.34
[ total real time: ]............................................6.35
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein

User avatar
Anand
Posts: 424
Joined: Tue May 24, 2016 4:36 pm
DBs Used: DBF
Has thanked: 119 times
Been thanked: 60 times

Post by Anand » Wed Jul 03, 2019 9:47 am

This is good news of using MS VC2019.

Is there any way we can get the smaller VC2019 command-line tools (about 454 MB) instead of downloading the full MS Visual C 2019 free installation (about 22 GB) ?

Regards,

Anand
Image

User avatar
gfilatov
Posts: 667
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 24 times
Been thanked: 232 times
Contact:

Post by gfilatov » Wed Jul 03, 2019 10:38 am

Anand wrote:
Wed Jul 03, 2019 9:47 am
This is good news of using MS VC2019.

Is there any way we can get the smaller VC2019 command-line tools (about 454 MB) instead of downloading the full MS Visual C 2019 free installation (about 22 GB) ?
Hi Anand,

Thanks for your interest!

Please be so kind to contact me privately by e-mail.
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein

Post Reply