Folder Color
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Fri Feb 15, 2008 5:35 pm
by 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 ?
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Sat Feb 16, 2008 10:11 am
by 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
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Sat Feb 16, 2008 10:52 am
by thefull
Detlef Hoefner wrote: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
![Wink ;-)](./images/smilies/icon_wink.gif)
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