More Controls

Additional FiveWin UI controls for labels, progress, layout, timers, and more

TSay -- Static Text

Fuente: source/classes/say.prg  |  Parent: TControl

TSay displays a static text label. It supports centered, right-aligned, bordered, 3D shaded, and transparent styles. The text can be data-bound via a code block and refreshed automatically.

Command Syntax

@ nRow, nCol SAY [ oSay PROMPT ] cText ;
   [ OF oWnd ] ;
   [ PICTURE cPicture ] ;
   [ FONT oFont ] ;
   [ CENTERED | RIGHT ] ;
   [ BORDER ] ;
   [ SIZE nWidth, nHeight ] ;
   [ COLOR nClrText, nClrBack ] ;
   [ SHADED | BOX | RAISED ] ;
   [ TRANSPARENT ] ;
   [ ADJUST ]

Example

@ 1, 1 SAY oSay PROMPT "Total:" OF oDlg ;
   FONT oBold COLOR CLR_BLUE, CLR_WHITE

@ 1, 10 SAY oTotal PROMPT nTotal OF oDlg ;
   PICTURE "999,999.99" UPDATE

TMeter / TMeterEx -- Progress Meter

Fuente: source/classes/meter.prg  |  Parent: TControl

TMeter displays a progress bar with optional percentage text. It supports standard linear bars, circular meters, and bitmap-array styles. The TMeterEx variant adds enhanced visual effects with custom bitmaps.

Key Methods

Command Syntax

@ nRow, nCol METER [ oMeter VAR ] nActual ;
   TOTAL nTotal ;
   [ OF oWnd ] ;
   [ SIZE nWidth, nHeight ] ;
   [ FONT oFont ] ;
   [ PROMPT cText ] ;
   [ NOPERCENTAGE ] ;
   [ COLOR nClrPane, nClrText ] ;
   [ BARCOLOR nClrBar, nClrBText ] ;
   [ PIXEL ] ;
   [ UPDATE ] ;
   [ CIRCULAR [ INNERDIA nInnerDia ] ] ;
   [ FILLCOLOR nClrFill ] ;
   [ BORDERCOLOR nClrBorder ]

Example

LOCAL oMeter, nProgress := 0

@ 5, 2 METER oMeter VAR nProgress TOTAL 100 OF oDlg ;
   SIZE 200, 20 PIXEL BARCOLOR CLR_GREEN, CLR_WHITE

// Update during processing
FOR n := 1 TO 100
   nProgress := n
   oMeter:Refresh()
   SysRefresh()
NEXT

TProgress -- Progress Bar

Fuente: source/classes/progress.prg  |  Parent: TControl

TProgress wraps the Windows common control progress bar (msctls_progress32). It provides a native-looking progress indicator with optional stepped updates.

Command Syntax

@ nRow, nCol PROGRESS oPrg ;
   [ OF oWnd ] ;
   [ POS nPos ] ;
   [ SIZE nWidth, nHeight ] ;
   [ PIXEL ]

REDEFINE PROGRESS oPrg ID nId OF oWnd

Example

@ 3, 1 PROGRESS oPrg OF oDlg POS 0 SIZE 200, 18 PIXEL

// Step through progress
oPrg:SetRange( 0, 100 )
oPrg:SetStep( 1 )
FOR n := 1 TO 100
   oPrg:StepIt()
   SysRefresh()
NEXT

TSlider / TTrackBar -- Slider Control

Fuente: source/classes/slider.prg  |  Parent: TControl

TSlider is an owner-drawn trackbar for selecting a numeric value within a range by dragging a thumb. It supports horizontal/vertical orientation, tick marks, and a slim visual style.

Key Methods

Example

LOCAL nVolume := 50

@ 3, 2 SLIDER oSlider VAR nVolume ;
   HORIZONTAL OF oDlg ;
   RANGE 0, 100 MARKS 10 ;
   SIZE 200, 30 PIXEL ;
   ON CHANGE UpdateVolume( nVolume )

TScrollBar -- Scroll Bar

Fuente: source/classes/scrllbar.prg  |  Parent: TControl

TScrollBar creates either a standalone scrollbar control or binds to a window's built-in scrollbar (via WinNew()). It supports vertical and horizontal orientations with page stepping, thumb tracking, and navigation callbacks.

Key Methods

Command Syntax

