FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New class : TGroupEx
Posts: 7335
Joined: Thu Oct 18, 2012 07:17 PM

New class : TGroupEx

Posted: Wed May 20, 2026 05:01 PM

I created a new custom control class called TGroupEx, based on TControl, which implements an expandable/collapsible panel system similar to an accordion container. It was not made by modifying explorerbar or other classes, it is an old project of mine that you will find in this forum but never finished.

Key features:

Custom header design
Support for header images
Expand/collapse button
Transparent background support
Automatic repositioning of related panels
Dynamic display/hide of child controls
Fluid resizing without width alteration

I think this control could be useful as a reusable component for accordion/group containers in FiveWin.

a simple application for an order for how you can use the class

The Tgroupex class works alone or together with others when it is together with others it behaves like the famous html accordion

easy syntax

creating groups

@ 10, 10 GROUPEX oGrp1 OF oDlg SIZE 540, 150 TITLE "Dati alunno" IMAGE ".\bitmaps\pngs\fruit.png" PIXEL
@ 170,10 GROUPEX oGrp2 OF oDlg SIZE 540, 120 TITLE "Permesso" IMAGE ".\bitmaps\pngs\fruit.png" PIXEL
@ 300,10 GROUPEX oGrp3 OF oDlg SIZE 540, 130 TITLE "Motivo" IMAGE ".\bitmaps\pngs\fruit.png" PIXEL

Link group together

 [code]  LINK GROUPS { oGrp1, oGrp2, oGrp3 } [/code]

set style for each group

      SET STYLE OF oGrp1 TO 1 THEME 1
      SET STYLE OF oGrp2 TO 2 THEME 1
      SET STYLE OF oGrp3 TO 2 THEME 1

set last Stretch

   SET LAST  OF oGrp3 STRETCH
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 1060
Joined: Sun Oct 09, 2005 10:41 PM

Re: New class : TGroupEx

Posted: Wed May 20, 2026 08:39 PM

Felicitaciones, excelente aporte.

Posts: 183
Joined: Tue Oct 18, 2005 10:01 AM

Re: New class : TGroupEx

Posted: Thu May 21, 2026 09:09 PM

Nice work 😮

Posts: 657
Joined: Fri Oct 21, 2005 05:54 AM

Re: New class : TGroupEx

Posted: Fri May 22, 2026 11:19 PM

Dear Silvio,

As usually, a Good Work. :D

-Ramesh Babu P

Posts: 657
Joined: Fri Oct 21, 2005 05:54 AM

Re: New class : TGroupEx

Posted: Fri May 22, 2026 11:21 PM

Dear Silvio,

As usually, a Good Work. :D

A small suggestion, If the Bitmaps are painted after the Groupbox paint, they look good.
The Groupbox is painted transparent on Groupbox and groupbox lines are appearing on
the Groupbox.

-Ramesh Babu P

Posts: 7335
Joined: Thu Oct 18, 2012 07:17 PM

Re: New class : TGroupEx

Posted: Mon May 25, 2026 07:26 AM
RAMESHBABU wrote:

Dear Silvio,

As usually, a Good Work. :D

A small suggestion, If the Bitmaps are painted after the Groupbox paint, they look good.
The Groupbox is painted transparent on Groupbox and groupbox lines are appearing on
the Groupbox.

-Ramesh Babu P

I'm trying hard to understand, if you want to explain better please

the title is highlighted when you hover over it with the mouse, it is possible to associate an action to the title (bTitle) for example making a click.wav sound

the class was born only with the button (window style and square and arrow up and down created by the class) then I was recommended a version with the circle and the possibility of inserting custom bmp/png is possible but they must be maximum 24x24 better smaller

I improved the image resolution, the edge must be below or rather the edge should not reach the image as it is interrupted in the space where the title is

zoom

Thanks for the suggestion.

Actually the border is painted first and the header/bitmap is painted afterwards
so the bitmap is already drawn after the groupbox border.

The horizontal line is intentionally kept below the header area, similar to the standard Windows GroupBox style.
Maybe what you noticed is a small DPI/transparent rendering effect.

The bitmap is already painted after the GroupBox border.
The line below the header is intentional and follows the standard GroupBox style.

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7335
Joined: Thu Oct 18, 2012 07:17 PM

Re: New class : TGroupEx

Posted: Mon May 25, 2026 07:48 AM

New features

  • OpenAll
  • CloseAll
  • btitle action

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion