PureBasic Forums - English

Quiting rules #1 : Only one main loop #2 : WaitWindowEvent() must have some delay time (1 ms for exam.) #3 : The main loop must have #PB_Event_CloseWindow #4 : If you have Repeat-Until,While-Wend ....etc make sure that it's not running into endless loop #5 : If you have WindowEvent() make sure it e...

1- Use Dummy Text gadget to get the proper dimensions
2- Create your Canvas gadget with these dimensions
3- Free the Dummy text gadget

For Windows Global Text$,Brush,Brush_2 Text$ = Space(#MAX_PATH) Brush = CreateSolidBrush_($FADC72) Brush_2 = CreateSolidBrush_($99FEFA) Procedure WndProc(hWnd, uMsg, wParam, lParam) Result = #PB_ProcessPureBasicEvents Select uMsg Case #WM_DRAWITEM *DRAWITEM.DRAWITEMSTRUCT = lParam If *DRAWITEM\CtlTy...

Hi

Hi For Windows Run Accelerators Keys for Windows [ Underscore char ] OpenWindow(0, 0, 0, 222, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ButtonGadget(0, 10, 10, 200, 24, "&First") ButtonGadget(1, 10, 40, 200, 24, "&Second") ButtonGadget(2, 1...

1- There is no way to color the Panel Gadget direct Workaround : you can use Container Gadget covering the panel area first then color the container 2- To get the color for any part of the window and it's objects you need some time after creation If OpenWindow(0, 10, 10, 640, 480, "Main Window&...

Hi I am not familiar with Linux Next demonstrate the mouse over Button 2 You can adapt for your needs ; Shows using of several panels... If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) PanelGadget (0, 8, 8, 306, 203) AddGadgetItem (0, -1, ...

;EnableExplicit Define.i BtnOk,Event,F,ImCre,ImGad,Quit,Win,WinH,WinW dpix.d = DesktopResolutionX() dpiy.d = DesktopResolutionY() F=LoadFont(#PB_Any,"Courier New",32) WinW=800 WinH=300 Win.i=OpenWindow(#PB_Any,0,0,WinW,WinH,"ERROR",#PB_Window_ScreenCentered ) ImCre.i=CreateImage...

1- Enable DPI aware in the compiler Option
2- dpix.d = DesktopResolutionX() ,dpiy.d = DesktopResolutionY()
3- Multiply the image width and the image gadget width by dpix
4- Multiply the image height and the image gadget height by dpiy

Not here Windows 11 Pro x64 PB 6.04 x64
I guess it's DPI problem
Are you using DPI different than the normal ?
Try

Ah
It's working fine with PB 6.04

Hi You can't colorize the Caption Bar(Title Bar) it's hard coded You can only change it to Dark mode (Windows 10 & 11) EnableExplicit Define.i BtnOk,Event,F,ImCre,ImGad,Quit,Win,WinH,WinW F=LoadFont(#PB_Any,"Courier New",32) WinW=800 WinH=300 Win.i=OpenWindow(#PB_Any,0,0,WinW,WinH,&quo...

Both OpenLibrary() and LoadLibrary_() works fine with PB 6.04 x86 Windows 11 x64
Using DIE next is the information about wd1793.dll
- Operation system: Windows(XP)[I386, 32-bit, DLL]
- Packer: ASPack(2.12-2.42)[-]
- Compiler: Borland Delphi(-)[-]
- Linker: Turbo Linker(2.25*,Delphi)[DLL32]

Hi idle
Perfect except you need to check if the string include only the hex alphabets or raise an error message
Thanks for posting

Try :

BTW
I just discovered that the problem is with PB 6.04 not with Windows
Tested fine with PB 5.72