// Standalone scrollbar control
@ nRow, nCol SCROLLBAR [ oSbr ] ;
   [ RANGE nMin, nMax ] ;
   [ PAGESTEP nPgStep ] ;
   [ VERTICAL | HORIZONTAL ] ;
   [ OF oWnd ] ;
   [ SIZE nWidth, nHeight ] ;
   [ UP ACTION bUp ] [ DOWN ACTION bDown ] ;
   [ PAGEUP bPgUp ] [ PAGEDOWN bPgDown ] ;
   [ ON THUMBPOS bPos ] ;
   [ PIXEL ]

// Window-attached scrollbar
DEFINE SCROLLBAR [ oSbr ] ;
   [ VERTICAL | HORIZONTAL ] ;
   OF oWnd ;
   [ RANGE nMin, nMax ] ;
   [ PAGESTEP nPgStep ] ;
   [ UP ACTION bUp ] [ DOWN ACTION bDown ] ;
   [ PAGEUP bPgUp ] [ PAGEDOWN bPgDown ] ;
   [ ON THUMBPOS bPos ]

Example

DEFINE SCROLLBAR oScroll VERTICAL OF oWnd ;
   RANGE 1, 100 PAGESTEP 10 ;
   UP ACTION GoUp() ;
   DOWN ACTION GoDown() ;
   ON THUMBPOS { |nPos| GoToPos( nPos ) }

TSplitter -- Draggable Splitter

Fuente: source/classes/splitter.prg  |  Parent: TControl

TSplitter provides a draggable divider between two groups of controls. When the user drags the splitter, it resizes the controls on either side. Supports vertical and horizontal orientations, margin constraints, and gradient painting.

Key Methods

Command Syntax

@ nRow, nCol SPLITTER [ oSplit ] ;
   [ VERTICAL | HORIZONTAL ] ;
   PREVIOUS CONTROLS oPrev1, oPrev2 [ NO ADJUST ] ;
   HINDS CONTROLS oHind1, oHind2 [ NO ADJUST ] ;
   [ TOP MARGIN nMargin1 ] ;
   [ BOTTOM MARGIN nMargin2 ] ;
   [ SIZE nWidth, nHeight ] ;
   [ OF oWnd ] ;
   [ ON CHANGE bChange ] ;
   [ 3D ] ;
   [ STYLE ] ;
   [ PIXEL ]

Example

// Left panel and right panel with vertical splitter
@ 0, 0 PANEL oPnlLeft OF oWnd SIZE 200, 400

@ 0, 204 PANEL oPnlRight OF oWnd SIZE 400, 400

@ 0, 200 SPLITTER oSplit VERTICAL ;
   PREVIOUS CONTROLS oPnlLeft ;
   HINDS CONTROLS oPnlRight ;
   SIZE 4, 400 PIXEL OF oWnd ;
   LEFT MARGIN 100 RIGHT MARGIN 100 ;
   STYLE

TPanel -- Container Panel

Fuente: source/classes/tpanel.prg  |  Parent: TControl

TPanel is a lightweight container control primarily used for layout alignment. Child controls placed on a panel move and resize with it, making it the foundation for split-panel layouts and dockable regions.

Key Methods

Example

// Panel aligned to fill the client area
@ 0, 0 PANEL oPanel OF oWnd SIZE 400, 300 BORDER

// Place controls inside the panel
@ 2, 2 SAY "Name:" OF oPanel
@ 2, 8 GET oGet VAR cName OF oPanel SIZE 150, 22 PIXEL

TScrollPanel -- Scrollable Panel

Fuente: source/classes/tscrlpnl.prg  |  Parent: TPanel

TScrollPanel extends TPanel with built-in scrollbar support. It is useful when the content area exceeds the visible area -- the panel automatically shows scrollbars and allows the user to scroll through all child controls.

Example

// A scrollable form with many fields
oScrlPanel := TScrollPanel():New( 0, 0, 300, 400, oDlg )
oScrlPanel:SetVirtualSize( 300, 800 )  // virtual height > visible height

// Place many controls inside
FOR n := 1 TO 20
   @ n * 22, 10 SAY "Field " + Str(n) OF oScrlPanel PIXEL
NEXT

TReBar -- Rebar / CoolBar

Fuente: source/classes/rebar.prg  |  Parent: TControl

TReBar wraps the Windows ReBarWindow32 common control. It creates a container for dockable toolbar bands that the user can rearrange by dragging. Each band can hold a toolbar, combobox, or any other control.

Command Syntax

DEFINE REBAR oReBar OF oWnd

Example

DEFINE REBAR oReBar OF oWnd

DEFINE BUTTONBAR oBar1 OF oReBar SIZE 32, 32
DEFINE BUTTON OF oBar1 RESOURCE "NEW"  TOOLTIP "New"  ACTION NewDoc()
DEFINE BUTTON OF oBar1 RESOURCE "OPEN" TOOLTIP "Open" ACTION OpenDoc()

