XSkin.au3... Skin your GUI

[RazerM]

@AzKay

I like that skin a lot from MsgPlus. Now i can have it in my scripts

[AzKay]

=), Though, It would be good if the corners on it worked right. Oh and, the top part of the skin is a little odd if youve got a wide gui. The shading doesnt go to well.

[Valuater]

Heres another for you all:

MsgPlus!

added to the design section under your name

thx again

8)

[RazerM]

=), Though, It would be good if the corners on it worked right. Oh and, the top part of the skin is a little odd if youve got a wide gui. The shading doesnt go to well.

Ive fixed the top pictures . Set $round_corners to 6 for it to work well

Edited November 30, 2006 by RazerM

[Valuater]

need to post a pic for a link

8)

[RazerM]

It's just AzKay's but fixed. If he wants to use it he can.

[AzKay]

Ive fixed the top pictures . Set $round_corners to 6 for it to work well

Nice =D

[big_daddy]

Thought it was about time I posted another skin.

Extract this zip file into your "\XSkin\Skins" folder.

Previous downloads 50+

Edited February 12, 2007 by big_daddy

[Valuater]

another nice one big daddy!!

I'll link a little latter

8)

[big_daddy]

One more for tonight.

Extract this zip file into your "\XSkin\Skins" folder.

Previous downloads 38+

Extract this zip file into your "\XSkin\Buttons" folder.

Blackhole_Buttons.zip

Edited February 20, 2007 by big_daddy

[Valuater]

Another nice one big daddy

both have been added to your name on the design page

thx

8)

Edited December 1, 2006 by Valuater

[Valuater]

Here ya go, I needed the XSkinInputBox() to have the password parameter, So I did just that.

XSkinInputBox()

Func XSkinInputBox($IBTitle, $IBText, $IBDefault= "", $Pass = 0)
    Local $IBinput1 = XSkinMsgBox($IBTitle, $IBText, $IBDefault, 2, $Pass)
    Return $IBinput1
EndFunc   ;==>XSkinInputBox

XSkinMsgBox()

added to Plug-ins Section

Thanks

8)

Edited December 2, 2006 by Valuater

[AzKay]

Glad to help. =)

[hoppy]

Is there a way to use a Xskin whithin a Xskin, whitout using Xskinshell?

For example to use defecto Xskin as mainskin and create a partial subskin like mci-04 ?

[Valuater]

You could create the script with an XSkin of mci-4 and then when you finish compile it to an exe file...

then call it with XSkinShell and it will be inbedded

thats the only way i can think of to make it actual "child" window

8)

[Valuater]

examples from page # 2

Advanced - ( per requests )

All inclusive Demo with 2 GUI's

expandcollapse popup

;===============================================================================
; The following is required
;===============================================================================

#include <XSkin.au3>
#include <XSkinShell.au3>
; required, your skin folder location
$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] = as above

; 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 = "")
; XSkinMsgBox($MBTitle, $MBText)
; XSkinInputBox($IBTitle, $IBText, $IBDefault = "")
; XSkinProgress($Pleft, $Ptop, $Pwidth, $Pheight)
; XSkinTrayBox($TBTitle, $TBText)

;===============================================================================
; Now.... you are on your own
;===============================================================================

#include <GUIConstants.au3>
#Include <File.au3>

Local $F = 0, $G = 0

; just a quck example here
$Tab1 = GUICtrlCreateTab(90, 75, 200, 60)
GUICtrlCreateTabItem("Super Skin")
$XSkinID[1] = GUICtrlCreateLabel("XSkinTabs()... Comming soon", 110, 110, 152, 17) ; mouse-over color
GUICtrlCreateTabItem("Power Skin")
GUICtrlCreateLabel("Inside Tab 2", 110, 110, 102, 17)
GUICtrlCreateTabItem("XSkin !")
GUICtrlCreateLabel("Inside Tab 3", 110, 110, 102, 17)
GUICtrlCreateTabItem("")

GUICtrlSetColor(-1, $fnt_color) ; using themes color
$Progress1 = XSkinProgress (90, 140, 200, 20) ; mouse-over color automatic
GUICtrlSetData($Progress1, 50)
$XSkinID[2] = GUICtrlCreateRadio("GUI Slide", 80, 170, 70, 20) ; mouse-over color
$XSkinID[3] = GUICtrlCreateRadio("GUI Stay", 160, 170, 70, 20) ; mouse-over color
$XSkinID[4] = GUICtrlCreateCheckbox("GUI Fade", 240, 170, 70, 20) ; mouse-over color
$Slider1 = GUICtrlCreateSlider(90, 200, 200, 20)
GUICtrlSetLimit(-1, 100, 0)
GUICtrlSetData($Slider1, 50)
$XSkinID[5] = GUICtrlCreateList("", 80, 230, 100, 100) ; mouse-over color
GUICtrlSetState($Tab1, $GUI_ONTOP)

$Button_1 = XSkinButton ("Load Skin", 210, 230, 90, 30, "Skinner") ; mouse-over color automatic
GUICtrlSetTip($Button_1, "Select a Skin")
$Button_2 = XSkinButton ("XSkin MsgBox", 210, 265, 90, 30, "CallMsg") ; mouse-over color automatic
$Button_3 = XSkinButton ("XSkin InputBox", 210, 300, 90, 30, "CallInput") ; mouse-over color automatic
$Button_4 = XSkinButton ("XSkin TrayBox", 210, 335, 90, 30, "CallTray") ; mouse-over color automatic

