Estimates,
Does anyone know how to use skins?. Is there a tool to create them?.
Greetings,
Luis Vasquez
Estimados,
¿Alguien sabe como usar skins?. ¿Hay alguna herramienta para crearlos?.
Saludos,
Luis Vasquez
About Skins/ Sobre Skins
Moderator: Rathinagiri
- luisvasquezcl
- Posts: 1126
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Has thanked: 13 times
- Been thanked: 14 times
- Contact:
Español
Luis esta este enlace de este skin para VB aqui abria que portarlo para HMG
Saludos
English (Powered by Google)
Luis is this link of this skin for VB port which opened here for HMG
Greetings
http://www.recursosvisualbasic.com.ar/h ... troles.htm
Luis esta este enlace de este skin para VB aqui abria que portarlo para HMG
Saludos
English (Powered by Google)
Luis is this link of this skin for VB port which opened here for HMG
Greetings
http://www.recursosvisualbasic.com.ar/h ... troles.htm
- luisvasquezcl
- Posts: 1126
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Has thanked: 13 times
- Been thanked: 14 times
- Contact:
Estimado,
vi el ejemplo e intente de adaptarlo a hmg pero no tuve buenos resultados.
Al ejecutar el ejemplo de dice "Win1 no existe" siendo que el procedimiento que estoy ejecutando se llama con el evento on init de la ventana...
Puse el llamado al procedimiento On_Init() en varias partes pero sin resultados...
Aqui les dejo el codigo:
#include "minigui.ch"
FUNCTION Main()
DEFINE WINDOW Win1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 500 ;
TITLE 'HMG ActiveX Support Demo' ;
MAIN ;
ON INIT On_Init();
ON RELEASE On_Release()
DEFINE MAIN MENU
POPUP "Test"
MENUITEM "Exit" ACTION Win1.Release
END POPUP
END MENU
DEFINE BUTTON BTN_1
ROW 0
COL 0
WIDTH 100
HEIGHT 24
CAPTION "Go"
ACTION msginfo("Hola")
END BUTTON
END WINDOW
Center Window Win1
Activate Window Win1
RETURN NIL
procedure on_init
local oskn
EXECUTE FILE "regsvr32 /s vbskfr2.ocx" WAIT MINIMIZE
oSkn = TOleAuto():New('vbskfr2.Skinner')
oSkn:Forms=Win1
oSkn:Left= 5400
oSkn:Top = 600
oSkn:_ExtentX= 1270
oSkn:_ExtentY= 1270
oSkn:CloseButtonToolTipText="Cerrar"
oSkn:MinButtonToolTipText="Minimizar"
oSkn:MaxButtonToolTipText="Maximizar"
oSkn:RestoreButtonToolTipText="Restaurar"
oSkn:ApplyTo = 1
oSkn:SysEnableSkinCaption ="Habilitar Skin"
oSkn:SysDisableSkinCaption="Deshabilitar"
return
procedure on_release
EXECUTE FILE "regsvr32 /s /u vbskfr2.ocx" WAIT MINIMIZE
return
Saludos cordiales.
Luis Vasquez
vi el ejemplo e intente de adaptarlo a hmg pero no tuve buenos resultados.
Al ejecutar el ejemplo de dice "Win1 no existe" siendo que el procedimiento que estoy ejecutando se llama con el evento on init de la ventana...
Puse el llamado al procedimiento On_Init() en varias partes pero sin resultados...
Aqui les dejo el codigo:
#include "minigui.ch"
FUNCTION Main()
DEFINE WINDOW Win1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 500 ;
TITLE 'HMG ActiveX Support Demo' ;
MAIN ;
ON INIT On_Init();
ON RELEASE On_Release()
DEFINE MAIN MENU
POPUP "Test"
MENUITEM "Exit" ACTION Win1.Release
END POPUP
END MENU
DEFINE BUTTON BTN_1
ROW 0
COL 0
WIDTH 100
HEIGHT 24
CAPTION "Go"
ACTION msginfo("Hola")
END BUTTON
END WINDOW
Center Window Win1
Activate Window Win1
RETURN NIL
procedure on_init
local oskn
EXECUTE FILE "regsvr32 /s vbskfr2.ocx" WAIT MINIMIZE
oSkn = TOleAuto():New('vbskfr2.Skinner')
oSkn:Forms=Win1
oSkn:Left= 5400
oSkn:Top = 600
oSkn:_ExtentX= 1270
oSkn:_ExtentY= 1270
oSkn:CloseButtonToolTipText="Cerrar"
oSkn:MinButtonToolTipText="Minimizar"
oSkn:MaxButtonToolTipText="Maximizar"
oSkn:RestoreButtonToolTipText="Restaurar"
oSkn:ApplyTo = 1
oSkn:SysEnableSkinCaption ="Habilitar Skin"
oSkn:SysDisableSkinCaption="Deshabilitar"
return
procedure on_release
EXECUTE FILE "regsvr32 /s /u vbskfr2.ocx" WAIT MINIMIZE
return
Saludos cordiales.
Luis Vasquez
Español
Aqui esta un ejemplo en c que encontre en esta pagina http://www.rohitab.com/discuss/lofivers ... 27876.html espero y se pueda adaptar
Saludos
Aqui esta un ejemplo en c que encontre en esta pagina http://www.rohitab.com/discuss/lofivers ... 27876.html espero y se pueda adaptar
Saludos
- Attachments
-
- Skinning_example.rar
- (218.96 KiB) Downloaded 269 times
- luisvasquezcl
- Posts: 1126
- Joined: Thu Jul 31, 2008 3:23 am
- Location: Chile
- Has thanked: 13 times
- Been thanked: 14 times
- Contact:
Gracias jrendon
Voy a revisar a ver que pasa... cualquier cosa estoy comentando.
Saludos,
Luis Vasquez
Voy a revisar a ver que pasa... cualquier cosa estoy comentando.
Saludos,
Luis Vasquez