Merci mon ami pour vos conseils(chokrane ilayka)esgici wrote: IMO modifying system file is not a good way
HMG 3.3.1 (Stable)
Moderator: Rathinagiri
Re: HMG 3.3.1 (Stable)
L'Algerie vous salut
Y.TABET
Y.TABET
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: HMG 3.3.1 (Stable)
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
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: HMG 3.3.1 (Stable)
CueBanner in 32 bits Work..
CueBanner in 64
CueBanner in 64
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: HMG 3.3.1 (Stable)
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
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.
Desde Guadalajara, Jalisco. México.
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG 3.3.1 (Stable)
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
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG 3.3.1 (Stable)
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
Re: HMG 3.3.1 (Stable)
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
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
L'Algerie vous salut
Y.TABET
Y.TABET
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: HMG 3.3.1 (Stable)
Gracias Claudio.....srvet_claudio wrote:
This is the correct way to implement SETCUEBANNER (32 and 64 bits):
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: HMG 3.3.1 (Stable)
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 ... ???
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 (153.39 KiB) Viewed 4531 times
Andrés González López
Desde Guadalajara, Jalisco. México.
Desde Guadalajara, Jalisco. México.
Re: HMG 3.3.1 (Stable)
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 ??
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
Kind Regards,
Grigory Filatov
"Everything should be made as simple as possible, but no simpler." Albert Einstein
Grigory Filatov
"Everything should be made as simple as possible, but no simpler." Albert Einstein