Hi all
Randomly searching the net yesterday I came across a skinner called
SkinEngine, so i thought i'd create an example for Skinning a BlueGui Window, (See Attached)
It works quite well and dosnt seem to slow it down at all unlike some others, and unlike some others which cost huge amounts, this is only $59, i think thats about £40, and there is a skin editor and MSstyle XP Themes to *.Skin Converter available for it aswell.
Theres a free trial version, and it all works, although there is an issue with menu bars not showing correctly, but if its just a small simple window your making, then this may work for you.
Heres the example thats in the download with the DLL
Set Display Mode 640,480,32 : Set Window On : Sync On : Sync Rate 0
Disable EscapeKey
` Create Example Window
StartBlue "",""
Window =createWindow(100,210,640,480,"Window",WINDOW_NORMAL,0,0,0)
Gadget1=createTabs(5,30,365,260,Window)
Gadget2=createToolbar(Window)
Gadget3=createProgressBar(165,300,239,15,Window) : SetProgressBarPos Gadget3,50
Gadget4=createTrackBar(375,240,195,25,0,Window)
Gadget5=createComboBox(415,50,75,100,Window)
Gadget6=createCheckBox(495,50,75,20,"Check",Window)
Gadget7=createFrame(375,85,235,145,"Frame",Window)
Gadget8=createEdit(99,32,75,20,0,Gadget7)
Gadget9=createButton(5,295,75,25,"Button",0,Window)
Gadget10=createButton(85,295,75,25,"Button",0,Window)
Gadget11=createStatusBar(Window)
Gadget12=createTrackBar(580,235,25,95,1,Window)
Gadget13=createRadioButton(450,265,75,20,"Radio",Window)
Gadget14=createRadioButton(450,290,75,20,"Radio",Window)
addTab Gadget1,"Skinnng Example"
addTab Gadget1,"By Michael Mihalyfi"
addItem Gadget5,"ComboBox"
` SkinEnine Activation...
DLLNum = 0 : Repeat : Inc DLLNum,1 : Until DLL Exist(DLLNum) = 0 : ` Get a Free DLL Number
Load DLL "Themes\skinengine.dll",DLLNum : ` Load the SkinEngine DLL
temp = Call DLL(DLLNum,"InitSkinEngine") : ` Initiate Skin Engine
temp = Call DLL(DLLNum,"ProvideLicenseKey","") : ` If you have the full version, enter code here...
temp = Call DLL(DLLNum,"LoadSkinFromFile","Themes\MacOS.Skin") : ` Load the Skin
temp = Call DLL(DLLNum,"ApplySkinEngine") : ` Apply loaded skin
Do : GetEvent
` Call "FreeSkinEngine" when closing
If EscapeKey() = 1 Then : temp = Call DLL(DLLNum,"FreeSkinEngine") : Delete DLL DLLNum : End
Sync : Loop