Page 4 of 12

Re: HMG 3.2 (Stable)

Posted: Tue Dec 10, 2013 7:06 pm
by tonton2
Bonsoir,
Pour moi tout marche trés bien que ce soit dans Unicode ou Ansi pourtant dans ma compilation j'ai 36 fichiers *.prg.
Merci pour tout ce que vous faîtes. :D

NB.j'ais mis le fichier IDE_Ansi et IDE_Unicode du 25/08/2013 et jai changé dans hmg.ini j'ai remis hmg.c:\hmg.3.2 à la place de c:\hmg.3.1.5 et en plus j'ai mis frenc.ansi et french.uni

Hello,
For me everything works very well in either Unicode or Ansi yet in my compilation I have 36 files *. Prg.
Thank you for all that you do. :roll:

NB.j 'ais set IDE_Ansi and IDE_Unicode file 25/08/2013 and I have changed hmg.ini I gave hmg.c: \ hmg.3.2 instead of c: \ hmg.3.1.5 and I put more frenc.ansi and french.uni

Re: HMG 3.2 (Stable)

Posted: Tue Dec 10, 2013 7:20 pm
by esgici
Hi All

I should repeat this.

( viewtopic.php?f=30&t=2996&p=27136#p27133)

Do you know peel onions ?

Attention : this article is dated 2003 :o

Happy HMG :D

Re: HMG 3.2 (Stable)

Posted: Tue Dec 10, 2013 7:45 pm
by srvet_claudio
tonton2 wrote:Hello,
For me everything works very well in either Unicode or Ansi yet in my compilation I have 36 files *. Prg.
Thank you for all that you do. :roll:

NB.j 'ais set IDE_Ansi and IDE_Unicode file 25/08/2013 and I have changed hmg.ini I gave hmg.c: \ hmg.3.2 instead of c: \ hmg.3.1.5 and I put more frenc.ansi and french.uni
Thanks Tonton.

Re: HMG 3.2 (Stable)

Posted: Tue Dec 10, 2013 7:46 pm
by srvet_claudio
Pablo César wrote:Hi Marek,

Is it possible you post any short example with the same behaviour ?
+1

Re: HMG 3.2 (Stable)

Posted: Wed Dec 11, 2013 4:37 am
by srvet_claudio
Hi All.
This patch allow sets tooltip in the image control.

Copy the

PRG and C files in c:\hmg.3.2\source

and CH file in c:\hmg.3.2\include

and rebuild the lib.

HMG 3.2 (Stable)

Posted: Wed Dec 11, 2013 9:36 am
by Pablo César
srvet_claudio wrote:Hi All.
This patch allow sets tooltip in the image control.
Thank you master !! :)

But for me here, it doesn't work... (copying files in respective folders and rebuilded) :(

HMG 3.2 (Stable)

Posted: Wed Dec 11, 2013 11:22 am
by Pablo César
Hi Claudio, I made following test (same in attached executable file):

Code: Select all

#include <hmg.ch>

Function Main

DEFINE WINDOW demo AT 40,40 WIDTH 500 HEIGHT 400 TITLE 'Demo Tooltip' ;
    ICON NIL MAIN 

    @ 10,10 IMAGE imagen1 picture "pastel.jpg"  WIDTH 150 HEIGHT 150 ACTION  Msginfo("Hola") STRETCH TOOLTIP "Prueba de Tooltip"
	
	_DefineImage ( "imagen2", "demo", 200, 180, "pastel.jpg" , 150 , 150 , {||Msginfo("Hola")}  , Nil, .F. , .T. , .F.,{0,0,0},.T.,Nil, "Prueba de Tooltip" )
  
	DEFINE IMAGE imagen3
	    ROW    10
	    COL    200
	    WIDTH  150
	    HEIGHT 150
	    PICTURE "pastel.jpg"
		ACTION  Msginfo("Hola") 
		TOOLTIP "Prueba de Tooltip"
	    HELPID Nil
	    VISIBLE .T.
	    STRETCH .T.
	END IMAGE
	
	DEFINE LABEL Label_1
	    ROW    230
	    COL    360
	    WIDTH  120
	    HEIGHT 24
	    VALUE "<- This is working"
	    FONTNAME "Arial"
	    FONTSIZE 9
	    TOOLTIP ""
	    FONTBOLD .F.
	    FONTITALIC .F.
	    FONTUNDERLINE .F.
	    FONTSTRIKEOUT .F.
	    HELPID Nil
	    VISIBLE .T.
	    TRANSPARENT .F.
	    ACTION Nil
	    AUTOSIZE .F.
	    BACKCOLOR Nil
	    FONTCOLOR Nil
	END LABEL

	DEFINE BUTTON Button_1
	    ROW    220
	    COL    10
	    WIDTH  100
	    HEIGHT 28
	    ACTION ThisWindow.Release()
	    CAPTION "Salida"
	    FONTNAME "Arial"
	    FONTSIZE 9
	    TOOLTIP "Button ToolTip Test"
	    FONTBOLD .F.
	    FONTITALIC .F.
	    FONTUNDERLINE .F.
	    FONTSTRIKEOUT .F.
	    ONGOTFOCUS Nil
	    ONLOSTFOCUS Nil
	    HELPID Nil
	    FLAT .F.
	    TABSTOP .T.
	    VISIBLE .T.
	    TRANSPARENT .F.
	    MULTILINE .F.
	    PICTURE Nil
	    PICTALIGNMENT TOP
	END BUTTON
	
end window
Activate Window demo
Return Nil
I think Claudio, is missing your C:\hmg.3.2\INCLUDE\i_altsyntax.ch file to be attached into the HMG.3.2_patch1.rar (for DEFINE IMAGE too) and some variable treatments for undeclared variables in C:\hmg.3.2\SOURCE\h_image.prg to turn it workable, I guess it so. I saw the time of your posting was too late, you were so tired at this time... :(

But calling the function like this:
_DefineImage("imagen2","demo",200,180,"pastel.jpg",150,150,{||Msginfo("Hola")} ,Nil,.F.,.T.,.F.,{0,0,0},.T.,Nil, "Prueba de Tooltip")
it is working good ! (in WinXP and Win7) :)

HMG 3.2 (Stable)

Posted: Wed Dec 11, 2013 12:21 pm
by Pablo César
There is something wrong with TRANSPARENT in @...IMAGE, because when I trying gives me syntax error...

Re: HMG 3.2 (Stable)

Posted: Wed Dec 11, 2013 1:04 pm
by srvet_claudio
Pablo César wrote: But calling the function like this:
_DefineImage("imagen2","demo",200,180,"pastel.jpg",150,150,{||Msginfo("Hola")} ,Nil,.F.,.T.,.F.,{0,0,0},.T.,Nil, "Prueba de Tooltip")
it is working good ! (in WinXP and Win7) :)
Pablo César wrote:There is something wrong with TRANSPARENT in @...IMAGE, because when I trying gives me syntax error...
Pablo, on my system everything works OK, the problem is a conflict caused by the macro-replacement of Harbour.
viewtopic.php?p=31299#p31299

Re: HMG 3.2 (Stable)

Posted: Thu Dec 12, 2013 10:38 pm
by meneale
This is how image with transparent property looks :|