PureSkin (Window.l,Gadget.l,Image.l,Filename$,Flag.l)
Previous  Top  Next

Skin the Selected Window from File.

Use:
PureSkin(#Window,#Gadget,#Image,"MySkin.pvs",1)

Flags: True = Center Window

Returns 1 if success.


Example:

#Main=0
#Gadget_Skin=1
#Image_Skin=2
If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
 
PureSkin(#Main,#Gadget_Skin,#Image_Skin,"MySkin.pvs",1)  ;<-- Loads PureSkin from File  
PureSkinHide(#Main,0)  
 
 
quitMain=0  
Repeat  
Select WaitWindowEvent()  
Case #PB_Event_CloseWindow  
quitMain=1   
EndSelect   
Until quitMain  
 
EndIf
End