Jump to content

XSkin.au3... Skin your GUI


Valuater
 Share

Recommended Posts

XSkin Plug-in

XSkinAnimate.au3

; Demo
#cs
#include <GUIConstants.au3>
Dim $repeat = 1
$hwnd = GUICreate("XSkin Animate", 300, 300)

$ret = XSkinAnimate($hwnd, 1, $repeat)
Sleep(2000)

While $repeat <= 28 ;*********** will error - for testing
    $repeat += 1
    XSkinAnimate($hwnd, "", $repeat)
    
    Sleep(1000)
    
    $repeat += 1
    XSkinAnimate($hwnd, "", $repeat)
    Sleep(1000)
WEnd
#ce



Func XSkinAnimate($Xwnd, $Xstate = 1, $Xstyle = 0, $Xtrans = 0, $Xspeed = 1000)
    ; $Xstate  - 1 = Show, 2 = Hide, "" = No State Set
    ; $Xstyle - 1=Fade, 3=Explode, 5=L-Slide, 7=R-Slide, 9=T-Slide, 11=B-Slide, 13=TL-Diag-Slide, 15=TR-Diag-Slide, 17=BL-Diag-Slide, 19=BR-Diag-Slide
    Local $Xpick = StringSplit('80000,90000,40010,50010,40001,50002,40002,50001,40004,50008,40008,50004,40005,5000a,40006,50009,40009,50006,4000a,50005', ",")
    If Not WinExists($Xwnd) Then XSkinAnError("XSkinAnimate, $Xwnd - Window not found   ")
    If $Xstyle > $Xpick[0] Then XSkinAnError("XSkinAnimate, $Xstyle max is 19  ")
    If $Xstyle <> 0 Then Local $ret = DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Xwnd, "int", $Xspeed, "long", "0x000" & $Xpick[$Xstyle])
    If $Xtrans <> 0 Then WinSetTrans($Xwnd, "", $Xtrans)
    If $Xstate = 1 Then GUISetState(@SW_SHOW, $Xwnd)
    If $Xstate = 2 Then GUISetState(@SW_HIDE, $Xwnd)
    If $Xstyle <> 0 Then Return $ret
EndFunc   ;==>XSkinAnimate

Func XSkinAnError($XE_msg)
    MsgBox(262208, "XSkin Error", $XE_msg, 5)
    Exit
EndFunc   ;==>XSkinAnError

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

XSkinAnimate() (above)

Helped me find the errors with XSkinTrayBox not showing correctly!

WinMove makes the first picture ( underlying) display and

GUISetState() makes the top-most picture display....so

I made the important pics, 1st and last

..... Thus a new release of XSkin.au3

Feb 12, 2007

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

Down-Load Custom Example by big-daddy & FULLY-LOADED

Ver 1.3.7 Feb. 12, 2007

Includes...

* a fully functional executable program demonstrating all current XSkin Functions

* All includes/UDF Files

* 40+ Skins

* 20+ Buttons

* HTML Help File

... Enjoy!!!

Valuater

8)

down-load XSkin - Fully Loaded here...

]Down-Load Custom Example by big-daddy & FULLY-LOADED

8)

Edited by Valuater

NEWHeader1.png

Link to comment
Share on other sites

I'm back after a month... Sorry for that, Heres the latest version

Its attached below...

I had to redo it, I think its a bit better but I'm not sure, I'll have to add all theese new functions to it.

Updates In Version 1.1

*Added Shell & Shell Example

*Added A Tiny Tutorial

I'll release 1.2 tomorrow....

Just ONE Word... AweSome!!!!

Thanks for your contribution, Joscpe

Valuater

8)

NEWHeader1.png

Link to comment
Share on other sites

  • Moderators

You guys are doing a great job... Keep up the good work...

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...