Management of the tab key (shortcut) within a window (#Tabulator)
- Switches from one gadget to the next via tabulator or skips this gadget (#IgnoreTabulator).
- Temporarily releases the tab key when the gadget gets the focus (#UseTabulator).
- change the color theme of all supported gadgets with one command
- font management with support for dynamic character sets
- BindEvent(ModulEx::#Event_Cursor, @_CursorDrawing(), WindowNum)
- Cursor thread is automatically terminated when the last window is closed.
- PostEvent(#PB_Event_Gadget, WindowNum, GadgetNum, ModulEx::#EventType_Button)
Code: Select all
; ModuleEx::AddGadget() - add a gadget for tabulator handling (#UseTabulator|#IgnoreTabulator)
; ModuleEx::AddWindow() - enables the tabulator handling for this window (#Tabulator|#CursorEvent)
; ModuleEx::CursorFrequency() - changes the cursor frequency (default: 600ms)
; ModuleEx::ExitCursorThread() - exit cursor thread
; ModuleEx::Font() - similar to 'LoadFont()' (supports dynamic fonts)
; ModuleEx::FreeFonts() - free dynamic font data
; ModuleEx::GetGadgetWindow() - returns the number of the window in which the gadget is located
; ModuleEx::LoadTheme() - load a theme for all supportet gadgets
; ModuleEx::RequiredFontSize() - calculates the required font size
; ModuleEx::SetAttribute() - [#Padding/#PaddingX/#PaddingY]
; ModuleEx::SetFont() - similar to 'SetGadgetFont()' (supports dynamic fonts)
; ModuleEx::SaveTheme() - save current theme
; ModuleEx::SetColor() - change the theme color of all supported gadgets
; ModuleEx::SetTheme() - set a theme for all supportet gadgets
Code: Select all
; Cursor event and EventTypes for PostEvent()
CompilerIf Defined(ModuleEx, #PB_Module)
#Event_Cursor = ModuleEx::#Event_Cursor
#EventType_Button = ModuleEx::#EventType_Button
CompilerElse
Enumeration #PB_Event_FirstCustomValue
; .....
EndEnumeration
Enumeration #PB_EventType_FirstCustomValue
; .....
EndEnumeration
CompilerEndIf
; Add Window and gadgets
CompilerIf Defined(ModuleEx, #PB_Module)
If ModuleEx::AddWindow(Window, ModuleEx::#Tabulator|ModuleEx::#CursorEvent)
ModuleEx::AddGadget(Gadget, Window, ModuleEx::#UseTabulator)
EndIf
CompilerElse
; .....
CompilerEndIf