ANTONIO & DANIEL , FOLDER BUG WAS CORRECTED ?

[Silvio]

WHEN I WANT DISABLE A FOLDER CREATED WITH SOURCE CODE

THIS FOLDER DISABLED NOT CHANGE OF COLOR AS FOLDER CREATED WITH RESOURCES

Code: Select all  Expand view

#Include "Fivewin.ch"


Function Main()

   Local oFrmVds,oFld1,oCbx1 ,nCbx1 :=2
     aProfessione  :={"Giovane","Pensionato","Studente","Esperto","Obiettore","Regionale"}


Define DIALOG oFrmVds TITLE "  - TEST FOLDER- " ;
       FROM 452, 774 to 950, 1539 PIXEL COLOR 0, 14215660

@  50,   3 FOLDER oFld1 Items "&Anagrafica",;
                                 "Dettagl&i",;
                                 "&Alunni",;
                                 "&Notizie mediche",;
                                 "C&orsi effettuati",;
                                 "Al&tri",;
                                 "&Note";
              SIZE 263, 180 PIXEL;
              OF oFrmVds COLOR 0, 14215660


         @   27,  95 SAY "&Tipo :" SIZE  45,   7 PIXEL  OF oFrmVds COLOR 0, 14215660
         @   26,  110 COMBOBOX oCbx1 VAR nCbx1 ITEMS aProfessione SIZE  56,  40 PIXEL OF oFrmVds COLOR 0, 16777215 ;
   BITMAPS { ".\bitmaps\mini\MINI_giovane.bmp",;
             ".\bitmaps\mini\MINI_pensionato.bmp",;
             ".\bitmaps\mini\MINI_studente.bmp",;
             ".\bitmaps\mini\MINI_esperto.bmp",;
             ".\bitmaps\mini\MINI_obiettore.bmp",;
             ".\bitmaps\mini\MINI_regionale.bmp" } ;
              ON CHANGE( iif(oCbx1:nat=1, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=2, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=3, oFld1:aEnable := { .T., .T., .T., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=4, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=5, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                iif(oCbx1:nat=6, oFld1:aEnable := { .T., .T., .F., .T., .T., .T., .T.},) ,;
                                )


ACTIVATE DIALOG oFrmVds   RESIZE16 CENTERED

[Antonio Linares]

Silvio,

Windows standard folder class ("systabcontrol32") does not allow to paint disabled items on a folder tabs.

[Silvio]

strange!!!

[César E. Lozada]

Hola, Antonio.

Esto lo encontré en la red y quizás pueda ser una forma:

the window that holds the tab control as it is just a window it is called SysTabControl32 and the window can be disabled with a call to enablewindow = false
if blnEnabled = true then
enablewindow(hwndparent2,false)
else
enablewindow(hwndparent2,true);