HMG 3.1.5

[Mario Mansilla]

Hola :
Un proyecto realizado con HMG.3.046 con su respectivo IDE , ahora lo ejecuto con HMG3.1.5 y los iconos que coloco en la propiedad PICTURE del control IMAGE ahora me muestran un fondo negro perdiendo la transparencia . Ha cambiado algo en el control IMAGE en esta nueva version .
Utilize Windows XP SP3 - HMG 3.1.15 - HMG-IDE 1.0.3 (Ansi)

Saludos cordiales .
Mario Mansilla

Hello:
A project with HMG.3.046 with its own IDE, now I run with HMG3.1.5 and icons placed on the property PICTURE IMAGE control now show me a black background losing transparency. Has anything changed in IMAGE control in this new version.
Use Windows XP SP3 - HMG 3.1.15 - HMG-IDE 1.0.3 (Ansi)

Best regards.
Mario Mansilla

[srvet_claudio]

Hola :
Un proyecto realizado con HMG.3.046 con su respectivo IDE , ahora lo ejecuto con HMG3.1.5 y los iconos que coloco en la propiedad PICTURE del control IMAGE ahora me muestran un fondo negro perdiendo la transparencia . Ha cambiado algo en el control IMAGE en esta nueva version .
Utilize Windows XP SP3 - HMG 3.1.15 - HMG-IDE 1.0.3 (Ansi)

Saludos cordiales .
Mario Mansilla

Hello:
A project with HMG.3.046 with its own IDE, now I run with HMG3.1.5 and icons placed on the property PICTURE IMAGE control now show me a black background losing transparency. Has anything changed in IMAGE control in this new version.
Use Windows XP SP3 - HMG 3.1.15 - HMG-IDE 1.0.3 (Ansi)

Best regards.
Mario Mansilla

Hi Mario.

Image control: Displays images in formats: BMP, GIF, JPG, TIF, WMF, CUR and PNG.

@ <nRow> ,<nCol>
IMAGE <ControlName>
[ OF | PARENT <ParentWindowName> ]
[ ACTION | ONCLICK | ON CLICK <ActionProcedureName> | <bBlock> ]
PICTURE <cPictureName>
[ WIDTH <nWidth> ]
[ HEIGHT <nHeight> ]
[ STRETCH ]
[ HELPID <nHelpId> ]
[ INVISIBLE ]
[ TRANSPARENT ]
[ BACKGROUNDCOLOR anBackgroundColor ]
[ ADJUSTIMAGE ]
[ TRANSPARENTCOLOR anTransparentColor ]

Note:
- If WIDTH/HEIGHT is set to Zero the image is displayed with the Width/Height of the original image.
- For default WIDTH and HEIGHT is set to Zero.
- If ADJUSTIMAGE is .T. the WIDTH/HEIGHT of the Image Control is adjusted exactly at the Width/Height of the image.
- TRANSPARENTCOLOR sets the color to treat as transparent in the image, for default is the color of the first pixel of the image.

[Mario Mansilla]

Hola Claudio :
No encuentro las propiedades nuevas en el fmg creado por el IDE .
Te adjunto un ejemplo para que veas el fmg .
Saludos .
Mario

[Pablo César]

Hola Mario y Claudio,

La funcion _DefineImage es la responsable para cargar las imagenes. De facto no hay definición de la propiedad TRANSPARENT en la IDE, porque no está preparada para adicionar esta nueva propiedad y transformarla en el padron UTF8. Creo que pueda ser adicionada para los próximos releases de HMG.

Talvez para inmediato, Mario deberás utilizar la funcion _DefineImage o @ <row>,<col> IMAGE <name>...

O arreglas para traer el contenido del fmg dentro de tu código:

Code: Select all

DEFINE WINDOW MAIN AT 138 , 235 WIDTH 550 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MAIN CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE IMAGE Image_1
        ROW    80
        COL    210
        WIDTH  40
        HEIGHT 40
        PICTURE "Acceso.ico"
        HELPID Nil
        VISIBLE .T.
        STRETCH .F.
		TRANSPARENT .T.
        ACTION Nil
    END IMAGE

END WINDOW

        Main.Center
        Main.Activate

[Mario Mansilla]

Hola Pablo :
perfecto , voy a colocar esa propiedad manualmente en el fmg .
El IDE esta quedando desactualizado con respecto a las nuevas propiedades y controles , mientras tanto sean incorporados en los proximos release se pueden agregar editando el fmg y teniendo en cuenta que cada vez que se modifique algo con el IDE hay que editarlo y agregar esas propiedades nuevamente .
Saludos .
Mario Mansilla

