2- Usual Windows Button effects
3- Use Vector lib. to do what you want to do
Suit yourself it's only a scratch for beginning
Have fun
Code: Select all
Procedure colorBUTTON(gad,w,h,font.s,fsize,text.s,tcolor)
LoadFont(0,font,fsize)
CreateImage(gad,w-6,h-8,32,#PB_Image_Transparent)
StartVectorDrawing(ImageVectorOutput(gad))
MovePathCursor(10,10)
AddPathCircle(10,10,5)
VectorSourceColor(tcolor|$FF000000)
StrokePath(10)
VectorFont(FontID(0), 16)
VectorSourceColor(tcolor|$FF000000)
MovePathCursor(26,1)
DrawVectorText(text)
StopVectorDrawing()
SendMessage_(GadgetID(gad), #BM_SETIMAGE, #IMAGE_BITMAP, ImageID(gad))
EndProcedure
If OpenWindow(0,100,100,400,200,"Button",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ButtonGadget(0, 10,10,100,28," ",#BS_FLAT| #BS_LEFT)
colorBUTTON(0,100,28,"Georgia",12,"RASHAD",$00FF00)
ButtonGadget(1, 10,40,100,28," ",#BS_FLAT| #BS_LEFT)
text.s = GetGadgetText(1)
colorBUTTON(1,100,28,"Tahoma",10,"Purebasic",$0000FF)
Repeat
Select WaitWindowEvent(1)
Case #PB_Event_CloseWindow
Quit = 1
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Debug "Gadget #0"
Case 1
Debug "Gadget #1"
EndSelect
EndSelect
Until Quit = 1
EndIf