Jump to content

XSkin.au3... Skin your GUI


Recommended Posts

..bump... I have question! i used _hoverbutton to created my button and how can i set tip for it?

Like This... ( Standard Autoit use )

This is a _ButtonHover() Demo ... NOT XSkin

#include <_ButtonHover.au3>
#include <File.au3>

; required
; $XButton_Location = @ScriptDir & "\Buttons\Style_1"

$XButton_Location = FileReadLine(@ScriptDir & "\Buttons\BDefault.txt", 1)
If Not FileExists($XButton_Location) Then $XButton_Location = FileSelectFolder("Button Folders", @ScriptDir & "\Buttons", 2)

$color = ""
If StringInStr($XButton_Location, "15") Then $color = 0xFFFFFF

$Main_GUI = GUICreate("_ButtonHover Demo")
$List = GUICtrlCreateList("", 40, 80, 100, 100)
GUICtrlCreateLabel($XButton_Location, 20, 20, 400, 20)

$Button_1 = _HoverButton ("Small", 180, 80, 70, 15, $color)
GUICtrlSetTip( $Button_1, "This is a control tip for #1  ")
$Button_2 = _HoverButton ("Medium", 180, 120, 90, 30, $color)
GUICtrlSetTip( $Button_2, "This is a control tip  for #2")
$Button_3 = _HoverButton ("Long", 180, 180, 190, 30, $color)
GUICtrlSetTip( $Button_3, "This is a control tip  for #3")
$Button_4 = _HoverButton ("Large", 180, 240, 190, 60, $color)
GUICtrlSetTip( $Button_4, "This is a control tip  for #4")
$Button_5 = GUICtrlCreateButton("Select", 50, 200, 80, 25)
GUICtrlSetTip($Button_5, "Select a Button Style")
GUISetState()

$FileList = _FileListToArray(@ScriptDir & "\Buttons", "*.*", 2)
If (Not IsArray($FileList)) Or (@error = 1) Then
    MsgBox(0, "", "No Files\Folders Found.", 5)
Else
    For $x = 1 To UBound($FileList) - 1
        If StringInStr($FileList[$x], "more") Then ContinueLoop
        $result = StringInStr($FileList[$x], "\", 1, -1)
        $final = StringTrimRight($FileList[$x], $result)
        GUICtrlSetData($List, $final, 1)
    Next
EndIf


While 1
    ; required
    _CheckHoverAndPressed ($Main_GUI)

    $msg = GUIGetMsg()
    Select
       
        Case $msg = $Button_1
            MsgBox(64, "test", " You pressed Small   ", 3)
        Case $msg = $Button_2
            MsgBox(64, "test", " You pressed Medium- long   ", 3)
        Case $msg = $Button_3
            MsgBox(64, "test", " You pressed Long   ", 3)
        Case $msg = $Button_4
            MsgBox(64, "test", " You pressed Large   ", 3)
        Case $msg = $Button_5
            Buttoner()
        Case $msg = -3
            Exit
       
    EndSelect

WEnd

Func Buttoner()
    $New_Btn = GUICtrlRead($List)
    If $New_Btn = "" Then Return
    FileDelete(@ScriptDir & "\Buttons\BDefault.txt")
    FileWrite(@ScriptDir & "\Buttons\BDefault.txt", @ScriptDir & "\Buttons\" & $New_Btn)
    Run(FileGetShortName(@AutoItExe) & " " & FileGetShortName(@ScriptFullPath))
    Exit
EndFunc   ;==>Buttoner

8)

NEWHeader1.png

Link to post
Share on other sites
  • Replies 503
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

** UPDATED ** Jan 22, 2009 Ver 1.4.1 XSkin.au3 * Added - XSkinConsole - Plug-in * Added - XSkinTrayMenu - Plug-in * Over 40 GUI Skins! - any size you want * Mouse-Over GUI Options

XSkin.au3 Demonstration Page Basics: 1. A Skinned GUI Only 2. A Skinned GUI and Button 3. A Skinned GUI, Button and XSkinMsgBox 4. A Skinned GUI, Button and XSkinInputBox 5. A

Posted Images

oh thx a lot! i did it! but when i use this code:

$Button3 = _HoverButton("Close", 350, 226, 97, 25, $color)
 GUICtrlSetTip(-1, "Quit program")

it doesn't work?

Thats because the "-1" means the last created control and that is a label that goes over the picture control

So.. use this

$Button_1 = _HoverButton ("Small", 180, 80, 70, 15, $color)
GUICtrlSetTip( $Button_1, "This is a control tip for #1  ")

8)

