Folder Color

[thefull]

Cogiendo el ejemplo TESTFLD2.PRG, y poniendo;

REDEFINE FOLDER oFld1 ID 110 OF oDlg ;
PROMPT "&Clipper", "&and", "&Windows", "&Magic" ;
DIALOGS "Sub1", "Sub2" ;
--> COLOR CLR_GREEN, CLR_BLUE

Según la documentación es posible, pues no coge los colores.
¿ Existe alguna manera de poner un color a un folder o es un bug ?

[Detlef Hoefner]

thefull,

maybe this could help you?

Code: Select all  Expand view

ACTIVATE DIALOG oDlg;
   ON INIT ;       
   aEval( oFold:aDialogs,;
             { |oD| oD:bEraseBkGnd := NIL,;
                    oD:SetColor( COLOR CLR_GREEN, CLR_BLUE  ) } )             


Regards,
Detlef

[thefull]

thefull,

maybe this could help you?

Code: Select all  Expand view

ACTIVATE DIALOG oDlg;
   ON INIT ;       
   aEval( oFold:aDialogs,;
             { |oD| oD:bEraseBkGnd := NIL,;
                    oD:SetColor( COLOR CLR_GREEN, CLR_BLUE  ) } )             


Regards,
Detlef

Yeah! Thank you!

Code: Select all  Expand view

aEval( oFolder:aDialogs, { |oD| oD:bEraseBkGnd := NIL, oD:SetColor( CLR_GREEN, CLR_BLUE  ) } )


Erase COLOR definition

I think not is correct documentation, is the folder is 32 bits.
Please Antonio, Can you revised this documentation and put this option,
paint folder 32 btis in documentation ?

Thanks.
Rafa Carmona