oReBar:InsertBand( oBar1, "File" )

TPager -- Pager Control

Fuente: source/classes/tpager.prg  |  Parent: TControl

TPager wraps the Windows Pager common control. It creates a scrollable container for a child control (typically a toolbar) that is too wide to display in the available space. Arrow buttons appear at the edges to scroll the content.

Example

oPager := TPager():New( oWnd )
// Add a wide toolbar as the contained control
oPager:SetChild( oToolBar )

TTimer -- Timer

Fuente: source/classes/timer.prg  |  Parent: none (standalone)

TTimer provides periodic callback execution using Windows timers. It is not a visual control -- it runs in the background and fires its bAction block at regular intervals.

Key Methods

Command Syntax

DEFINE TIMER [ oTimer ] ;
   INTERVAL nMilliseconds ;
   ACTION uAction ;
   [ OF oWnd ]

ACTIVATE TIMER oTimer

Example

LOCAL oTimer

DEFINE TIMER oTimer ;
   INTERVAL 1000 ;
   ACTION UpdateClock( oSayClock ) ;
   OF oWnd

ACTIVATE TIMER oTimer

// Later, to stop:
oTimer:DeActivate()

// To destroy:
oTimer:End()

TTrayIcon -- System Tray Icon

Fuente: source/classes/ttray.prg  |  Parent: none (standalone)

TTrayIcon places an icon in the Windows system notification area (system tray). It handles left-click, right-click, double-click, and mouse-move events, making it ideal for background applications and minimize-to-tray functionality.

Key Methods

Example

LOCAL oTray

oTray := TTrayIcon():New( oWnd, oIcon, "My Application",;
   { || oWnd:Show(), oWnd:SetFocus() },;   // Left click: restore
   { || ShowTrayMenu( oTray ) },;            // Right click: popup menu
   ,;                                         // Mouse move
   { || oWnd:Show(), oWnd:SetFocus() } )     // Double click: restore

// Minimize to tray
oWnd:bMinimize := { || oWnd:Hide(), .F. }

// Cleanup
oWnd:bEnd := { || oTray:End() }

TToast -- Toast Notifications

Fuente: source/classes/ttoast.prg  |  Parent: TWindow

TToast creates popup notification windows (similar to Windows 10/11 toast notifications) that appear briefly and auto-dismiss. They support a header, body, footer, icons, custom fonts, rounded corners, and optional alert sounds.

Key Methods

Example

LOCAL oToast

oToast := TToast():New( , , 320, 120, oWnd, , ;
   CLR_WHITE, RGB( 240, 240, 240 ), CLR_BLACK, ;
   10, 10, 220, .T., .T., 5000 )
oToast:cHeader := "Notification"
oToast:cBody   := "Record saved successfully!"
oToast:cBmpLeft := "bitmaps/check.bmp"
oToast:ActivaAlert()

TRating, TTagCloud, TUrlLink, TSysLink

TRating -- Star Rating

Fuente: source/classes/trating.prg  |  Parent: TControl

Displays a clickable star-rating widget (typically 1-5 stars). The user clicks to set a rating value.

oRating := TRating():New( nRow, nCol, oWnd, nStars, bChange )

TTagCloud -- Tag Cloud

Fuente: source/classes/ttagclou.prg  |  Parent: TControl

Displays a set of clickable text tags with varying font sizes based on weight/frequency. Click a tag to fire its action.

TUrlLink -- URL Hyperlink

Fuente: source/classes/urllink.prg  |  Parent: TControl

A clickable hyperlink label that opens the system browser when clicked. Changes cursor to a hand and underlines on hover.

@ 5, 2 URLLINK oLink PROMPT "Visit FiveTech" ;
   URL "https://www.fivetechsoft.com" OF oDlg

TSysLink -- System Link

Fuente: source/classes/tsyslink.prg  |  Parent: TControl

Wraps the Windows SysLink common control. Supports multiple hyperlinks embedded within text using HTML-like <a href="..."> syntax.

TUpDown, THotKey, TAnimate, TIPAddress

TUpDown -- Spinner Control

Fuente: source/classes/updown.prg  |  Parent: TControl

An up/down spinner paired with a TGet for incrementing and decrementing a numeric value within a range.

@ 2, 10 GET oGet VAR nValue OF oDlg SIZE 60, 22 PIXEL SPINNER MIN 0 MAX 100

THotKey -- Hotkey Input

