About Skins/ Sobre Skins

Discuss anything else that does not suite other forums.

Moderator: Rathinagiri

Post Reply
User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

About Skins/ Sobre Skins

Post by luisvasquezcl »

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
User avatar
jrendon
Posts: 92
Joined: Thu Aug 14, 2008 9:21 pm

Re: About Skins/ Sobre Skins

Post by jrendon »

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
User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

Re: About Skins/ Sobre Skins

Post by luisvasquezcl »

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
User avatar
jrendon
Posts: 92
Joined: Thu Aug 14, 2008 9:21 pm

Re: About Skins/ Sobre Skins

Post by jrendon »

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
Attachments
Skinning_example.rar
(218.96 KiB) Downloaded 488 times
User avatar
luisvasquezcl
Posts: 1258
Joined: Thu Jul 31, 2008 3:23 am
Location: Chile
Contact:

Re: About Skins/ Sobre Skins

Post by luisvasquezcl »

Gracias jrendon
Voy a revisar a ver que pasa... cualquier cosa estoy comentando.
Saludos,
Luis Vasquez
User avatar
AUGE_OHR
Posts: 2060
Joined: Sun Aug 25, 2019 3:12 pm
DBs Used: DBF, PostgreSQL, MySQL, SQLite
Location: Hamburg, Germany

Re: About Skins/ Sobre Skins

Post by AUGE_OHR »

hi,

just found this Thread and all those Skin :D

i have used Codejock SkinFrameWork until DarkMode of Windows 10.
it work 99% stable ... but i don't use it in "Production" only "Presentation"
those tool does "hack" deep into OS to redirect Theme Color of visual Style ...

under Windows 10 Theme look more like Classic Style and in Darkmode you just have BLACK as Background.
i have a DBF with my own Color. i have "Read" (GetSysColor()) those 30 Color from Skin Theme Color e.g. Office 2009
Farben_Office.jpg
Farben_Office.jpg (142.79 KiB) Viewed 2619 times
or iTunes
Farben_Itunes.jpg
Farben_Itunes.jpg (127.22 KiB) Viewed 2619 times
so User can choose what Theme Color he/she want.

i like Windows 10 Darkmode and this are my Color
Black_4.jpg
Black_4.jpg (288.62 KiB) Viewed 2619 times
all my Xbase++ App use same THEME.DBF so they look same
have not test it yet with harbour / HMG but with Xbase++ i have to use Ownerdraw to "overrule" Windows (Theme) Color.
i have only 1 Problem : get "automatic" Scrollbar to paint it black ... :roll:
have fun
Jimmy
Post Reply