How to make TFOLDEREX in FLAT style?

[dutch]

Dear All,

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

Thanks in advance,

[Antonio Linares]

Dear Dutch,

Please provide a screenshot with the folderex look that you wish

[dutch]

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.

Dear Dutch,

Please provide a screenshot with the folderex look that you wish

[Antonio Linares]

Dear Dutch,

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

[Jimmy]

hi Dutch

have you try to disable "visual Style" for TFOLDEREX

[Antonio Linares]

Dear Jimmy,

How to do it ? thank you

[Jimmy]

hi,

Code: Select all  Expand view  RUN

  oTab := TFolderEx() :New( .. )
   // disable visual Style
   SetWindowTheme( oTab:hWnd, "", "" )

[leandro]

Creo que tambien te puede funcionar

Code: Select all  Expand view  RUN

@ 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
 

[dutch]

Dear Antonio,

Can I DISABLE TAB (disable color) for TFOLDER?

Dear Dutch,

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

[Antonio Linares]

Dear Dutch,

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

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

[Jimmy]

hi Dutch,

Can I DISABLE TAB (disable color) for TFOLDER?

in CLASS TFolderEx() there is

Code: Select all  Expand view  RUN

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  RUN

  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

[nageswaragunupudi]

Mr. Dutch

While thanking Mr. Leandro,
Please try this small sample

Code: Select all  Expand view  RUN

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