Fuente: source/classes/hotkey.prg  |  Parent: TControl

Wraps the Windows HotKey common control. Allows the user to press a key combination which is captured and stored for later use as an application shortcut.

TAnimate -- Animation Control

Fuente: source/classes/animate.prg  |  Parent: TControl

Wraps the Windows Animate common control for playing AVI clips (no sound). Useful for displaying progress animations.

@ 1, 1 ANIMATE oAnim OF oDlg FILE "progress.avi" SIZE 100, 80 PIXEL
oAnim:Play()

TIPAddress -- IP Address Input

Fuente: source/classes/ipaddr.prg  |  Parent: TControl

Wraps the Windows IP Address common control. Provides a four-field input for entering IPv4 addresses with automatic field validation and tab navigation between octets.

TActiveX -- ActiveX Container

Fuente: source/classes/activex.prg  |  Parent: TControl

TActiveX hosts ActiveX/COM controls inside a FiveWin window. It can embed Internet Explorer, media players, PDF viewers, and any registered ActiveX component.

oActiveX := TActiveX():New( oWnd, "Shell.Explorer.2" )
oActiveX:Do( "Navigate2", "https://www.google.com" )

TDatePicker / TTimePicker

Fuente: source/classes/dtpick.prg  |  Parent: TControl

TDatePicker wraps the Windows Date-Time Picker common control, providing a dropdown calendar for date selection. TTimePicker uses the same control with time-selection mode.

@ 3, 2 DTPICKER oDate VAR dDate OF oDlg SIZE 120, 22 PIXEL

// Time picker
@ 3, 16 TIMEPICKER oTime VAR cTime OF oDlg SIZE 100, 22 PIXEL

TGroupEx -- Accordion Group

Fuente: source/classes/tgroupex.prg  |  Header: include/tgroupex.ch  |  Parent: TControl  |  Author: Silvio Falconi

TGroupEx is a collapsible group container with a self-painted rounded header that holds a title, an optional icon and an expand/collapse button. Several TGroupEx instances can be linked together with LINK GROUPS so they behave as a vertical accordion: opening one panel re-stacks the others underneath it, and the last panel can optionally stretch to fill the remaining height.

Command Syntax

@ nRow, nCol GROUPEX oGrp ;
   [ OF oWnd ] ;
   SIZE nWidth, nHeight ;
   TITLE cTitle ;
   [ IMAGE cBmp ] ;
   [ OPENBTN cBmp1 CLOSEBTN cBmp2 ] ;
   [ BORDER ] [ COLORBORDER nClr ] ;
   [ BACKCOLOR nClr ] ;
   [ DESIGN ] [ PIXEL ]

REDEFINE GROUPEX oGrp ID nId [ OF oDlg ] TITLE cTitle [ IMAGE cBmp ] ...

SET STYLE OF oGrp TO nStyle THEME nTheme   // nTheme: 1 Win, 2 Orange, 3 Dark
SET LAST OF oGrp STRETCH                   // last panel fills remaining height
LINK GROUPS { oGrp1, oGrp2, oGrp3 }        // accordion behaviour
OPEN  ALL GROUPS OF oGrp
CLOSE ALL GROUPS OF oGrp

Accordion sample

#include "FiveWin.ch"
#include "tgroupex.ch"

FUNCTION Main()
   LOCAL oDlg, oGrp1, oGrp2, oGrp3, oFont

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0, -12

   DEFINE DIALOG oDlg SIZE 580, 550 PIXEL FONT oFont ;
      TITLE "Northwind Style Groups" COLOR CLR_BLACK, CLR_WHITE

   @  10, 10 GROUPEX oGrp1 OF oDlg SIZE 540, 240 TITLE "Categories" PIXEL
   @ 260, 10 GROUPEX oGrp2 OF oDlg SIZE 540, 180 TITLE "Products"   PIXEL
   @ 450, 10 GROUPEX oGrp3 OF oDlg SIZE 540, 130 TITLE "Orders"     PIXEL

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT LINK GROUPS { oGrp1, oGrp2, oGrp3 }

   RELEASE FONT oFont

RETURN NIL

Controls placed OF oGrp are children of the panel. To make them disappear when the panel collapses, register each one with oGrp:AddCtrl( oCtrl ) (or copy oGrp:aControls into oGrp:aCtrls). The full sample lives at samples/test/ui/testgrpex.prg.

Ver También

• TControl -- parent class for most controls
• TButton / TBtnBmp -- buttons and toolbars
• TGet / TMGet -- text input controls
• TListView -- list view with icons and columns
• TTreeView -- hierarchical tree control