_UskinLibrary.au3 (UDF) - Skin with DLL free (no ads) and fully functional!

[BrewManNH]

First, I hope this isn't true ; AutoIt 3.0.103 example. Are you running this on an x64 system, because if you are, you need to make sure you don't compile it with the x64 compiler.

[Damein]

Nah, thats from the example so it was made back then, lol. And yes I am, but I saw the previous posts and selected complied as x86.

[JScript]

@Damein

You need this:

#AutoIt3Wrapper_Compression=0   ;Compression parameter 0-4  0=Low 2=normal 4=High. Default=2
#AutoIt3Wrapper_UseUpx=n        ;(Y/N) Compress output program.  Default=Y

Regards,

João Carlos.

Edited May 14, 2012 by JScript

[SANGPRONHAT]

I have a problem !!!

when exit program it has a bug "Don't send" @@ please help me !!

[JScript]

I do not understand what's wrong, you could be more specific?

Regards,

João Carlos.

[UEZ]

Any idea how to use USkinLoadSkinFromBuffer or USkinLoadSkinFromResource function from the DLL?

Found this link here: http://www.helplib.net/help/9066db3c7d28f66f452fabd352a954f4

Br,

UEZ

[wakillon]

Any idea how to use USkinLoadSkinFromBuffer or USkinLoadSkinFromResource function from the DLL?

Found this link here: http://www.helplib.net/help/9066db3c7d28f66f452fabd352a954f4

Br,

UEZ

Hi UEZ

may be USkin.chm in english can help you...

[UEZ]

@wakillon: thanks for the link!

Here what I got so far: http://pastebin.com/wJt0Fg7f

Br,

UEZ

Edited July 3, 2012 by UEZ

[JScript]

I did not know the dll had these features, wonderful!

Let's add them, I count on you both!

Regards,

João Carlos.

[MrCreatoR]

There is a problem with unicode...

I have Russian Win7, and some buttons of FileOpenDialog not displayed correctly:

Any ideas on how to fix this?

[JScript]

Very strange, I'll install the Russian language pack and make tests in a virtual machine!

I go back once I have results.

Regards,

João Carlos.

[MrCreatoR]

JScript

Any progress with my issue?

[JScript]

I think I can not say for sure because I just did an installation of language pack and I do not think is very valid...

Test with this example below and return with the results, we'll see if fails with all skins available or only a few:

expandcollapse popup

; *** Start added by AutoIt3Wrapper ***
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
; *** End added by AutoIt3Wrapper ***
#AutoIt3Wrapper_Add_Constants=n

#include <File.au3>
#include <WinAPIEx.au3>
#include <String.au3>
#include "_UskinLibrary.au3"

Global $iEZS_LTHEMEEVENT = 1, $hPreview
Global Const $sINI = @TempDir & 'Skin.ini'

_LoadSkin("")