NEWHeader1.png

Link to post
Share on other sites

I think it would be very difficult to make one for XSkin, however JScript had made one for EzSkin and when he left he had all of his posts deleted.

I am thinking of making one for EzSkin, but not to the level that JScript did....

Better than that, there were quit a few who had downloaded the EzSkin coverter from JScript and might still have a working copy that they can post it

8)

Hi Valuater,

I'm back... Happy new year 2009!!!

http://forum.autoitbrasil.com/ (AutoIt v3 Brazil!!!)

Somewhere Out ThereJames Ingram

somewh10.png

dropbo10.pngDownload Dropbox - Simplify your life!
Your virtual HD wherever you go, anywhere!

Link to post
Share on other sites
  • 2 weeks later...

As the Latest release of Autoit is out and the old version is not used as much, I have updated the XSkin.au3 file and added the latest includes from the latest Autoit.

** UPDATED ** Jan 17, 2009 Ver 1.4.0

8)

i tryed the fix i even tryed your updated one and this is the error i keep getting

Posted Image

thank you for your help

Link to post
Share on other sites

OK... found a newer problem that may have been there for a while. XSin Buttons were originally designed to execute a function

XSkinButton($Btext, $Bleft, $Btop, $Bwidth, $Bheight, $event_function = "")

However since XSkin's development we added the ability to set the state of the button and GUIGetMsg() has not worked since ( AFAIK ). This has just come to my attention today!

XSkin buttons will still work on event. BUT, to use the $msg you must write it like this

$msg = MouseOver() ; for XSkin buttons only

for GUIGetMsg() Use

$msg2 = GUIGetMsg()

This is based on today's new update to XSkin.au3 ver 1.4.1

Thanks,

Valuater

8)

NEWHeader1.png

Link to post
Share on other sites

from examples page #2

Using GUIGetMsg()

Basic, ASkinned GUI, Button and XSkinButton

#include <XSkin.au3>

$Skin_Folder = @ScriptDir & "\Skins\Universal"

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

$Button_1 = XSkinButton("Testing 1st Button", 135, 150, 120, 30)

$Button_2 = GUICtrlCreateButton("Testing 2nd Button", 135, 250, 120, 30)

GUISetState()


While 1
    
    $msg1 = MouseOver()
    $msg2 = GUIGetMsg()
    
    Select
        Case $msg1 = $Button_1
            MsgBox(64, "Test #1", "You pressed XSkin Button", 2)
            
        Case $msg2 = $Button_2
            MsgBox(64, "Test #2", "You pressed Autoit Button", 2)
    EndSelect
WEnd

8)

NEWHeader1.png

Link to post
Share on other sites
  • 1 month later...
  • 2 weeks later...

Looks nice Valuater.I can't seem to download it though. .[i've got dial up and my usual connection speed is 49.2kb per second.It gets to about 20-21mb and the connecetion drops[not the internet connection the one between the download].So can anyone please email me it?My email address is wa4tlo@bellsouth.net

Link to post
Share on other sites

Looks nice Valuater.I can't seem to download it though. .[i've got dial up and my usual connection speed is 49.2kb per second.It gets to about 20-21mb and the connecetion drops[not the internet connection the one between the download].So can anyone please email me it?My email address is wa4tlo@bellsouth.net

I really don't understand... according to the XSkin "Fully Loaded" here

http://www.autoitscript.com/forum/index.ph...amp;showfile=44

File Size 3.73MB

Not 20+??

Try to download from there or, have a friend try too! Then email it to you.

Good Luck

Valuater

8)

NEWHeader1.png

Link to post
Share on other sites

I can't download the XSkin.au3

I Just downloaded the two XSkin.au3 files on page #1 ( old & new file )

They open on a new page... no problem

Then, I downloaded and ran XSkin Fully Loaded.... no problem.

I cant help you if I can't duplicate the problem.... Sorry!

8)

NEWHeader1.png

Link to post
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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...