Auto-It EzSkinner

[Imakepigsfly]

Hello!
Ever wanted to re-skin something but couldn't? Now you can with Auto-It EzSkinner!

Au3 File only...
EzSkin.au3 ( 17.63K )

40 + Skins

Plug-ins...
EzSkinShell.au3 - Skin other Programs!-
Notepad





Internet




Computer





XSkinShell - Example






EzSkinShell.au3

; XSkinShell.au3 Ver 1.0.0

#include <GUIConstants.au3>
#include-once
;#include <XSkin.au3>
;Opt("MustDeclareVars", 1)

Func XSkinReSize($XRS_Program, $XSR_Width, $XSR_Height)
    Local $XSPID, $XhWnd = 0, $XstPID = DllStructCreate("int"), $XSWinList, $XSdll, $XPID
    $XSPID = Run($XRS_Program, '', @SW_HIDE)
    Do
        $XSWinList = WinList()
        For $i = 1 To $XSWinList[0][0]
            If $XSWinList[$i][0] <> "" Then
                DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $XSWinList[$i][1], "ptr", DllStructGetPtr($XstPID))
                If DllStructGetData($XstPID, 1) = $XSPID Then
                    $XhWnd = $XSWinList[$i][1]
                    ExitLoop
                EndIf
            EndIf
        Next
        Sleep(20)
    Until $XhWnd <> 0
    $XSdll = ""
    $XstPID = 0
    If $XhWnd <> 0 Then
        WinMove($XhWnd, "", 200, 200, $XSR_Width, $XSR_Height)
        Sleep(100)
        WinClose($XhWnd)
    EndIf
EndFunc   ;==>XSkinReSize

Func XSkinRun($XR_Title, $XR_Program = "") ; thanks holger
    If $XR_Program = "" Then Return
    Local $XhWnd = 0, $XstPID = DllStructCreate("int"), $XSWinList, $XhWinSize, $XSdll, $XPID, $XPID2, $XR_Ret[3], $Xh_ret, $oxStyle, $ostyle
    $XPID = Run($XR_Program, '', @SW_HIDE)
    Do
        $XSWinList = WinList()
        For $i = 1 To $XSWinList[0][0]
            If $XSWinList[$i][0] <> "" Then
                DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $XSWinList[$i][1], "ptr", DllStructGetPtr($XstPID))
                If DllStructGetData($XstPID, 1) = $XPID Then
                    $XhWnd = $XSWinList[$i][1]
                    ExitLoop
                EndIf
            EndIf
        Next
        Sleep(20)
    Until $XhWnd <> 0
    $XSdll = ""
    $XstPID = 0
    If $XhWnd <> 0 Then
        $XhWinSize = WinGetPos($XhWnd)
        $XPID2 = XSkinGUICreate ( $XR_Title, ($XhWinSize[2]) + ($tile_size * 2) , ($XhWinSize[3]) + ($tile_size * 2), $Skin_Folder)
        If FileExists($Icon_Folder) Then $Xh_ret = XSkinIcon ($XPID2)
        $oxStyle = DllCall("user32.dll", "int", "GetWindowLong", "hwnd", $XPID2, "int", -16)
        DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $XPID2, "int", -16, "long", BitOR($oxStyle[0], $WS_CLIPCHILDREN))
        $ostyle = DllCall("user32.dll", "long", "GetWindowLong", "hwnd", $XhWnd, "int", -16)
        DllCall("user32.dll", "int", "SetParent", "hwnd", $XhWnd, "hwnd", $XPID2)
        DllCall("user32.dll", "long", "SetWindowLong", "hwnd", $XhWnd, "int", -16, "long", BitOR($WS_POPUP, $WS_CHILD, $WS_VISIBLE, $WS_CLIPSIBLINGS))
        GUISetState()
        WinMove($XhWnd, "", $tile_size, $tile_size)
        WinSetState($XhWnd, "", @SW_SHOW)
        WinActivate($XhWnd)
        $XR_Ret[0] = $XPID2
        $XR_Ret[1] = $XhWnd
        $XR_Ret[2] = $Xh_ret[1]
        Return $XR_Ret
    EndIf
EndFunc   ;==>XSkinRun

Func XSkinExplore($XSI_Title, $XSI_Location, $XSI_Width, $XSI_Height)
    Local $oXIE, $XSI_Ret[3], $XSI_but, $XSI_gui, $oXActiveX
    $oXIE = ObjCreate("Shell.Explorer.2")
    $XSI_gui = XSkinGUICreate ($XSI_Title, $XSI_Width + ($tile_size * 2), $XSI_Height + ($tile_size * 2), $Skin_Folder)
    If FileExists($Icon_Folder) Then $XSI_but = XSkinIcon ($XSI_gui)
    $oXActiveX = GUICtrlCreateObj($oXIE, $tile_size, $tile_size, $XSI_Width, $XSI_Height)
    $oXIE.navigate ($XSI_Location)
    GUISetState()
    $XSI_Ret[1] = $XSI_Ret[0]
    $XSI_Ret[2] = $XSI_but[1]
    Return $XSI_Ret
EndFunc   ;==>XSkinExplore

EzSkinToolBar.au3 - ToolBar for EzSkin




XSkinToolBar.au3 - #include

#include-once
#include <GUIConstants.au3>
;Opt("MustDeclareVars", 1)

; ver 1.0.0
; $h_ToolBar = XSkinToolBarCreate($Xh_Gui, $tool_left, $tool_top, $tool_width, $tool_bkcolor = "")
; XSkinToolBarButton($iNumber, $iDLL = "shell32.dll")
; XSkinToolBarSeparator()

Global $TBcnt = -1

Func XSkinToolBarCreate($Xh_Gui, $tool_left, $tool_top, $tool_width, $tool_bkcolor = "")
    Local $Xh_ToolBar
    $Xh_ToolBar = GUICreate("", $tool_width, 24, $tool_left, $tool_top, $WS_CHILD, $WS_EX_STATICEDGE, $Xh_Gui)
    If $tool_bkcolor <> "" Then GUISetBkColor( $tool_bkcolor, $Xh_ToolBar)
    Return $Xh_ToolBar
EndFunc

Func XSkinToolBarButton($iNumber, $iDLL = "shell32.dll")
    Local $Xhadd, $TBBleft
    $TBcnt = $TBcnt + 1
    $TBBleft = $TBcnt * 24
    $Xhadd = GUICtrlCreateButton("", $TBBleft, 1, 24, 24, $BS_ICON)
    GUICtrlSetImage( $Xhadd, $iDLL, $iNumber, 0)
    Return $Xhadd
EndFunc

Func XSkinToolBarSeparator()
    Local $TBBleft
    $TBcnt = $TBcnt + .5
    $TBBleft = $TBcnt * 24
    GUICtrlCreateLabel("", $TBBleft + 17, 2, 2, 22, $SS_ETCHEDVERT)
EndFunc

[Imakepigsfly]

PROBLEMS FIXED; OTHER PART OF POST BELOW

[Yeti]

so whats the point of different layouts on auto-it? just for show?

[Imakepigsfly]

EzSkinInputBox() - with password parameter

Link for input box

EzSkinGradient.au3 - Custom background colors



Link for Gradient

EzSkinTab.au3 - Colored Tabs / List Tabs



Link for Tab

EzSkinAnimate.au3 - Window Animation

Link for Animate

That's all folks!

I DID NOT TEST CREDIT GOES TO "Valuator" LINK

[Imakepigsfly]

so whats the point of different layouts on auto-it? just for show?

They make your programs in Auto-It look nicer