HMG 3.3.1 (Stable)

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

User avatar
tonton2
Posts: 349
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Has thanked: 16 times
Been thanked: 17 times
Contact:

Re: HMG 3.3.1 (Stable)

Post by tonton2 »

esgici wrote: IMO modifying system file is not a good way :(
Merci mon ami pour vos conseils(chokrane ilayka)
L'Algerie vous salut
Y.TABET

User avatar
danielmaximiliano
Posts: 2471
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 579 times
Been thanked: 123 times
Contact:

Post by danielmaximiliano »

Error CueBanner in HMG.3.3.1
Harbour 3.2.0dev (r1404111536)
Copyright (c) 1999-2014, http://harbour-project.org/" onclick="window.open(this.href);return false;
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:88:0: warning: "EM_SETCUEBANNER" redefined [enabled by default]
#define EM_SETCUEBANNER 5377 // Set the cue banner with the lParm = LPCWSTR
^
In file included from C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:86:0:
c:\hmg.3.3.1\mingw-64\x86_64-w64-mingw32\include\commctrl.h:4430:0: note: this is the location of the previous definition
#define EM_SETCUEBANNER (ECM_FIRST+1)
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg: In function 'HB_FUN_SETCUEBANNER':
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:7: warning: implicit declaration of function 'hb_parc' [-Wimplicit-function-declaration]
LPWSTR lpWCStr = HMG_parc(2) ;
^
In file included from C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:83:0:
C:/hmg.3.3.1/include/HMG_UNICODE.h:73:41: warning: comparison between pointer and integer [enabled by default]
#define HMG_CHAR_TO_WCHAR(c) ((c != NULL) ? hb_osStrU16Encode(c) : NULL) // return WCHAR
^
C:/hmg.3.3.1/include/HMG_UNICODE.h:74:38: note: in expansion of macro 'HMG_CHAR_TO_WCHAR'
#define HMG_parc(n) HMG_CHAR_TO_WCHAR (hb_parc(n))
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:24: note: in expansion of macro 'HMG_parc'
LPWSTR lpWCStr = HMG_parc(2) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:7: warning: implicit declaration of function 'hb_osStrU16Encode' [-Wimplicit-function-declaration]
LPWSTR lpWCStr = HMG_parc(2) ;
^
In file included from C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:83:0:
C:/hmg.3.3.1/include/HMG_UNICODE.h:73:73: warning: pointer/integer type mismatch in conditional expression [enabled by default]
#define HMG_CHAR_TO_WCHAR(c) ((c != NULL) ? hb_osStrU16Encode(c) : NULL) // return WCHAR
^
C:/hmg.3.3.1/include/HMG_UNICODE.h:74:38: note: in expansion of macro 'HMG_CHAR_TO_WCHAR'
#define HMG_parc(n) HMG_CHAR_TO_WCHAR (hb_parc(n))
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:24: note: in expansion of macro 'HMG_parc'
LPWSTR lpWCStr = HMG_parc(2) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:97:4: warning: implicit declaration of function 'hb_parnl' [-Wimplicit-function-declaration]
SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:97:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:97:4: warning: implicit declaration of function 'hb_parl' [-Wimplicit-function-declaration]
SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
^
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
danielmaximiliano
Posts: 2471
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 579 times
Been thanked: 123 times
Contact:

Post by danielmaximiliano »

CueBanner in 32 bits Work..
CueBanner in 64 :cry:
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
andyglezl
Posts: 1329
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 46 times
Been thanked: 151 times
Contact:

Post by andyglezl »

Hola
Siempre que actualizo HMG se me olvida que tengo que respaldar mi "i_Color.ch".
Aquí les dejo este "i_color_Nvo.ch" por si lo quieren utilizar e incluso si se puede
distribuir con las nuevas versiones de HMG.
---------------------------------------------------------------------------------------------
hi
Whenever I update HMG I forget that I have to support my "i_Color.ch".
Here is this "i_color_Nvo.ch" in case you want to use and even if you can
distribute new versions of HMG.

viewtopic.php?f=8&t=3953&p=36926&sid=cc ... 303#p36926
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
srvet_claudio
Posts: 2145
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 58 times
Been thanked: 250 times
Contact:

Post by srvet_claudio »

tonton2 wrote:
Javier Tovar wrote:Hola Tonton2,

-Solo ve a donde esta ese linea en el archivo C: \ HMG \ include \ i_tree.ch en la linea 233, y pones doble diagonal al inicio:

Code: Select all

//_HMG_THIS_TREEITEM_VALUE
-Ejecutas el BuildAllLib.Bat
-Listo

Saludos
bonsoir
When we use this

Code: Select all

//_HMG_THIS_TREEITEM_VALUE
we get that error
See if you file C:\hmg.3.3.1\INCLUDE\i_tree.ch
include this line:
MEMVAR _HMG_This_TreeItem_Value
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
srvet_claudio
Posts: 2145
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 58 times
Been thanked: 250 times
Contact:

Post by srvet_claudio »

danielmaximiliano wrote:Error CueBanner in HMG.3.3.1
Harbour 3.2.0dev (r1404111536)
Copyright (c) 1999-2014, http://harbour-project.org/" onclick="window.open(this.href);return false;" onclick="window.open(this.href);return false;
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:88:0: warning: "EM_SETCUEBANNER" redefined [enabled by default]
#define EM_SETCUEBANNER 5377 // Set the cue banner with the lParm = LPCWSTR
^
In file included from C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:86:0:
c:\hmg.3.3.1\mingw-64\x86_64-w64-mingw32\include\commctrl.h:4430:0: note: this is the location of the previous definition
#define EM_SETCUEBANNER (ECM_FIRST+1)
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg: In function 'HB_FUN_SETCUEBANNER':
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:7: warning: implicit declaration of function 'hb_parc' [-Wimplicit-function-declaration]
LPWSTR lpWCStr = HMG_parc(2) ;
^
In file included from C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:83:0:
C:/hmg.3.3.1/include/HMG_UNICODE.h:73:41: warning: comparison between pointer and integer [enabled by default]
#define HMG_CHAR_TO_WCHAR(c) ((c != NULL) ? hb_osStrU16Encode(c) : NULL) // return WCHAR
^
C:/hmg.3.3.1/include/HMG_UNICODE.h:74:38: note: in expansion of macro 'HMG_CHAR_TO_WCHAR'
#define HMG_parc(n) HMG_CHAR_TO_WCHAR (hb_parc(n))
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:24: note: in expansion of macro 'HMG_parc'
LPWSTR lpWCStr = HMG_parc(2) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:7: warning: implicit declaration of function 'hb_osStrU16Encode' [-Wimplicit-function-declaration]
LPWSTR lpWCStr = HMG_parc(2) ;
^
In file included from C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:83:0:
C:/hmg.3.3.1/include/HMG_UNICODE.h:73:73: warning: pointer/integer type mismatch in conditional expression [enabled by default]
#define HMG_CHAR_TO_WCHAR(c) ((c != NULL) ? hb_osStrU16Encode(c) : NULL) // return WCHAR
^
C:/hmg.3.3.1/include/HMG_UNICODE.h:74:38: note: in expansion of macro 'HMG_CHAR_TO_WCHAR'
#define HMG_parc(n) HMG_CHAR_TO_WCHAR (hb_parc(n))
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:93:24: note: in expansion of macro 'HMG_parc'
LPWSTR lpWCStr = HMG_parc(2) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:97:4: warning: implicit declaration of function 'hb_parnl' [-Wimplicit-function-declaration]
SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:97:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
^
C:\hmg.3.3.1\SAMPLES\Controls\TextBox\CUEBANNER\demo.prg:97:4: warning: implicit declaration of function 'hb_parl' [-Wimplicit-function-declaration]
SendMessage( (HWND) hb_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) (LPCWSTR) lpWCStr ) ;
^
This is the correct way to implement SETCUEBANNER (32 and 64 bits):

