topic-9970

Board index Bugs report & fixes / Informe de errores y arreglos Folder Color

Posts: 731

Joined: Fri Oct 07, 2005 07:42 AM

Folder Color
Posted: Fri Feb 15, 2008 05:35 PM

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 ?

Saludos

Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)

Detlef Hoefner

Posts: 312

Joined: Sat Oct 08, 2005 09:12 AM

Folder Color
Posted: Sat Feb 16, 2008 10:11 AM

thefull,

maybe this could help you?

Code: Select all Collapse

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

Regards,
Detlef

thefull

Posts: 731

Joined: Fri Oct 07, 2005 07:42 AM

Folder Color
Posted: Sat Feb 16, 2008 10:52 AM

Detlef Hoefner wrote:thefull,

maybe this could help you?
Code: Select all Collapse
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 Collapse

 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

Saludos

Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)

FiveTech Support Forums

Continue the discussion