ProGUI Update, Graph Library and Experimental V2

[PrincieD]

It's already better than anything we've seen

[PrincieD]

The DPI issue still remains, the code is there just need a bit of help guys getting it over the line

[PrincieD]

Well it sounds like a plan

[dagcrack]

Great work the Diverted Rendering example flickers and I get (of course) a JS Error other than that everything displays and behaves correctly. One question about the graphs can it handle real time data display and adjustment of the viewport?. Imagine I were to feed it a constant stream of incoming data points will it handle this gracefully and with speed or is it more designed for static display of data?

How would it handle 20.000 data points by the end of a data stream for instance?. Typically one would weed out unnecessary points but keep in mind the data is realtime so not a lot of processing can be done unless you chunk it out and somehow figure out a way to flawlessly insert it.

[X0r]

Hello PrincieD,

is there any plan to fix the DPI issues? The UI glitches are super inconvenient for my end-users.

Here is an example reported by a user of InstallLForge:

[PrincieD]

Hello PrincieD,

is there any plan to fix the DPI issues? The UI glitches are super inconvenient for my end-users.

Here is an example reported by a user of InstallLForge:

Hi mate,

Try this as a temporary fix (I'll try and fix it properly when I get time):

Code: Select all

; Remember to enable XP Skin Support!
; Demonstrates how to use ExplorerBars

CompilerIf Defined(StartProGUI, #PB_Function) = #False
  IncludeFile "ProGUI_PB.pb"
CompilerEndIf

StartProGUI("", 0, 0, 0, 0, 0, 0, 0)


;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #ExplorerBar
EndEnumeration

; set up structure for easy access to icon images
Structure images
  normal.i
  hot.i
  disabled.i
EndStructure
Global Dim image.images(7)

; load in some example icons
image(0)\normal = LoadImg("icons\shell32_1007.ico", 16, 16, 0)
image(1)\normal = LoadImg("icons\shell32_271.ico", 16, 16, 0)
image(2)\normal = LoadImg("icons\shell32_22.ico", 16, 16, 0)
image(3)\normal = LoadImg("icons\shell32_18.ico", 16, 16, 0)
image(4)\normal = LoadImg("icons\shell32_235.ico", 16, 16, 0)
image(5)\normal = LoadImg("icons\shell32_4.ico", 16, 16, 0)
image(6)\normal = LoadImg("icons\shell32_4.ico", 96, 96, 0)

;- process ProGUI Windows event messages here
; events can also be simply captured using WaitWindowEvent() too in the main event loop, but for ease of porting the examples to other languages the callback method is used.
; #PB_Event_Menu and EventMenu() can be used to get the selected menu item when using the WaitWindowEvent() method.
Procedure ProGUI_EventCallback(hwnd, message, wParam, lParam)
  
  Select message
      
    ; handle selection of menu items and buttons
    Case #WM_COMMAND
      
      If HWord(wParam) = 0 ; is an ID
          
        MenuID = LWord(wParam)
      
        Debug MenuID
        
      EndIf
        
    ; resize panelex and textcontrolex when main window resized
    Case #WM_SIZE
      
      MoveWindow_(ExplorerBarID(#ExplorerBar), 5, 5, 210, WindowHeight(#Window_0)-10, #True)
      MoveWindow_(PanelExID(0, -1), 215, 5, WindowWidth(#Window_0)-220, WindowHeight(#Window_0)-10, #True)
      
  EndSelect
  
  ProcedureReturn #PB_ProcessPureBasicEvents
  
EndProcedure

Prototype GetDpiForMonitor(hMonitor, dpiType, *dpiX, *dpiY)
Procedure.d getDPIScale(window)
    
    retval.d = 1
    
    shcore = OpenLibrary(#PB_Any, "shcore.dll")
    If Not shcore
        ProcedureReturn retval
    EndIf
   
    GetDpiForMonitor.GetDpiForMonitor = GetFunction(shcore, "GetDpiForMonitor")
    
    hmonitor = MonitorFromWindow_(WindowID(window), #MONITOR_DEFAULTTONEAREST) 
    If GetDpiForMonitor(hmonitor, 0, @dpi_x, @dpi_y) = #S_OK
        
        retval = dpi_x / 96.0
        
    EndIf
    
    CloseLibrary(shcore)
    
    ProcedureReturn retval
    
EndProcedure

; creates a window
Procedure Open_Window_0()
  
  OpenWindow(#Window_0, 50, 50, 700, 500, "ExplorerBar Example", #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_Invisible)
  
  ; create our ExplorerBar
  CreateExplorerBar(WindowID(#Window_0), #ExplorerBar, 5, 5, 210, 490, 0)
  
  scale.d = getDPIScale(#Window_0)
  Debug scale  
  skin = GetExplorerBarSkin(#ExplorerBar)
  ;value.s = GetSkinProperty(skin, "ExplorerBar", "Normal", "header height") ; 25;
  ;value.s = GetSkinProperty(skin, "ExplorerBar", "Normal", "item height") ; 22;
  ;Debug value
  SetSkinProperty(skin, "ExplorerBar", "Normal", "header height", StrD(25 * scale) + ";")
  SetSkinProperty(skin, "ExplorerBar", "Normal", "item height", StrD(22 * scale) + ";")
  
  AddExplorerBarGroup("System Tasks", 0)
    ExplorerBarImageItem(0, "View system information", image(0)\normal, 0, 0, 0)
    ExplorerBarImageItem(1, "Add or remove programs", image(1)\normal, 0, 0, 0)
    ExplorerBarImageItem(2, "Change a setting", image(2)\normal, 0, 0, 0)
  AddExplorerBarGroup("Other Places", 0)
    ExplorerBarImageItem(3, "My Network Places", image(3)\normal, 0, 0, 0)
    ExplorerBarImageItem(4, "My Documents", image(4)\normal, 0, 0, 0)
    ExplorerBarImageItem(5, "Shared Documents", image(5)\normal, 0, 0, 0)
    ExplorerBarImageItem(6, "Control Panel", image(2)\normal, 0, 0, 0)
  AddExplorerBarGroup("Details", 0)
    ExplorerBarItem(7, "Example Item 1")
    ExplorerBarItem(8, "Example Item 2")
    
  ; create PanelEx as main window content
  CreatePanelEx(0, WindowID(#Window_0), 215, 5, 480, 490, 0)
  AddPanelExImagePage(2, image(6)\normal, 0, 0, 0, 0, #PNLX_CENTRE|#PNLX_VCENTRE)
  
  ; attach our events callback for processing Windows ProGUI messages
  SetWindowCallback(@ProGUI_EventCallback())
  
EndProcedure


Open_Window_0() ; create window
HideWindow(0, 0); show our newly created window

; enter main event loop
Repeat
  
  Event = WaitWindowEvent()
  
Until Event = #PB_Event_CloseWindow

End

[X0r]

Thanks mate. I will give it a try.

Would be really nice to have a proper fix in the ProGUI library. Would be also happy to donate.

[PrincieD]

Thanks mate. I will give it a try.

Would be really nice to have a proper fix in the ProGUI library. Would be also happy to donate.

Thanks Soner! I'd really appreciate that, I'll work on a proper fix this week

Chris.

[X0r]

Thanks a lot! Do you have a donate button or shall I just purchase a new license?

[PrincieD]

Thanks a lot! Do you have a donate button or shall I just purchase a new license?

It's probably easier just purchasing a new license, I'm thinking now I should set up a donate button heh. You're a platinum user anyway mate so you'll have access to ProGUI V3 with source - The thing is initially it will take a while to replicate controls like the ExplorerBar using the new framework (which is all DPI per-monitor automatic)

[PrincieD]

Well we'll see, hopefully the new framework should be pretty easy to work with (now over 50,000 lines of code, the old ProGUI is around 48,000)

[X0r]

Hey Chris,

I will donate anyway since your library has been of great value for me for such a long time.

Please keep up the great work!

[PrincieD]

Hey Chris,

I will donate anyway since your library has been of great value for me for such a long time.

Please keep up the great work!

Thanks Soner! I appreciate that

[PrincieD]

Hey Chris,

I will donate anyway since your library has been of great value for me for such a long time.

Please keep up the great work!

Thanks Soner! I appreciate that

I've created a donate link https://www.paypal.com/donate/?hosted_b ... LYCQT9QJPU

[X0r]

Thanks, mate. Looking forward for the fix.