
¿Sería posible aplicar un Skin en Autoit? Caso de que fuera posible ¿hay alguna aplicación para hacerlo? ¿Se podría hacer con vbSkinner, skinForm, ActiveSkin o similar?
Un saludo...
Código: Seleccionar todo
#include <XSkin>
; en una subcarpeta del script colocas la carpeta Skins
$Skin_Folder = @ScriptDir & "\Skins\Black-Yellow"
$XSkinGui = XSkinGUICreate( "Mi Formulario", 400, 450, $Skin_Folder)
$button_1 = XSkinButton("Un botón", 145, 100, 100, 35, "Hola")
GUISetState()
While 1
MouseOver()
Sleep(10)
WEnd
Func Hola()
MsgBox(64, "XSkin", "Test del botón 1", 3)
EndFunc
Código: Seleccionar todo
[Info]
Title = Blue-box-H
Author = Valuater
[color]
background=0x004E7F
Button=0x0057E9
mouseover= 0x7FA7E7
fontcolor= 0xFFFFFF
[settings]
size=15
; XSkin.au3 v1.3.5 Oct. 26, 2006
; ,,,, Valuater
#cs
;===============================================================================
; Se requiere lo siguiente:
;===============================================================================
#include <XSkin>
; requerido, la carpeta donde está tu Tema
$Skin_Folder = FileReadLine(@ScriptDir & "SkinsDefault.txt", 1)
If Not FileExists($Skin_Folder) Then $Skin_Folder = FileSelectFolder ( "Skin Folders", @ScriptDir & "Skins", 2)
; option, automatic mouse-over color for "your" controls use $XSkinID[ ]; see Autoit Limits in help for GUICtrlSetBkColor()
Dim $XSkinID[6] ; the amount of controls you want "mouse overed" +1, see example below
; required, set the GUI Width, Height and Title
$guiWidth = 400
$guiHeight = 450
$guiTitle = "XSkin"
$guiHeader = 1 ; Title bar, -1 = show with Max/Min/Close, 0 = show title only, 1 = no show ( optional, default is no show )
$guiCorners = 25 ; 0 = no rounded corners, ( optional, default is rounded with "arc" of 25)
; required, create the XSkin GUI
$XSkinGui = XSkinGUICreate( $guiTitle, $guiWidth, $guiHeight, $Skin_Folder, $guiHeader, $guiCorners)
; or $XSkinGui = XSkinGUICreate( $guiTitle, $guiWidth, $guiHeight, $Skin_Folder) ; uses defaults
; option, create Title Bar Icons - returns array[]
; 1 = Exit only, 2 = Mnimize/Exit, 3 = Help/Minimize/Exit
$Icon_Folder = @ScriptDir & "SkinsDefault"
$XIcon = XSkinIcon($XSkinGui, 2)
; $XIcon[1] = Exit, $XIcon[2] = Mnimize, $XIcon[3] = Help
; option, in while loop - if you want mouse over control colors and/or Mouseover GUI options below
; Mouseover()
; Mouseover() options default = no GUI action
; Mouseover(1) = Fade Active GUI for non use
; Mouseover(2) = Slide Active GUI to top of Screen for non-use
; You may add the numbers above, example = Mouseover(1 + 2)
; option, icon button with text - no color
; XSkinIconButton($BItext, $BIleft, $BItop, $BIwidth, $BIheight, $BIconNum = 0, $BIDLL = "shell32.dll")
; option, you can use the following theme colors
; $over_color, $btn_color, $bkg_color, $fnt_color
; option, for colored controls use the following.... or you can use autoit commands
; XSkinButton($Btext, $Bleft, $Btop, $Bwidth, $Bheight, $event_function = "")
; XSkinButtonSetState($XSkinButton, $XSkinMode); $GUI_HIDE or $GUI_SHOW Only
; XSkinMsgBox($MBTitle, $MBText); OK & Cancel buttons
; XSkinMsgBoxOK($MBTitle, $MBText); OK button only
; XSkinInputBox($IBTitle, $IBText, $IBDefault = "")
; XSkinProgress($Pleft, $Ptop, $Pwidth, $Pheight)
; XSkinTrayBox($TBTitle, $TBText)
;===============================================================================
;Ahora tu mismo
;===============================================================================