PureBasic Forums - English

The border you get is the border of the track shaft of the progressbar
The only way to get rid of it is to use ContainerGadget or FraneGadget(Not sure about the frame)

Hi MV
Adapt any suitable one for your needs

#1 :

ProgressBarGadget(0,-1,-1,ScaleUp(200),ScaleUp(16),0,100)
SetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE,GetWindowLongPtr_(GadgetID(0), #GWL_EXSTYLE)&~#WS_EX_CLIENTEDGE)


#2:

ContainerGadget(10,ScaleUp(20),4,ScaleUp(200),ScaleUp(16), #PB ...

Try

Set any color you like for BackGround
Need to change the color for the grasp area as well
Have fun

#SB_SETBKCOLOR = $2001

If OpenWindow(0, 100, 150, 300, 100, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)

If CreateStatusBar(0, WindowID(0))
AddStatusBarField ...

In my opinion 50 line of code is enough

LoadFont(0,"Georgia",16,#PB_Font_Bold | #PB_Font_Italic )
Global cont

Procedure statusCB()
ResizeGadget(cont,1,1,WindowWidth(0),32)
EndProcedure

If OpenWindow(0, 0, 0, 800, 600, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window ...

Search the forum for Sync 2 Listicon
Adapt it for your needs so you can use Mouse Wheel ,Key down,Key up and thump as well
But you have to use SetWindowCallBack()

No Window callback :D

Procedure sizemove()
ResizeGadget(0,10,10,WindowWidth(0)-20,WindowHeight(0)-60)
ResizeGadget(2,10,WindowHeight(0)-40,#PB_Ignore,#PB_Ignore)
ResizeWindow(10,GadgetX(0,#PB_Gadget_ScreenCoordinate),GadgetY(0,#PB_Gadget_ScreenCoordinate),GadgetWidth(0)-20,GadgetHeight(0 ...

Hi

Procedure winCB(hWnd,uMsg,wParam,lParam)
Result = #PB_ProcessPureBasicEvents
Select uMsg
Case #WM_SIZE,#WM_MOVE
ResizeGadget(0,10,10,WindowWidth(0)-20,WindowHeight(0)-60)
ResizeGadget(2,10,WindowHeight(0)-40,#PB_Ignore,#PB_Ignore)
ResizeWindow(10,GadgetX(0,#PB_Gadget_ScreenCoordinate ...

Hi
Workaround

If OpenWindow(0, 0, 0, 800, 600, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
lic1 = ListIconGadget(#PB_Any, 10, 10, 780, 540, "Name", 150, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
lic2 = ListIconGadget(#PB_Any, 0, 0, 0, 0, "Name ...

Hi

The backcolor used when the image is created.
If the image is 24-bit, use RGB() to get a valid color.
If the image is 32-bit, use RGBA() to get a valid color. For 32-bit image, special constants can be used as well:
- #PB_Image_Transparent which is similar to RGBA(255,255,255,0), white ...

If OpenWindow(1, 100, 200, 195, 260, "1", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)
OpenWindow(2, 200, 200, 195, 260, "2", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, WindowID(1))
OpenWindow(3, 300, 200, 195, 260, "3", #PB ...

Hi Lord

EnableExplicit

Define sbh
Define Event

Procedure WinCallback(hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_CONTEXTMENU
AddGadgetItem(1, -1, "RMB")
If wParam = StatusBarID(1)
AddGadgetItem(1, -1, "Statusbar")
EndIf
EndSelect
ProcedureReturn #PB_ProcessPureBasicEvents ...

Hi
You can use SetWindowCallback(@WndProc() [, #Window [, Mode]])

Procedure WndProc(hwnd, uMsg, wParam, lParam)
result = #PB_ProcessPureBasicEvents
Select uMsg
Case #WM_SYSCOMMAND
Select wParam
Case #SC_SCREENSAVE ;$F140
ProcedureReturn 0

Case #SC_MONITORPOWER ;$F170
ProcedureReturn 0 ...