Re: HMG 3.3.1 (Stable)
Posted: Fri Sep 26, 2014 8:19 am
Merci mon ami pour vos conseils(chokrane ilayka)esgici wrote: IMO modifying system file is not a good way
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://www.hmgforum.com/
Merci mon ami pour vos conseils(chokrane ilayka)esgici wrote: IMO modifying system file is not a good way
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 ) ;
^
See if you file C:\hmg.3.3.1\INCLUDE\i_tree.chtonton2 wrote:bonsoirJavier 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:-Ejecutas el BuildAllLib.BatCode: Select all
//_HMG_THIS_TREEITEM_VALUE
-Listo
Saludos
When we use thiswe get that errorCode: Select all
//_HMG_THIS_TREEITEM_VALUE
This is the correct way to implement SETCUEBANNER (32 and 64 bits):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 ) ;
^
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
Bonjour,srvet_claudio wrote:See if you file C:\hmg.3.3.1\INCLUDE\i_tree.chtonton2 wrote:bonsoirJavier 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:-Ejecutas el BuildAllLib.BatCode: Select all
//_HMG_THIS_TREEITEM_VALUE
-Listo
Saludos
When we use thiswe get that errorCode: Select all
//_HMG_THIS_TREEITEM_VALUE
include this line:
MEMVAR _HMG_This_TreeItem_Value
Code: Select all
MEMVAR _HMG_This_TreeItem_Value
#xtranslate This.TreeItemValue => _HMG_This_TreeItem_Value
Gracias Claudio.....srvet_claudio wrote:
This is the correct way to implement SETCUEBANNER (32 and 64 bits):
Hi Andy,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 ??
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