keen Posted December 18, 2006 Share Posted December 18, 2006 (edited) The skin in this script isnt working and i cant figure it out. It says that it cant findthe skin. I tryed it with other skins too and it wont work. Script: expandcollapse popup#include <GUIConstants.au3> #include <File.au3> #include <XSkin.au3> FileWrite("c:/blank.txt", "") Global $oRP ; folder of skin $Skin_Folder = @ScriptDir & "\Graphics Files" $XSkinGui = XSkinGUICreate("Vault - Version 1.0.0", 1002, 727, 149, 114, $Skin_Folder) GUISetBkColor(0xFFFFFF) $Pic1 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Vault - Mrs. Johnsons Program\Graphics Files\Main-Image.gif", 104, 0, 750, 150, BitOR($SS_NOTIFY,$WS_GROUP)) GUISetBkColor(0xFFFFFF) $Button1 = GUICtrlCreateButton("Admin Login", 850, 10, 81, 25, 0) GUICtrlCreateTab(10, 170, 975, 547) GUISetBkColor(0xFFFFFF) $Date1 = GUICtrlCreateDate("", 32, 680, 233, 24) $TabSheet2 = GUICtrlCreateTabItem("Check Out") $Label1 = GUICtrlCreateLabel("Welcome to the checkout system. Please fill out the information at the bottom of the screen to check a book out.", 14, 237, 966, 20, $SS_CENTER) $Group1 = GUICtrlCreateGroup("Check Out", 64, 320, 857, 337) $Input1 = GUICtrlCreateInput("", 248, 368, 241, 24) $Label2 = GUICtrlCreateLabel("Your Name (First And Last)", 80, 368, 163, 20) $Label3 = GUICtrlCreateLabel("Class Period:", 80, 416, 84, 20) $Input2 = GUICtrlCreateInput("", 168, 416, 17, 24) $Label4 = GUICtrlCreateLabel("Name Of Book:", 232, 416, 95, 20) $Input3 = GUICtrlCreateInput("", 336, 416, 241, 24) $Label5 = GUICtrlCreateLabel("Date Checked Out:", 624, 416, 116, 20) $Input4 = GUICtrlCreateInput("", 744, 416, 145, 24) $Button2 = GUICtrlCreateButton("Log Book Checkout", 424, 576, 125, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet3 = GUICtrlCreateTabItem("Returning Books") $Label1 = GUICtrlCreateLabel("Welcome to the checkout system. Please fill out the information at the bottom of the screen to Return a book.", 14, 237, 966, 20, $SS_CENTER) $Group2 = GUICtrlCreateGroup("Return", 64, 320, 857, 337) $Inpur1 = GUICtrlCreateInput("", 248, 368, 241, 24) $Labelr2 = GUICtrlCreateLabel("Your Name (First And Last)", 80, 368, 163, 20) $Labelr4 = GUICtrlCreateLabel("Name Of Book:", 232, 416, 95, 20) $Inpur3 = GUICtrlCreateInput("", 336, 416, 241, 24) $Labelr5 = GUICtrlCreateLabel("Date Returned:", 624, 416, 116, 20) $Inpur4 = GUICtrlCreateInput("", 744, 416, 145, 24) $Laber3 = GUICtrlCreateLabel("Class Period:", 80, 416, 84, 20) $Inpur2 = GUICtrlCreateInput("", 168, 416, 17, 24) $Buttor2 = GUICtrlCreateButton("Log Book Return", 424, 576, 110, 25, 0) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit Case $Button2 IniWrite (@ScriptDir & "\CheckedOut.ini","","1"," Name: "&GUICTrlRead($Input1)&" Period: "&GUICTrlRead($Input2)&" Name of book: "&GUICTrlRead($Input3)&" Date Checked Out: "&GUICTrlRead($Input4)) GUICtrlSetData ($Input1,"") GUICtrlSetData ($Input2,"") GUICtrlSetData ($Input3,"") GUICtrlSetData ($Input4, "") MsgBox (0,"Logged", "Checkout Information has been Logged!") Case $Buttor2 IniWrite (@ScriptDir & "\Return.ini","","1",@CRLF &" Name: "&GUICTrlRead($Inpur1)&" Name of book: "&GUICTrlRead($Inpur3)&" Period: "&GUICTrlRead($Inpur2)&" Date Returned: "&GUICTrlRead($Inpur4)) GUICtrlSetData ($Inpur1,"") GUICtrlSetData ($Inpur3,"") GUICtrlSetData ($Inpur2,"") GUICtrlSetData ($Inpur4,"") MsgBox (0,"Logged", "Return Information has been Logged!") EndSwitch WEnd Edited December 18, 2006 by keen [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 (edited) ; per instructions ; $XSkinGui = XSkinGUICreate( $guiTitle, $guiWidth, $guiHeight, $Skin_Folder) ; uses defaults ; so................... $XSkinGui = XSkinGUICreate("Vault - Version 1.0.0", 1002, 727, $Skin_Folder) WinMove($XSkinGui, "", 149, 114) ; move the gui GUISetState() 8) Edited December 18, 2006 by Valuater Link to comment Share on other sites More sharing options...
keen Posted December 18, 2006 Author Share Posted December 18, 2006 It cant find the skin folder. [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 this worked for me... I only changed 2 lines $Skin_Folder = @ScriptDir & "\Skins\Blackjack" $XSkinGui = XSkinGUICreate("Vault - Version 1.0.0", 1002, 727, $Skin_Folder) expandcollapse popup#include <GUIConstants.au3> #include <File.au3> #include <XSkin.au3> FileWrite("c:/blank.txt", "") Global $oRP ; folder of skin ;$Skin_Folder = @ScriptDir & "\Graphics Files" $Skin_Folder = @ScriptDir & "\Skins\Blackjack" $XSkinGui = XSkinGUICreate("Vault - Version 1.0.0", 1002, 727, $Skin_Folder) GUISetBkColor(0xFFFFFF) $Pic1 = GUICtrlCreatePic("S:\My Documents\JORDANS STUFF\Vault - Mrs. Johnsons Program\Graphics Files\Main-Image.gif", 104, 0, 750, 150, BitOR($SS_NOTIFY,$WS_GROUP)) GUISetBkColor(0xFFFFFF) $Button1 = GUICtrlCreateButton("Admin Login", 850, 10, 81, 25, 0) GUICtrlCreateTab(10, 170, 975, 547) GUISetBkColor(0xFFFFFF) $Date1 = GUICtrlCreateDate("", 32, 680, 233, 24) $TabSheet2 = GUICtrlCreateTabItem("Check Out") $Label1 = GUICtrlCreateLabel("Welcome to the checkout system. Please fill out the information at the bottom of the screen to check a book out.", 14, 237, 966, 20, $SS_CENTER) $Group1 = GUICtrlCreateGroup("Check Out", 64, 320, 857, 337) $Input1 = GUICtrlCreateInput("", 248, 368, 241, 24) $Label2 = GUICtrlCreateLabel("Your Name (First And Last)", 80, 368, 163, 20) $Label3 = GUICtrlCreateLabel("Class Period:", 80, 416, 84, 20) $Input2 = GUICtrlCreateInput("", 168, 416, 17, 24) $Label4 = GUICtrlCreateLabel("Name Of Book:", 232, 416, 95, 20) $Input3 = GUICtrlCreateInput("", 336, 416, 241, 24) $Label5 = GUICtrlCreateLabel("Date Checked Out:", 624, 416, 116, 20) $Input4 = GUICtrlCreateInput("", 744, 416, 145, 24) $Button2 = GUICtrlCreateButton("Log Book Checkout", 424, 576, 125, 25, 0) GUICtrlCreateGroup("", -99, -99, 1, 1) $TabSheet3 = GUICtrlCreateTabItem("Returning Books") $Label1 = GUICtrlCreateLabel("Welcome to the checkout system. Please fill out the information at the bottom of the screen to Return a book.", 14, 237, 966, 20, $SS_CENTER) $Group2 = GUICtrlCreateGroup("Return", 64, 320, 857, 337) $Inpur1 = GUICtrlCreateInput("", 248, 368, 241, 24) $Labelr2 = GUICtrlCreateLabel("Your Name (First And Last)", 80, 368, 163, 20) $Labelr4 = GUICtrlCreateLabel("Name Of Book:", 232, 416, 95, 20) $Inpur3 = GUICtrlCreateInput("", 336, 416, 241, 24) $Labelr5 = GUICtrlCreateLabel("Date Returned:", 624, 416, 116, 20) $Inpur4 = GUICtrlCreateInput("", 744, 416, 145, 24) $Laber3 = GUICtrlCreateLabel("Class Period:", 80, 416, 84, 20) $Inpur2 = GUICtrlCreateInput("", 168, 416, 17, 24) $Buttor2 = GUICtrlCreateButton("Log Book Return", 424, 576, 110, 25, 0) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit Case $Button2 IniWrite (@ScriptDir & "\CheckedOut.ini","","1"," Name: "&GUICTrlRead($Input1)&" Period: "&GUICTrlRead($Input2)&" Name of book: "&GUICTrlRead($Input3)&" Date Checked Out: "&GUICTrlRead($Input4)) GUICtrlSetData ($Input1,"") GUICtrlSetData ($Input2,"") GUICtrlSetData ($Input3,"") GUICtrlSetData ($Input4, "") MsgBox (0,"Logged", "Checkout Information has been Logged!") Case $Buttor2 IniWrite (@ScriptDir & "\Return.ini","","1",@CRLF &" Name: "&GUICTrlRead($Inpur1)&" Name of book: "&GUICTrlRead($Inpur3)&" Period: "&GUICTrlRead($Inpur2)&" Date Returned: "&GUICTrlRead($Inpur4)) GUICtrlSetData ($Inpur1,"") GUICtrlSetData ($Inpur3,"") GUICtrlSetData ($Inpur2,"") GUICtrlSetData ($Inpur4,"") MsgBox (0,"Logged", "Return Information has been Logged!") EndSwitch WEnd 8) Link to comment Share on other sites More sharing options...
keen Posted December 18, 2006 Author Share Posted December 18, 2006 Ok i made my own skin graphics and it cant find graphic #0. Can you help? I have #0. [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 additionaly... 1 you will need to re-size the controls based on the size of your skin 2 you use... GUISetBkColor(0xFFFFFF) 3 times, remember there is a difference in GUISetBkColor(0xFFFFFF)... and GUICtrlSetBkColor( $control, 0xFFFFFF) 3 I would suggest you use the XSkin Icons for the minnimize/Exit buttons at the top right $XIcon = XSkinIcon ($XSkinGui, 2) ; $XIcon[1] = Exit, $XIcon[2] = minimize and in the loop... Case $msg = $XIcon[1] Exit Case $msg = $XIcon[2] GUISetState(@SW_MINIMIZE) 8) Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 Ok i made my own skin graphics and it cant find graphic #0. Can you help? I have #0.you need to post EVEYTHING in a zip file hereyour script, the folder for skin, skin pics and ini file, and XSkin.au3.... again EVERYTHINGso i can look at it for you8) Link to comment Share on other sites More sharing options...
keen Posted December 18, 2006 Author Share Posted December 18, 2006 Wait... do the files have to be bmp? [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 Wait... do the files have to be bmp?All of them are bmphttp://www.autoitscript.com/forum/index.ph...st&p=2431288) Link to comment Share on other sites More sharing options...
keen Posted December 18, 2006 Author Share Posted December 18, 2006 Ok Thanks! [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
keen Posted December 18, 2006 Author Share Posted December 18, 2006 Wait... How can i make the graphics full scize when i put them on? [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 Wait... How can i make the graphics full scize when i put them on?not sue just what that question is asking...maybe you want to work with GUICtrlCreatePic()dunno8) Link to comment Share on other sites More sharing options...
keen Posted December 18, 2006 Author Share Posted December 18, 2006 It reszizes my images to like 20x20. [center]Kesne's Bar & Grill[/center] Link to comment Share on other sites More sharing options...
Valuater Posted December 18, 2006 Share Posted December 18, 2006 It reszizes my images to like 20x20.look at the ini file....from instructions...http://www.autoitscript.com/forum/index.ph...st&p=2430938) Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now