Func _LoadSkin($sSkinsFolder = "")
    Local $aFileList, $hWinhandle, $iButton1, $iButton2, $iButton3, $iMsg
    Local $iCoordMode, $iEventMode, $sColuns, $iLVCtrlID, $iLVICtrlID
    Local $sListItem, $sDatFile, $sCol1, $sCol2, $sCol3, $sCol4
    Local $hFile, $hInstance, $hResource, $hData, $pData, $tData

    If $sSkinsFolder = "" Then $sSkinsFolder = @ScriptDir & "Skins"

    While 1
        $aFileList = _FileListToArray($sSkinsFolder, "*.msstyles", 1)
        If @error Then
            $sSkinsFolder = FileSelectFolder("Selecione a pasta com skins.", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", 2, @ScriptDir)
            If @error Then
                Return 0
            EndIf
            ContinueLoop
        EndIf
        ExitLoop
    WEnd
    $iCoordMode = Opt("GUICoordMode", 1)
    $iEventMode = Opt("GUIOnEventMode", 0)

    _USkin_Init($sSkinsFolder & "" & $aFileList[1])

    $hWinhandle = GUICreate("Skins", 706, 405, -1, -1, BitOR($WS_CAPTION, $WS_SYSMENU), BitOR($WS_EX_APPWINDOW, $WS_EX_TOPMOST));$WS_EX_TOOLWINDOW
    GUISwitch($hWinhandle)

    $sColuns = "Nome" & _StringRepeat(" ", 30) & "|" & _
            "Autor" & _StringRepeat(" ", 20) & "|" & _
            "Versão" & _StringRepeat(" ", 10) & "|" & "Link" & _StringRepeat(" ", 20) & "|" & "Caminho" & _StringRepeat(" ", 100)
    $iLVCtrlID = GUICtrlCreateListView($sColuns, 14, 30, 472, 308, _
            BitOR($LVS_REPORT, $LVS_SINGLESEL, $LVS_SHOWSELALWAYS, $LVS_NOSORTHEADER, $LVS_SORTASCENDING, $WS_HSCROLL, $WS_VSCROLL), _
            BitOR($WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT))
    GUICtrlCreateLabel("Label1" & ":", 500, 27, 191, 20, 0x0B + 0x08000000)
    ;GUICtrlSetColor(-1, $vDAT_COLOR_FONTFRONT)
    GUICtrlCreateLabel("Label2" & ":", 15, 10, 100, 17, 0x0B + 0x08000000)
    ;GUICtrlSetColor(-1, $vDAT_COLOR_FONTFRONT)
    GUICtrlCreateButton("", 14, 354, 677, 2, 0x08000000, 0x00020000)
    $iButton1 = GUICtrlCreateButton("OK", 234, 368, 75, 21)
    $iButton2 = GUICtrlCreateButton("Cancelar", 396, 368, 75, 21)
    $iButton3 = GUICtrlCreateButton("Verificar mais temas na web...", 500, 260, 190, 24)
    GUICtrlSetState($iButton1, 512)

    For $i = 1 To $aFileList[0]
        $sDatFile = $sSkinsFolder & "" & $aFileList[$i]
        ;
        ;----> Load .msstyles to memory
        $hInstance = _WinAPI_LoadLibraryEx($sDatFile, $LOAD_LIBRARY_AS_DATAFILE)
        ; Load INI file resource...
        $hResource = _WinAPI_FindResource($hInstance, 'TEXTFILE', "THEMES_INI")
        $iSize = _WinAPI_SizeOfResource($hInstance, $hResource)
        $hData = _WinAPI_LoadResource($hInstance, $hResource)
        $pData = _WinAPI_LockResource($hData)
        ;--
        ; Save resource to .ini file
        $hFile = FileOpen($sINI, 2 + 16)
        $tData = DllStructCreate('byte[' & $iSize & ']', $pData)
        FileWrite($hFile, DllStructGetData($tData, 1))
        FileClose($hFile)
        _WinAPI_FreeLibrary($hInstance)
        ;<---- Unload .msstyles from memory
        ;
        $sCol1 = IniRead($sINI, "Documentation", "DisplayName", "")
        $sCol2 = IniRead($sINI, 'Documentation', 'Author', '')
        $sCol3 = IniRead($sINI, 'Documentation', 'Version', '')
        $sCol4 = IniRead($sINI, 'Documentation', 'URL', '')
        $sCol5 = $sDatFile
        $iLVICtrlID = GUICtrlCreateListViewItem($sCol1 & "|" & $sCol2 & "|" & $sCol3 & "|" & $sCol4 & "|" & $sCol5, $iLVCtrlID)
        ;If $sDatFile = $sEZS_SKINPATH Then    GUICtrlSetState($iLVICtrlID, $GUI_FOCUS)
    Next

    GUISetState(@SW_SHOW, $hWinhandle)
    $hPreview = GUICreate("", 190, 140, 498, 62, BitOR($WS_CAPTION, $WS_SYSMENU, $WS_CHILD), -1, $hWinhandle)
    GUISetState(@SW_SHOWNOACTIVATE, $hPreview)

    GUIRegisterMsg($WM_SYSCOMMAND, "On_WM_SYSCOMMAND")
    $iEZS_LTHEMEEVENT = 0
    GUIRegisterMsg($WM_NOTIFY, "__EzSkinThemeEvents")

    While 1
        $iMsg = GUIGetMsg()
        ; These lines implement the reading of the key Enter and they activate the button 1
        If $iMsg = $iButton1 Then
            $sListItem = GUICtrlRead(GUICtrlRead($iLVCtrlID))
            If $sListItem <> "" Then
                ;$sDatFile = StringSplit($sListItem, "|")
                ;$sEZS_SKINPATH = $sDatFile[4]
                ExitLoop
            EndIf
        ElseIf $iMsg = $iButton2 Or $iMsg = -3 Then ; $GUI_EVENT_CLOSE
            Opt("GUIOnEventMode", $iEventMode)
            Opt("GUICoordMode", $iCoordMode)
            GUIDelete($hWinhandle)
            GUIRegisterMsg(0x004E, "")
            Return 0
        ElseIf $iMsg = $iButton3 Then
            ;
        EndIf
    WEnd
    GUIDelete($hWinhandle)

    Exit
EndFunc   ;==>_LoadSkin

Func On_WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    Switch $hWnd
        Case $hPreview
            If BitAND($wParam, 0xFFF0) = 0xF010 Or BitAND($wParam, 0xFFF0) = 0xF060 Then Return False
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc   ;==>On_WM_SYSCOMMAND

; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name...........: __EzSkinThemeEvents
; Description ...: WM_NOTIFY event for _EzSkinLoadTheme().
; Syntax.........: __EzSkinThemeEvents( WndGUI, MsgID, WParam, LParam )
; Author ........: jscript
; Example .......; __EzSkinThemeEvents()
; ===============================================================================================================================
Func __EzSkinThemeEvents($hWndGUI, $MsgID, $wParam, $lParam)
    Local $iCtrlID = _WinAPI_LoWord($wParam), $nResult = GUICtrlRead($iCtrlID)

    If $nResult <> $iEZS_LTHEMEEVENT And $nResult <> 0 Then
        Local $sListItem = GUICtrlRead($nResult), $aDatFile = StringSplit($sListItem, "|")
        If @error Then Return 'GUI_RUNDEFMSG'
        _USkin_LoadSkin($aDatFile[5])
        $iEZS_LTHEMEEVENT = $nResult
    EndIf
    Return 'GUI_RUNDEFMSG'
EndFunc   ;==>__EzSkinThemeEvents

Regards,

João Carlos.

[MrCreatoR]

All skins the same

[JScript]

The help file of the DLL does not have information to help in this case.

Frankly I have no idea how to solve this!

Note: If you can, do the following: Installs the English language pack and there is still the same problem, ok?

Regards,

João Carlos.

[MrCreatoR]

Note: If you can, do the following: Installs the English language pack and there is still the same problem, ok?

I have Hebrew (MUI) system on my other computer, and the buttons there on english, so the problem is definitely in the char type that used to set data for dialogs.

[MrCreatoR]

Btw, i just realized that we can compress the skins with UPX, from ~11 mb skin we get ~300 kb .

[JScript]

Yes, I use them all compressed with UPX without any problems!

See this skin:

Xanadu.msstyles 9.04 MB

Xanadu.au3 only 37.19 KB!

---

João Carlos.

[MrCreatoR]

Yes, I use them all compressed with UPX without any problems!

Then why you didn't compressed them in first post's archive?

[JScript]

But only embedded in .au3, I don't use in .msstyles format...

Some have problems if they are compressed directly!

Regards,

João Carlos.

Edited July 16, 2012 by JScript