[Module] StatusBarEx (all OS)

[Thorsten1867]

StatusBarEx - Module (all OS / 64Bit / DPI)

• Color & font changeable (also for individual fields)
• Integration of ProgressBar / ComboBox / TextButton / ImageButton / HyperLink
• Linking individual fields with pop-up menus

Download: StatusBarExModule.pbi

[Cyllceaux]

Again really good work

And the bad guy (me) with another DPI

[Thorsten1867]

2nd try (DPI is still driving me crazy)

Bugfixes: DPI

[Cyllceaux]

Looks good, but after resizing the window, the Combobox shrink to 5px

[Thorsten1867]

Bugfixes

[Cyllceaux]

still resizing bug

[Thorsten1867]

Bugfixes

[Cyllceaux]

Perfect

[Thorsten1867]

Added: Tooltips

[Lord]

Hallo Thorsten!

Added: Tooltips

Danke auch dafür!

Was mir noch aufgefallen ist:

-->

Der Anfasser zur Größenänderung des Fensters wird nicht angezeigt.
Läßt sich das auch noch beheben?

[Thorsten1867]

Der Anfasser zur Größenänderung des Fensters wird nicht angezeigt.
Läßt sich das auch noch beheben?

A little painting and it's fixed.

[Thorsten1867]

Updates:

• Bugfixes: correct position for window with menu
• Added: SetHeight()

[Lord]

Der Anfasser zur Größenänderung des Fensters wird nicht angezeigt.
Läßt sich das auch noch beheben?

A little painting and it's fixed.

Don't think so, because the grabbing area for resizing the window is larger than just the border as right now.

[nicoh]

Hi,

in my program I needed two more features: clearing the items of a ComboBox and disabling a field.

Code: Select all

  Declare   ClearItems(GNum.i, Field.i)
  Declare   DisableField(GNum.i, Field.i, State.i)

Code: Select all

  Procedure ClearItems(GNum.i, Field.i)
  
    If FindMapElement(StBEx(), Str(GNum))
      
      If SelectElement(StBEx()\Fields(), Field)
        
        If IsGadget(StBEx()\Fields()\GadgetNum)
          ClearGadgetItems(StBEx()\Fields()\GadgetNum)
        EndIf
        
      EndIf

    EndIf 
    
  EndProcedure

Code: Select all

  Procedure DisableField(GNum.i, Field.i, State.i)
  
    If FindMapElement(StBEx(), Str(GNum))
      
      If SelectElement(StBEx()\Fields(), Field)
        
        If IsGadget(StBEx()\Fields()\GadgetNum)
          DisableGadget(StBEx()\Fields()\GadgetNum, State)
        EndIf
        
      EndIf

    EndIf 
    
  EndProcedure

Would be nice if you could add them.

[Thorsten1867]

Added