PureBasic Forums - English

PB ParentID is like Windows API #GWL_HWNDPARENT
It only keeps the child window over the parent window not as exact child
You can try restrict the child window moving
Next is just to show what I mean


;EnableExplicit
Define wndFlags
Define x,y,w,h

Enumeration Windows
#wnd_Main
#wnd_Child1 ...

Removed
Missed the target

That is very strange
I do have 4K LG Monitor 3840x2160 Scale 150%
PB 6.21 x64 Windows 11 x64
Did all the variation without any problem
Any how next is a Workaround

LoadFont(0,"Georgia",14,#PB_Font_Bold)
If OpenWindow(0, 0, 0, 600, 400, "PanelGadget", #PB_Window_SystemMenu | #PB_Window ...

You are welcome
With RED color also


Global oldCallback

LoadFont(0,"Georgia",12,#PB_Font_Bold )
LoadFont(1,"Tahoma",10)

Procedure panelCB(hWnd, uMsg, wParam, lParam)
result = CallWindowProc_(oldCallback, hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_DRAWITEM
*Pan.DRAWITEMSTRUCT = lParam ...

Quick hack


Global oldCallback

LoadFont(0,"Georgia",12,#PB_Font_Bold )
LoadFont(1,"Tahoma",10)

Procedure panelCB(hWnd, uMsg, wParam, lParam)
result = CallWindowProc_(oldCallback, hWnd, uMsg, wParam, lParam)
Select uMsg
Case #WM_DRAWITEM
*Pan.DRAWITEMSTRUCT = lParam
If *Pan\CtlType = #ODT ...

Hi
Try

#CP_UTF8 = 65001
String$ = "Hélé"

nBytes = WideCharToMultiByte_(#CP_UTF8, 0, @String$, -1, 0, 0, 0, 0)
Dim Buffer(nBytes - 2)
nBytes = WideCharToMultiByte_(#CP_UTF8, 0, @String$, -1, @Buffer(0), nBytes - 1, 0, 0)
Debug PeekS(@buffer())


*Buffer = UTF8(String$)
Debug PeekS(*Buffer, -1)

Hi
Try using

OpenWindow(0, 200, 50, 640, 400,"RTF Load,Save & Print", #PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_SizeGadget)
CreatePopupImageMenu(0,#PB_Menu_ModernLook)
MenuItem(0, "&Open")
OpenSubMenu("&Save As..")
MenuItem( 1, "RTF File")
MenuItem( 2, "Plain Text")
CloseSubMenu()
MenuBar ...

RTF Editor Gadget
Drop down menu support
MS Windows short cut commands support

OpenWindow(0, 200, 50, 640, 400,"RTF Load,Save & Print", #PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_SizeGadget)
CreatePopupImageMenu(0,#PB_Menu_ModernLook)
MenuItem(0, "&Open")
OpenSubMenu("&Save As ...

Hi Randy
Your checkbox id is 2 not 1
And better use

Hi
Try

Hi
Quick hack not tested :D

OpenWindow(0, 0, 0, 800,600, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListViewGadget(0, 10, 10, 780, 500, #LBS_SORT | #LBS_NOINTEGRALHEIGHT | #LBS_HASSTRINGS)
StringGadget(1, 10, 515, 400, 24, "")
ButtonGadget(2, 10, 542, 160, 24, "Add Item")
ButtonGadget ...

Hi Randy
I have a feeling about your use of #WM_SIZE
Next is my last shoot
Use one of them in your window callback
I wish you luck

Case #WM_SYSCOMMAND
Select wParam
Case #SC_MAXIMIZE
Debug WindowX(?)
Debug WindowWidth(?)

Case #SC_RESTORE
ShowWindow_(WindowID(?),#SW_HIDE)
ResizeWindow(?,0 ...

Hi
Try the next maybe

UsePNGImageDecoder()

If OpenWindow(0, 0, 0, 150, 150, "ToolBar", #PB_Window_SystemMenu | #PB_Window_ScreenCentered|#PB_Window_SizeGadget)
If CreateToolBar(0, WindowID(0),#PB_ToolBar_Large )
Path$ = #PB_Compiler_Home + "Examples" + #PS$ + "Sources" + #PS$ + "Data" + #PS ...

If you are using SetWindowCallback(@ProcedureName() [, #Window [, Mode]])
Add the next

Case #WM_SYSCOMMAND
Select wParam
Case #SC_RESTORE
PostMessage_(WindowID(?), #WM_LBUTTONDOWN, 0, 0)
PostMessage_(WindowID(?), #WM_LBUTTONUP, 0, 0)
EndSelect


If your gadgets inside a Canvas Container ...