HMG 3.3.1 (Stable)

[tonton2]

IMO modifying system file is not a good way

Merci mon ami pour vos conseils(chokrane ilayka)

[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 ) ;
^

[danielmaximiliano]

CueBanner in 32 bits Work..
CueBanner in 64

[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

[srvet_claudio]

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

[srvet_claudio]

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

[tonton2]

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

[danielmaximiliano]

This is the correct way to implement SETCUEBANNER (32 and 64 bits):

Gracias Claudio.....

[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 ... ???

[gfilatov]

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