Additional Classes Reference

This page documents important FiveWin classes and features that are not covered in the main class reference pages. Each entry includes a brief description, key DATA and METHODs, and a practical example.

Class Map

TXmlDocument — XML Parsing & Creation

TXmlDocument is provided by Harbour's hbxml contrib library and is used extensively in FiveWin samples (23+ examples). It provides DOM-style XML parsing from files or strings, with iteration via TXmlIterator.

Key DATA

Key METHODs

TXmlNode (child nodes)

Example

#include "FiveWin.ch"

function Main()

   local hFile    := FOpen( "config.xml" )
   local oXmlDoc  := TXmlDocument():New( hFile )
   local oXmlIter := TXmlIterator():New( oXmlDoc:oRoot )
   local oTag

   while ( oTag := oXmlIter:Next() ) != nil
      MsgInfo( oTag:cName + ": " + oTag:cData )
      // Access attributes:
      // HEval( oTag:aAttributes, { |k,v| QOut( k, v ) } )
   end

   FClose( hFile )

return nil

TExplorerBar — Collapsible Panel Container

An Explorer-style sidebar with collapsible task panels. Each panel has a gradient title bar that toggles collapse/expand on click, and a body area where you can place links or any controls. Inherits from TControl.

Source: source/classes/texplbar.prg

Key DATA

Key METHODs

TTaskPanel (individual panels)

Example

#include "FiveWin.ch"

function Main()

   local oWnd, oExBar, oPanel1, oPanel2

   DEFINE WINDOW oWnd TITLE "Explorer Bar Demo" SIZE 300, 500

   oExBar := TExplorerBar():New( 0, 0, 300, 500, oWnd )

   oPanel1 := oExBar:AddPanel( "File Tasks", , 120 )
   oPanel1:AddLink( "Create new folder",  { || MsgInfo( "New Folder" ) } )
   oPanel1:AddLink( "Delete this file",   { || MsgInfo( "Delete" ) } )
   oPanel1:AddLink( "Share this folder",   { || MsgInfo( "Share" ) } )

   oPanel2 := oExBar:AddPanel( "Other Tasks", , 80 )
   oPanel2:AddLink( "Map network drive",  { || MsgInfo( "Map Drive" ) } )
   oPanel2:AddLink( "System properties",  { || MsgInfo( "Properties" ) } )

   ACTIVATE WINDOW oWnd

return nil

TNavigator — Collapsible Navigation Panel

A visually rich collapsible navigation panel with gradient backgrounds, optional bitmap backgrounds, and smooth expand/collapse animation. Similar to Outlook's navigation pane. Inherits from TControl.

Source: source/classes/navpanels.prg

Key DATA

Key METHODs

Example

#include "FiveWin.ch"

function Main()

   local oWnd, oNav

   DEFINE WINDOW oWnd TITLE "Navigator Demo" SIZE 800, 600

   oNav := TNavigator():New( 0, 0, 600, 220, oWnd, ;
            .T.,, RGB( 240, 240, 255 ), 40, "Navigation" )
   oNav:nTopColor    := RGB( 100, 150, 230 )
   oNav:nBottomColor := RGB(  50, 100, 200 )

   ACTIVATE WINDOW oWnd

return nil

TCoverFlow — Apple-Style Image Browser

A visually striking coverflow control inspired by Apple's Cover Flow. Displays images in a 3D perspective carousel with smooth left/right animation. Navigate with keyboard arrows or mouse clicks. Inherits from TControl.

Source: source/classes/tcvrflow.prg

Key DATA

Key METHODs

Example

#include "FiveWin.ch"

function Main()

   local oWnd, oCFlow

   DEFINE WINDOW oWnd TITLE "CoverFlow Demo" SIZE 800, 500

   oCFlow := TCoverFlow():New( 10, 10, 480, 780, oWnd )
   oCFlow:AddCover( "photo1.bmp", "Sunset" )
   oCFlow:AddCover( "photo2.bmp", "Mountains" )
   oCFlow:AddCover( "photo3.bmp", "City Lights" )
   oCFlow:AddCover( "photo4.bmp", "Ocean View" )
   oCFlow:AddCover( "photo5.bmp", "Forest Trail" )
   oCFlow:bAction := { |n| MsgInfo( "Selected cover: " + Str( n ) ) }

   ACTIVATE WINDOW oWnd

return nil

TBarTabs — Tabbed Button Bar

Combines a tab control (TTabs) with multiple button bars (TBar). Selecting a tab switches the visible button bar beneath it, similar to the Office ribbon concept. A lightweight alternative to TRibbon for applications that need categorized toolbar buttons.

Source: source/classes/bartabs.prg

Key DATA

Key METHODs

Example

#include "FiveWin.ch"