Code: Select all

#pragma BEGINDUMP

#define COMPILE_HMG_UNICODE  // Remove this for ANSI building
#include "HMG_UNICODE.h"

#include <windows.h>
#include <commctrl.h>
#include "hbapi.h"

#ifndef EM_SETCUEBANNER
   #define ECM_FIRST 0x1500
   #define EM_SETCUEBANNER (ECM_FIRST+1)
   #define EM_GETCUEBANNER (ECM_FIRST+2)
#endif

HB_FUNC( SETCUEBANNER )                   // (nEditHandle, cMsg, lGetFocus) -> nil
{
   #ifdef UNICODE
      LPWSTR lpWCStr = HMG_parc(2);
   #else
      LPWSTR lpWCStr = HMG_MBtoWC (hb_parc(2));
   #endif
   SendMessage ((HWND) HMG_parnl(1), EM_SETCUEBANNER, (WPARAM) hb_parl(3), (LPARAM) lpWCStr ) ;
}
#pragma ENDDUMP
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
tonton2
Posts: 349
Joined: Sat Jun 29, 2013 1:26 pm
Location: Algerie
Has thanked: 16 times
Been thanked: 17 times
Contact:

Post by tonton2 »

srvet_claudio wrote:
tonton2 wrote:
Javier Tovar wrote:Hola Tonton2,

