SetGadgetColor(#Infobar, #PB_Gadget_FrontColor, RGB(248, 248, 248)) TEXT Color SetGadgetColor(#Infobar, #PB_Gadget_BackColor, RGB(214, 137, 137)) TEXT Background Color SetGadgetFont(#Infobar, LoadFont(#Infobar_Font, "Microsoft Sans Serif", 10, #PB_Font_HighQuality)) TextGadget(#Infobar,WindowWidth(0)-599, 1, 567, 30, " Close Window via Popup with Timer",#SS_CENTERIMAGE) OldGadgetList = UseGadgetList(WindowID(0))
OpenWindow(0,(GetSystemMetrics_(#SM_CXSCREEN)-1)/1,(GetSystemMetrics_(#SM_CYSCREEN)-1)/1, 600, 400, "",#PB_Window_BorderLess|#PB_Window_ScreenCentered|#WS_VISIBLE|#PB_Window_Invisible) #AW_CENTER = $10 Makes the window appear To collapse inward If AW_HIDE is used Or expand outward If the AW_HIDE is not used. ResizeWindow(id,#PB_Ignore,#PB_Ignore, w,h)ĭefine event.i,DmausX.i,DmausY.i,BackupMausX.i,BackupMausY.i,Drag.i,Resize.i If Mx>x And Mxy And Mymx And hmy And wmx And h>my
SetGadgetColor(#InfoText, #PB_Gadget_FrontColor, RGB(218, 93, 93)) TEXT COLORĮndtimer=AddDate(Date(),#PB_Date_Second,3.0) choose seconds SetGadgetColor(#InfoText, #PB_Gadget_BackColor, RGB(28, 28, 28)) Background COLOR SetGadgetFont(#InfoText, LoadFont(#InfoText_Font, "Microsoft Sans Serif", 16, #PB_Font_HighQuality)) TextGadget(#InfoText, 1, 1, 378, 98,"program is closing in 3 seconds",#SS_CENTERIMAGE|#SS_CENTER) x y lenght height If OpenWindow(1, 732, 301, 380, 100, "", #PB_Window_WindowCentered|#PB_Window_BorderLess| #PB_Window_Invisible)
#Purebasic gadgets code#
This code contains quite some ideas that are interesting for Beginners on Pure-Basic.
0 kommentar(er)
