PVGadgets_CanvasButtonAdd (WindowID.l,CanvasID.l,ImageId.l,SubID.l)
Previous  Top  Next

Creates a CanvasButton on specific Window by specifying the CanvasID, the Default Image and the Replacement Image.

Use:
PVGadgets_CanvasButtonAdd(#Window,#Gadget,#Image1,#Image2)






Example:

XIncludeFile "Buttons_Constants.pb"
XIncludeFile "Buttons_Windows.pb"


;-Main Loop
If Window_Main()
PVGadgets_CanvasButtonAdd(#Window_Main,#Gadget_Main_Settings,#Image_Main_Settings,#Image_Icons_Settings)  
PVGadgets_CanvasButtonAdd(#Window_Main,#Gadget_Main_Web,#Image_Main_Web,#Image_Icons_Web)  
PVGadgets_CanvasButtonAdd(#Window_Main,#Gadget_Main_Info,#Image_Main_Info,#Image_Icons_Info)  
 
quitMain=0  
Repeat  
PVGadgets_CanvasButtonHover(#Window_Main)  
EventID=WindowEvent()   
If EventID  
Select EventID  
Case #PB_Event_CloseWindow  
If EventWindowID()=#Window_Main  
quitMain=1  
EndIf  
 
Case #WM_LBUTTONDOWN  
Select PVGadgets_CanvasButtonPressed()  
Case #Gadget_Main_Settings  
SetGadgetText(#Gadget_Main_Press,"S e t t i n g s . . .")  
Case #Gadget_Main_Web  
SetGadgetText(#Gadget_Main_Press,"W e b s i t e . . .")  
Case #Gadget_Main_Info  
SetGadgetText(#Gadget_Main_Press,"I n f o r m a t i o n . . .")  
EndSelect   
EndSelect  
 
Else  
Delay(1)  
EndIf  
Until quitMain  
CloseWindow(#Window_Main)  
EndIf