-Solo ve a donde esta ese linea en el archivo C: \ HMG \ include \ i_tree.ch en la linea 233, y pones doble diagonal al inicio:

Code: Select all

//_HMG_THIS_TREEITEM_VALUE
-Ejecutas el BuildAllLib.Bat
-Listo

Saludos
bonsoir
When we use this

Code: Select all

//_HMG_THIS_TREEITEM_VALUE
we get that error
See if you file C:\hmg.3.3.1\INCLUDE\i_tree.ch
include this line:
MEMVAR _HMG_This_TreeItem_Value
Bonjour,
cette ligne existe a la ligne 233 de i_tree.ch
This line is in file tree.ch (233)

Code: Select all

MEMVAR _HMG_This_TreeItem_Value
#xtranslate This.TreeItemValue => _HMG_This_TreeItem_Value
Merci de votre aide
L'Algerie vous salut
Y.TABET

User avatar
danielmaximiliano
Posts: 2471
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 579 times
Been thanked: 123 times
Contact:

Post by danielmaximiliano »

srvet_claudio wrote:
This is the correct way to implement SETCUEBANNER (32 and 64 bits):
Gracias Claudio.....
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO

User avatar
andyglezl
Posts: 1329
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 46 times
Been thanked: 151 times
Contact:

Post by andyglezl »

Hola, varios puntos... / Hi, several points ....

Es posible que cualquier "CONTROL" tenga el evento ON MOUSEOVER ??, lo comento
porque este evento lo hace cuando ponemos la propiedad TOOLTIP.
----------------------------------------------------------------------------------------------------------------------
It is possible that any "CONTROL" has the event ON MOUSEOVER ??, I mention
because this event does when we put the TOOLTIP property.


Tengo una serie de controles COMBOBOX y quiero que al ON CHANGE se pase al siguiente y se abra automáticamente
(para evitar varios "clicks") alguna idea de como la haria ??
-----------------------------------------------------------------------------------------------------------------------
I have a number of controls COMBOBOX, and I want to ON CHANGE will go to the next and automatically open
(to avoid several "clicks") any idea as would make ??


Estoy queriendo utilizar un arreglo con el COMBOBOX con la propiedad SORT pero despliega el siguiente error...???
---------------------------------------------------------------------------------------------------------------------------------
I'm wanting to use an arrangement with the SORT property COMBOBOX but displays the following error ... ???
Attachments
ComboBox-Error.png
ComboBox-Error.png (153.39 KiB) Viewed 3601 times
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
gfilatov
Posts: 800
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 35 times
Been thanked: 493 times
Contact:

Post by gfilatov »

andyglezl wrote: I have a number of controls COMBOBOX, and I want to ON CHANGE will go to the next and automatically open
(to avoid several "clicks") any idea as would make ??
Hi Andy,

Please be so kind to try the following working sample:

Code: Select all

/*
 * MiniGUI ComboBox Demo
 * (c) 2002 Roberto Lopez
*/

#include "minigui.ch"

Function Main

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 400 ;
		HEIGHT 200 ;
		TITLE 'ComboBox Demo' ;
		MAIN 

		DEFINE COMBOBOX Combo_1 
			ROW	10
			COL	10
			WIDTH	100 
			ITEMS	{ '1 | Uno' , '2 | Dos' , '3 | tres' , '0 | zero' }
			VALUE	1 
			ON CHANGE MsgInfo ( 'On Change event' )
			ON ENTER MsgInfo ( Str(Form_1.Combo_1.value) )
			UPPERCASE .T.
			sort .T.
			on gotfocus ComboboxShowList( this.Handle )
		END COMBOBOX

	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return Nil

/*
 * C-level
*/
#pragma BEGINDUMP

#include <windows.h>
#include "hbapi.h"

HB_FUNC ( COMBOBOXSHOWLIST )
{
   SendMessage( (HWND) hb_parnl( 1 ), CB_SHOWDROPDOWN, 1, 0 );
}

#pragma ENDDUMP
Hope that helps :idea:
Kind Regards,
Grigory Filatov

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

Post Reply