function Main()

   local oWnd, oBarTabs

   DEFINE WINDOW oWnd TITLE "BarTabs Demo" SIZE 800, 600

   oBarTabs := TBarTabs():New( oWnd, 64, 32, ;
      { "Home", "Edit", "View" },  ;    // Tab prompts
      { "home.bmp", "edit.bmp", "view.bmp" } )  // Tab bitmaps

   // Add buttons to the first tab's bar:
   DEFINE BUTTON OF oBarTabs:aBars[ 1 ] ;
      RESOURCE "NEW" PROMPT "New" ;
      ACTION MsgInfo( "New!" )

   DEFINE BUTTON OF oBarTabs:aBars[ 1 ] ;
      RESOURCE "OPEN" PROMPT "Open" ;
      ACTION MsgInfo( "Open!" )

   // Add buttons to the second tab's bar:
   DEFINE BUTTON OF oBarTabs:aBars[ 2 ] ;
      RESOURCE "CUT" PROMPT "Cut" ;
      ACTION MsgInfo( "Cut!" )

   ACTIVATE WINDOW oWnd

return nil

TWorkBook / TWorkSheet — Excel XLSX Generation

Create native .xlsx Excel files without requiring Microsoft Office. Built on the xlsxwriter C library (by John McNamara), wrapped for Harbour by Arturo Tamayo. Supports formatting, formulas, images, merged cells, and more.

Source: source/function/fwxlsxlb.prg

TWorkBook — Key DATA/METHODs

TWorkSheet — Key DATA/METHODs

Example

#include "FiveWin.ch"

function Main()

   local oBook, oSheet, oFmtBold

   oBook := TWorkBook():New( "report.xlsx" )
   oSheet := oBook:AddSheet( "Sales" )

   // Create a bold format
   oFmtBold := oBook:Format( , "B" )   // "B" = Bold

   // Write headers
   oSheet:Say( 0, 0, "Product",  oFmtBold )
   oSheet:Say( 0, 1, "Quantity", oFmtBold )
   oSheet:Say( 0, 2, "Price",    oFmtBold )

   // Write data rows
   oSheet:SayRow( 1, { "Widget A", 150, 29.99 } )
   oSheet:SayRow( 2, { "Widget B",  75, 49.99 } )
   oSheet:SayRow( 3, { "Widget C", 200, 14.99 } )

   // Add a SUM formula
   oSheet:SayFormula( 4, 1, "=SUM(B2:B4)" )

   oSheet:SetColumnSize( 0, 0, 20 )   // Widen column A
   oSheet:Freeze( 1, 0 )              // Freeze header row

   oBook:Close()
   MsgInfo( "report.xlsx created!" )

return nil

TWebClient — HTTP Client (Socket-based)

A lightweight HTTP client built on FiveWin's TSocket class. Performs asynchronous HTTP GET requests with callback-based response handling. For more advanced HTTP needs (POST, headers, SSL), consider using FW_CurlHttp() or TWebView2 instead.

Source: source/classes/twebclie.prg

Key DATA

Key METHODs

Example

#include "FiveWin.ch"

function Main()

   local oWnd, oWeb

   DEFINE WINDOW oWnd TITLE "WebClient Demo" SIZE 600, 400

   oWeb := TWebClient():New()
   oWeb:bOnConnect := { |o| o:GetPage( "index.html" ) }
   oWeb:bOnRead    := { |cData| MsgInfo( Left( cData, 500 ), "Response" ) }
   oWeb:Connect( "www.fivetechsoft.com" )

   ACTIVATE WINDOW oWnd

return nil

TWebCam — Webcam Capture Control

Captures video from a connected webcam using the Windows Video for Windows (VFW) API. Can display a live preview, save still images as BMP, and record video. Inherits from TControl.

Source: source/classes/twebcam.prg

Key DATA

Key METHODs

Example

#include "FiveWin.ch"
#include "WebCam.ch"

function Main()

   local oWnd, oCam

   DEFINE WINDOW oWnd TITLE "Webcam Demo" SIZE 680, 540

   oCam := TWebCam():New( oWnd, 10, 10, 640, 480, .T. )

   // Save a snapshot:
   // oCam:SaveFile( "photo.bmp" )

   ACTIVATE WINDOW oWnd ;
      ON INIT oCam:Initialize()

return nil

TDbg — FiveWin Debugger / Object Inspector

A full-featured source-level debugger for FiveWin applications. Provides step-through execution, breakpoints, variable inspection, call stack browsing, watch expressions, and database work area inspection. Written by Carles Aubia.

Source: source/classes/fwdbg.prg

Requirements: Link FWDbg.lib and place FWDbg.dll (or FWDbg64.dll) in your application directory. Add #pragma /b+ to modules you want to debug.

Key DATA

Key METHODs

Example

// To enable debugging, add this pragma at the top of modules to debug:
#pragma /b+

#include "FiveWin.ch"