[esgici]

I installed the 3.1.5 version and patch "HMG.3.1.5_patch2.rar", ran the "BuildAllLib.bat" and the generation
of the libraries, deployed about failed messages.

After I compiled my program, I deployed some messages "warning" and I created the executable,
but to run it, it freezes and does nothing.

This is what generates the build.log.
..... same as the above quote .....


and here as it stays in a loop as it continues to generate this message
until I cancel the program.

With version 3.0.46 I also generates the "warning" but if you run.

Hola Andres

I have no idea about relation with "building HMG" and HDGETSERIAL() and MAKELAYER() functions caused warning

I want simply notice another "Disk Serial" function :

Code: Select all

/*

  Testing VolSerial()
   
   DB01
   
*/

#include <hmg.ch>

PROCEDURE Main()
   MsgInfo( NTOC( VolSerial( "C:" ), 16 ) )
RETURN // Main()  

*-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.-._.

You may look at here for more info.

Viva HMG

[andyglezl]

Gracias esgici y Maximiliano, acabo de hacer la prueba, pero al parecer no es lo mismo la "serie del volumen"
que la "serie del disco", ya que con:

NTOC( VolSerial( "C:" ), 16 ), me despliega "A0BE7B3F"

y con HDGETSERIAL, me despliega "-1598129345", a menos que falte alguna otra conversion.
-----------------------------------------------------------------
Veo una diferencia entre las 2 formas:

NTOC( VolSerial( "C:" ), 16 )
y
nSerial := VolSerial( "C:" + HB_OSpathseparator() )
cSerial:=NumToHex( nSerial )

seguire probando...
------------------------------------------------------------------------------------------------------
Thanks Esgici and Maximilian, just did the test, but apparently not the same the "Volume Serial"
that the "disk serial", and that:

NTOC (VolSerial ("C:"), 16), it displays "A0BE7B3F"

and HDGETSERIAL, it displays "-1598129345" unless some other conversion missing.
------------------------------------------------------------------------------------------------------
I see a difference between the two forms:

NTOC (VolSerial ("C:"), 16)
and
nSerial: = VolSerial ("C:" + HB_OSpathseparator ())
cSerial: = NumToHex (nSerial)

'll keep trying ...

[esgici]

I see a difference between the two forms:

NTOC (VolSerial ("C:"), 16)
and
nSerial: = VolSerial ("C:" + HB_OSpathseparator ())
cSerial: = NumToHex (nSerial)

'll keep trying ...

Hola Andres

You can check by using VOL command of DOS, as Daniel noticed already.

Viva HMG

[andyglezl]

C:\Documents and Settings\Administrador>vol
El volumen de la unidad C es Disco local
El número de serie del volumen es: A0BE-7B3F
--------------------------------------------------------------------------

Si ya lo cheque y es el mismo que el de la funcion "NTOC (VolSerial ("C:"), 16)":

Mas bien lo que deseo, es que salga el mismo numero que sale con HDGETSERIAL,
ya que tengo un esquema de proteccion con este numero, de otra forma tengo
que cambiarlo en mis programas.

Encontré este programa que me despliega lo siguiente, incluso en este, los numeros
de serie son diferentes ???.
-----------------------------------------------------------------------------------------
And check if it is the same as that of the function "NTOC (VolSerial (" C "), 16)":

Rather, what I want is to come out the same number that comes with HDGETSERIAL,
since I have a protection scheme with this issue, otherwise I have
to change it in my programs.

I found this program that displays the following, even here, the numbers
series are different???.
--------------------------------------------------------------------------------

C:\=Fixed 46649 7752 NTFS Disco local 2696837951 Ready
D:\=Fixed 245234 8501 NTFS Respaldo 4032425265 Ready
E:\=Fixed 661983 9580 NTFS Disco local 1824403072 Ready
F:\=CDROM NotReady
G:\=CDROM 0 0 CDFS Audio CD 23903412 Ready
L:\=Removable 3816 0 FAT32 USB-CACHE 3301891664 Ready
N:\=CDROM 511 0 UDF Videos 2374249424 Ready

[esgici]

... even here, the numbers
series are different???.

How a result we can get from an executable

I hope that this will give you an idea

Code: Select all

MsgInfo( NTOC( 2696837951, 16 ) )  // A0BE7B3F

Happy HMG'ing