FiveTech Software tech support forums

Mr. Rao,

I'm not use tdialog but I Use TFolderEx. TFolderEx each sheets is use tdialog. I just wanted to remind

My All tget controls of TFolderEx is perfectly works.

Best regards,

...                             DEFINE WINDOW oWnd TITLE "TFolderex - Testing -"        @ 3, 3 FOLDEREX oFld PIXEL ADJUST;          PROMPT  "&Social1", ...

please completely remove the tFolderex at line 97 and see the result

Roberto

...                             DEFINE WINDOW oWnd TITLE "TFolderex - Testing -"        @ 3, 3 FOLDEREX oFld PIXEL ADJUST;          PROMPT  "&Social1", ...

.OR.
you have to set the tGroup control transparent off and set the right back color,
this works for me:

Code: Select all  Expand view

oCtrl := TGroup():New(2,2,5,30,"tGroup class()",oFld:aDialogs[ 7 ],,CLR_WHITE,.f.,,,.f.)    // this line added: tGroup control
 

regards
Roberto

Just removing the 'animate speed 50' clause makes it working good

Thanks

Mr. Dutch While thanking Mr. Leandro, Please try this small sample function TestFolderex()   local oDlg, oFld   DEFINE DIALOG oDlg SIZE 400,300 PIXEL TRUEPIXEL ;      TITLE "FOLDEREX FLAT STYLE by Leandro"   @ 10,10 FOLDEREX oFld ADJUST ...

hi Dutch, Can I DISABLE TAB (disable color) for TFOLDER? in CLASS TFolderEx() there is METHOD DisableTab( nOption ) CLASS TFolderEx   DEFAULT nOption := ::nOption   IF ::aEnable[ nOption ]      ::aEnable[ nOption ] = .F.      ::aDialogs[ ...

Dear Dutch,

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

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

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

Hi Karinha,
the problem is still there. Only the position changes but the tGroup control appears as a five-cells grid and the "under" caption repeated 5 times. (I don't know how to upload an image here)
Just removing the 'animate speed 50' clause makes it working good

regards
Roberto

Creo que tambien te puede funcionar @ 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       :=...

hi,

Code: Select all  Expand view

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

Dear Jimmy,

How to do it ? thank you

hi Dutch

have you try to disable "visual Style" for TFOLDEREX