FiveTech Software tech support forums

Posted: **Fri Sep 22, 2023 9:19 am**

Dear All,

I need to change TFOLDEREX UI as FLAT style. How can I do it?

Thanks in advance,

Posted: **Fri Sep 22, 2023 1:46 pm**

Dear Dutch,

Please provide a screenshot with the folderex look that you wish

Posted: **Sat Sep 23, 2023 4:32 am**

Dear Antonio,

I use FOLDER for many years but the disable folder tab and enable is the same. I test TFOLDEREX is show different (that I need).
I just need TFOLDER that show disable tab as disable object as TFOLDEREX.

Antonio Linares wrote:Dear Dutch,

Please provide a screenshot with the folderex look that you wish

Posted: **Sun Sep 24, 2023 8:02 pm**

Dear Dutch,

We need to modify METHOD PaintTB() so tabs are painted in different styles. Looking for a way to do it

Posted: **Sun Sep 24, 2023 9:24 pm**

hi Dutch

have you try to disable "visual Style" for TFOLDEREX :?:

Posted: **Mon Sep 25, 2023 5:34 am**

Dear Jimmy,

How to do it ? thank you

Posted: **Mon Sep 25, 2023 12:55 pm**

hi,

Code: Select all Expand view: oTab := TFolderEx() :New( .. ) // disable visual Style SetWindowTheme( oTab:hWnd, "", "" )

Posted: **Mon Sep 25, 2023 10:13 pm**

Creo que tambien te puede funcionar

Code: Select all Expand view: @ 0, 0 FOLDEREX oFld1 PIXEL PROMPTS "Pendientes", "Despachados" OF oP SIZE oP:nWidth, oP:nHeight TAB HEIGHT 40 ON CHANGE EVAL(cbRecibe) NOBORDER WITH OBJECT oFld1 :aGradSel := { { 1, CLR_WHITE, CLR_WHITE } } :aGradUnSel := { { 1, CLR_WHITE, CLR_WHITE } } :aGradOver := { { 1, Rgb( 237, 237, 237 ), Rgb( 237, 237, 237 ) } } // :aGradOverUnSel := :aGradOver END

Posted: **Tue Sep 26, 2023 1:33 am**

Dear Antonio,

Can I DISABLE TAB (disable color) for TFOLDER?

Antonio Linares wrote:Dear Dutch,

We need to modify METHOD PaintTB() so tabs are painted in different styles. Looking for a way to do it

Posted: **Tue Sep 26, 2023 6:14 am**

Dear Dutch,

Please try Leandro's solution as it seems a very good one:

viewtopic.php?p=263934&sid=1638a370ada5b0acba8110c25770d52a#p263934

Posted: **Tue Sep 26, 2023 6:49 am**

hi Dutch,

dutch wrote:Can I DISABLE TAB (disable color) for TFOLDER?

in CLASS TFolderEx() there is

Code: Select all Expand view: METHOD DisableTab( nOption ) CLASS TFolderEx DEFAULT nOption := ::nOption IF ::aEnable[ nOption ] ::aEnable[ nOption ] = .F. ::aDialogs[ nOption ]:Disable() ::Refresh() ENDIF RETURN NIL

---

Method to set Color of TAB are in Codeblock

Code: Select all Expand view: bClrTabs := {| o, n | ::SetFldColors( o, n ) },; METHOD SetFldColors( oThis, n ) CLASS TFolderEx ... IF ! ::aEnable[ n ] hBrush = GradientBrush( ::hDC, 0, 0, nWidth, nHeight, ::aGradDis, lHor ) RETURN hBrush ENDIF

Posted: **Tue Sep 26, 2023 11:44 am**

Mr. Dutch

While thanking Mr. Leandro,
Please try this small sample

Code: Select all Expand view: function TestFolderex() local oDlg, oFld DEFINE DIALOG oDlg SIZE 400,300 PIXEL TRUEPIXEL ; TITLE "FOLDEREX FLAT STYLE by Leandro" @ 10,10 FOLDEREX oFld ADJUST OF oDlg SIZE 380,280 PIXEL ; PROMPT "Monday", "Tuesday", "WednesDay", "Thursday" WITH OBJECT oFld :aGradSel := { { 1, CLR_WHITE, CLR_WHITE } } :aGradUnSel := { { 1, CLR_WHITE, CLR_WHITE } } :aGradOver := { { 1, Rgb( 237, 237, 237 ), Rgb( 237, 237, 237 ) } } // :aGradOverUnSel := :aGradOver // :DisableTab( 3 ) END ACTIVATE DIALOG oDlg CENTERED return nil

FiveTech Software tech support forums

How to make TFOLDEREX in FLAT style?

How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?

Re: How to make TFOLDEREX in FLAT style?