function Main()

   local cName := "FiveWin"

   // The debugger will activate automatically when the program starts
   // if FWDbg.lib is linked. Use F5=Go, F8=Step, F9=Breakpoint.

   MsgInfo( "Hello " + cName )

return nil

TBlockChain — Blockchain Implementation

A pure Harbour blockchain implementation with SHA-256 hashing, proof-of-work mining, and block validation. Useful for learning blockchain concepts or implementing tamper-proof data chains in your applications. Written by Cristobal Navarro.

Source: source/internal/TBlockChain.prg

Key DATA

Key METHODs

Example

#include "FiveWin.ch"

function Main()

   local oChain := TBlockChain():New( "mychain" )

   // Add blocks with data
   oChain:AddNewBlock( , "First transaction: Alice pays Bob 10" )
   oChain:AddNewBlock( , "Second transaction: Bob pays Carol 5" )

   // Mine a block
   oChain:MineBlock( 2 )

   // Validate
   if oChain:IsValidHash( 2 )
      MsgInfo( "Block 2 is valid! Blocks: " + ;
               Str( oChain:CountBlocks() ) )
   endif

   oChain:End()

return nil

Dark Mode

FiveWin provides built-in dark mode support through the FW_SetDarkMode() function. When enabled, all new dialogs are automatically themed with dark colors in TDialog:Initiate(), and existing open windows are also themed immediately.

Source: source/classes/dialog.prg (line ~1462)

API

Example

#include "FiveWin.ch"

function Main()

   local oWnd, oDlg

   // Enable dark mode for the entire application
   FW_SetDarkMode( .T. )

   DEFINE WINDOW oWnd TITLE "Dark Mode App" SIZE 600, 400

   // All dialogs created after this point are automatically dark
   DEFINE DIALOG oDlg TITLE "Settings" SIZE 400, 300 PIXEL TRUEPIXEL OF oWnd
   @ 30, 20 SAY "This dialog is automatically dark!" OF oDlg SIZE 350, 24 PIXEL
   @ 70, 20 GET oGet VAR cName OF oDlg SIZE 350, 24 PIXEL
   @ 120, 160 BUTTON "OK" OF oDlg SIZE 80, 30 PIXEL ACTION oDlg:End()
   ACTIVATE DIALOG oDlg CENTERED

   ACTIVATE WINDOW oWnd

return nil

// Toggle dark mode at runtime:
// FW_SetDarkMode( ! FW_SetDarkMode() )

GDI+ Graphics Classes

FiveWin wraps the Windows GDI+ API through a set of classes for high-quality 2D graphics: anti-aliased lines, alpha-blended images, gradient fills, path-based drawing, and more. All classes live in source/classes/tgdiplus.prg.

Example

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "GDI+ Drawing" SIZE 600, 400

   ACTIVATE WINDOW oWnd ;
      ON PAINT DrawGdiPlus( oWnd:hDC )

return nil

function DrawGdiPlus( hDC )

   local oGfx    := Graphics():New( hDC )
   local oPen    := Pen():New( 255, 255, 0, 0, 3 )    // Red pen, 3px wide
   local oBrush  := Brush():NewSolidBrush( 128, 0, 0, 255 )  // Semi-transparent blue
   local oPenGrn := Pen():New( 255, 0, 180, 0, 2 )    // Green pen

   // Draw a filled rectangle with border
   oGfx:DrawRect( oPen, oBrush, 50, 50, 200, 150 )

   // Draw an ellipse
   oGfx:DrawEllipse( oPenGrn, , 300, 80, 180, 120 )

   // Draw a line
   oGfx:DrawLine( oPen, 50, 250, 500, 350 )

   // Draw anti-aliased text
   oGfx:DrawText( 20, 50, "GDI+ in FiveWin!", "Segoe UI", 24, ;
                  Brush():NewSolidBrush( 255, 0, 0, 0 ) )

   // Clean up
   oPen:Destroy()
   oPenGrn:Destroy()
   oBrush:Destroy()
   oGfx:Destroy()

return nil

FiveWin Visual IDE

The FiveWin Visual IDE (visual/visualfw.exe) is a visual forms designer that lets you design dialogs by dragging and dropping controls, then generates the corresponding .prg source code. It also supports resource file editing.

Key Features

• Drag-and-drop dialog design with live preview
• Property inspector for all control properties
• Automatic .prg code generation
• Resource file (.rc) import and export
• Support for all FiveWin controls (TGet, TButton, TXBrowse, TFolder, etc.)
• Alignment tools: snap to grid, center, distribute
• Multiple dialog editing in tabs

Getting Started

1. Run visual/visualfw.exe from the FiveWin directory
2. Create a new form or open an existing .prg file
3. Drag controls from the toolbox onto the dialog surface
4. Set properties in the inspector panel on the right
5. Click "Generate Code" to produce the .prg source
6. Build the generated code with your preferred compiler

See the samples/FiveUI/ directory for 17 sample forms created with the visual designer.

Summary Diagram