FiveTech Software tech support forums

Maybe You still want to show no Text for disabled Folder-Pages ? ( Better visible, to select enabled Pages ) Your Screenshot would look like : http://www.pflegeplus.com/pictures/delitem1.jpg oFld:aEnable = { lCheck[1], lCheck[2], lCheck[3], lCheck[4], lCheck[5], lCheck[6], ; lCheck[7...

Hi,

Can you please post your final prg screenshoot?

Thanks,

... aDBF := {}, i := 0, nRec := 0Private Contador := 0//-- Dialogo PrincipalPrivate  oDlg, oFolder, oSlider, nSlider := 0Private  oGet := Array(2), cGet := Array(2), oBtn := Array(2)Private  oCheck := Array(12), ...

... aDBF := {}, i := 0//-- Dialogo PrincipalPrivate  oDlg, oFolder, oSlider, nSlider := 0Private  oGet := Array(2), cGet := Array(2), oBtn := Array(2)Private  oCheck := Array(12), ...

Tested at Runtime from inside a Dialog ( with Button-action ) : ( could be called on any checkbox-changes ) http://www.pflegeplus.com/pictures/tabimage.jpg FUNCTION TAB_IMAGE(oDlg, oFld)local oImageList, cNewBmp  cBmp := "Calc"   DEFINE IMAGELIST oImageList SIZE 16,...

Uwe, thx for the reply, but I don't have call a other dialog with the folder, but the I'll try to implemente a solution with imagelist, each change in any checkbox change the imagelist of the folder...

Another Solution instead showing disabled Tabs Grey. Now You can select different Options inside the Tool : http://www.pflegeplus.com/pictures/fdisabl7.jpg FUNCTION LOAD_FOLDER(oDlg1, lCheck) // lCheck Your Checkbox-Array !LOCAL oDlg2, hDC, oFld, oBrush0DEFINE BRUSH oBrush0DE...

...   Of       oDlg;            Update   oCheck[nOption]:bChange := {|| oFolder:aEnable[nOption] := lCheck[nOption]}Return Nil/*------------------------------------------------------------------------*/  ...

The Solution You are looking for ? ( creates a Folder with Pages, defined in the Main-Dialog with Checkboxes ) http://www.pflegeplus.com/pictures/foldsel1.jpg The PRG : // Dinamically adding pages and controls#include "FiveWin.ch"STATIC oCheck[12], lCheck[12]...

Quando eu modifico um checkbox eu queria esconder / exibir determinada aba de um Folder    Redefine Folder      oFolder;            ID          200;            Prompt      "Nome da Empresa",;                        "Linha",;                        "Cod ...

But I have 12 pages and 12 checkbox to control if the page is visible or not, the way you use will be too hard to code.

A Solution, I used in one of my Tools : Because of big Page-Sizes, I use a extra Function for each Folder-Page. http://www.pflegeplus.com/pictures/FPagehide.jpg #include "FiveWin.ch"FUNCTION MAIN()local oDlg1, oCheck1, lCheck1 := .F.   DEFINE DIALOG oDlg RESOURCE &q...

When I change one checkbox I need to hide an option, the second in that case. sample:    Redefine Folder      oFolder;            ID          200;            Prompt     ...

... FUNCTION MAIN() LOCAL oOutlook := TOleAuto():New( "Outlook.Application" ) LOCAL oNameSpace := oOutlook:getnamespace('MAPI') LOCAL oFolder := oNameSpace:GetDefaultFolder( olFolderInBox ) LOCAL nItems LOCAL oMail LOCAL iMsg nItems := oFolder:Items:Count FOR iMsg := 1 TO nItems oMail ...