$Button_5 = XSkinIconButton ("Exit", 85, 335, 90, 30, 240) ; Icon button - No mouse-over color
GUISetState()

; Create the Second GUI
$XSkinGui2 = XSkinGUICreate ($guiTitle, $guiWidth, $guiHeight, $Skin_Folder, $guiHeader, $guiCorners)
$Icon_Folder = @ScriptDir & "SkinsDefault"
$XIcon2 = XSkinIcon ($XSkinGui, 1)
$Button_1A = XSkinButton ("XSkin MsgBox", 110, 265, 190, 30, "CallMsg") ; mouse-over color automatic
WinMove($XSkinGui2, "", 200, 300)
GUISetState()

$FileList = _FileListToArray(@ScriptDir & "Skins")
If (Not IsArray($FileList)) Or (@error = 1) Then
    MsgBox(0, "", "No FilesFolders Found.", 5)
Else
    For $x = 1 To UBound($FileList) - 1
        If StringInStr($FileList[$x], "default") Then ContinueLoop
        $result = StringInStr($FileList[$x], "", 1, -1)
        $final = StringTrimRight($FileList[$x], $result)
        GUICtrlSetData($XSkinID[5], $final, 1)
    Next
EndIf

While 1
    Mouseover ($F + $G) ; Mouseover option plus GUI option 1 + 2
    $msg = GUIGetMsg()
    Select
        Case $msg = $Slider1
            GUICtrlSetData($Progress1, GUICtrlRead($Slider1))
            
        Case $msg = $XSkinID[2]Or $msg = $XSkinID[3]
            If GUICtrlRead($XSkinID[2]) = $GUI_CHECKED Then $G = 2
            If GUICtrlRead($XSkinID[3]) = $GUI_CHECKED Then $G = 0
            
        Case $msg = $XSkinID[4]
            If GUICtrlRead($XSkinID[4]) = $GUI_CHECKED Then
                $F = 1
            Else
                $F = 0
            EndIf
            
        Case $msg = $XIcon[1] Or $msg = $Button_5
            Exit
            
        Case $msg = $XIcon[2]
            GUISetState(@SW_MINIMIZE)
        
        ; GUI #2 controls   
        Case $msg = $XIcon2[1]
            GUIDelete($XSkinGui2)
    EndSelect
    
WEnd

Func Skinner()
    $Skin = GUICtrlRead($XSkinID[5])
    If $Skin = "" Then Return
    FileDelete(@ScriptDir & "SkinsDefault.txt")
    FileWrite(@ScriptDir & "SkinsDefault.txt", @ScriptDir & "Skins" & $Skin)
    Run( FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    Exit
EndFunc   ;==>Skinner

Func CallTray()
    ;; FORMAT = XSkinTrayBox($TBTitle, $TBText)
    ;; One Line of Text Only!
    XSkinTrayBox ("XSkin", "Sample XSkin Tray Box Message ")
EndFunc   ;==>CallTray

Func CallMsg()
    ;; FORMAT = XSkinMsgBox($MBTitle, $MBText)
    ;; Use @CRLF for multiple lines of Text
    $ret = XSkinMsgBoxOK ("XSkin", "This is a sample" & @CRLF & "of an XSkin Message Box ( use &apos;@CRLF&apos; for multi-lines )  " & @CRLF & " Thanks ...Valuater   ")
    If $ret = 1 Then MsgBox(64, "XSkin", "the Message Box worked... Great!!!    ", 3)
EndFunc   ;==>CallMsg

Func CallInput()
    ;; FORMAT = XSkinInputBox($IBTitle, $IBText, $IBDefault = "")
    ;; you can use @crlf for additional lines ( $IBText only )
    $iret = XSkinInputBox ("Xskin", "Please type in your name", "Your Name goes here")
    If $iret <> 2 Then MsgBox(64, "XSkin Input Test", $iret)
EndFunc   ;==>CallInput

Func Exiter()
    GUIDelete($XSkinGui)
    Exit
EndFunc   ;==>Exiter

;===============================================================================
; The end
;===============================================================================

8)

Edited December 5, 2006 by Valuater

[Glyph]

#include <XSkin.au3> 

; folder of skin
$Skin_Folder = @ScriptDir & "\Skins\Black-Yellow"

$XSkinGui = XSkinGUICreate( "My GUI", 400, 450, $Skin_Folder)

$button_1 = XSkinButton("Button 1", 145, 100, 100, 35, "Hello")

GUISetState()

While 1
    
    MouseOver()
    
    Sleep(10)
WEnd

Func Hello()
    MsgBox(64, "XSkin", "Test Button 1", 3)
EndFunc

Im getting an error: C:\Documents and Settings\Login\Desktop\Calender v0.2\XSkin.au3 (8) : ==> #include depth exceeded. Make sure there are no recursive includes.:

#include <XSkin.au3>

[Valuater]

I tested the script and there is NO problem

must be an "include" depth error

maybe include can only look so many folders deep...dunno

8)

[Glyph]

Well Xskin is in the same folder :/

[Valuater]

maybe try...

#include "XSkin.au3"

???

8)