Ayuda !!! con colores de un folder :(

[AIDA]

HOLA

Me podrian dar una ayudadita

hice un folder dentro de un windows que dejo fijo abajo de unos xbrowse este folder esta sin pintar su Dialog

todo funciona muy bien pero el folder como las pestañitas quedan en color blanco y no logro que tomen el color
no me funciona lo siguiente

oFld:aDialogs[1]:SetColor( "CLR_YELLOW,CLR_HBLUE" )
oFld:SetColor( "CLR_YELLOW,CLR_HBLUE" )
oFld:aDialogs[1]:SetColor(rgb(255, 255, 200))

solo funciona si pongo
oFld:aDialogs[1]:SetBrush( oBrush )

me pueden ayudar porfis

Code: Select all | Expand

 function misfolders()   local oDlg, oFld, oSay,oFont,APERS2,oBrush    DEFINE BRUSH oBrush FILE "Brush.Bmp"   DEFINE DIALOG oDlg OF oChild TRANSPARENT FROM 0, 0 TO 0, 0  @ 20.135, 20.4 FOLDER oFld PROMPTS "&Datos del cliente", "&And OOP", "&Primas pagadas" ;     PAGES "fold1", "fold2", "fold3" COLORS "CLR_YELLOW,CLR_HBLUE";OF oDlg SIZE 517.6, 160 oFld:aDialogs[1]:SetBrush( oBrush )// funciona oFld:aDialogs[2]:SetBrush( oBrush )// funciona oFld:aDialogs[1]:SetColor(rgb(255, 255, 200)) //no funciona oFld:aEnable = { .t., .t. ,.t.} oFld:aDialogs[1]:SetColor( "CLR_YELLOW,CLR_HBLUE" )// no funciona  oFld:SetColor( "CLR_YELLOW,CLR_HBLUE" )// no funcionaDEFINE FONT oFont NAME "Ms Serif" SIZE 14,14@ 0,1 SAY oSay PROMPT "  NOMBRE  " oF oFld:aDialogs[ 1 ]@ 1,1 say oGetN var getNOM OF oFld:aDialogs[ 1 ] size 150,10 BORDER    ACTIVATE DIALOG oDlg NOWAIT ;      ON INIT ChangeParent( oDlg, oWndD )oBrush:End()oDlg:End()   return nilfunction ChangeParent( oDlg,  oWndD )   local hCtrl := GetWindow( oDlg:hWnd, GW_CHILDD )   local n, aChilds := {}   while hCtrl != 0      AAdd( aChilds, hCtrl )      hCtrl = GetWindow( hCtrl, GW_HWNDNEXTT )   end   AEval( aChilds, { | hCtrl | SetParent( hCtrl,  oWndD:hWnd ) } )   for n = 1 to Len( oDlg:aControls )      AAdd(  oWndD:aControls, oDlg:aControls[ n ] )   nextreturn nil 

[Antonio Linares]

Aida,

Puedes usar un brush creado a partir de un bitmap que use ese degradado de colores

[AIDA]

pues sip a si lo hare

veo que colores no se pudo ya consegui un bmp bonito para el fondo

Gracias por todo

Aida

[joseluisysturiz]

Aida,

Puedes usar un brush creado a partir de un bitmap que use ese degradado de colores

Antonio,
yo uso este y me funciona bien, mis folder son de recurso..porque los de AIDA no, sera por la posicion del FOLDER..?

oFld:aDialogs[1]:SetColor(rgb( ,255, 255, 200))

[Antonio Linares]

Jose Luis,

Tienes razón en que ella no estaba llamando correctamente al método SetColor(), pero la cuestión es que ella quiere un degradado y eso no puede hacerlo con SetColor().

Se podría usar la nueva DATA bClrGrad tambien. A ver si preparamos unos ejemplos.

[Johnson]

ola,

usando oBrush

DEFINE BRUSH oBrush FILE "file.bmp"

@ 022, 013 SAY oNom_s_Clie VAR "R.Social:" PIXEL OF oFld:aDialogs[ 1 ] SIZE 30,10 FONT oFont
@ 034, 013 SAY oFan_s_Clie VAR "N.Fantasia:" PIXEL OF oFld:aDialogs[ 1 ] SIZE 30,10 FONT oFont


DEFINE DIALOG oDlg FROM 4, 4 TO 34.4, 61 TITLE If( lAppend, "Novo Cliente", "Atualiza/Consulta Cliente" )

@ 001, 001 Folder ofld Items "&Dados do Cliente", "&End.Cobraça/Entrega", "&Observações/Complemento" PIXEL OF oDlg SIZE 224, 215

oFld:aDialogs[1]:SetBrush( oBrush )
oFld:aDialogs[2]:SetBrush( oBrush )
oFld:aDialogs[3]:SetBrush( oBrush )
...
...

@ 009, 162 CHECKBOX oPfj_Clie VAR lPfj_Clie PROMPT "Pessoa Física" SIZE 050, 09 PIXEL OF oFld:aDialogs[ 1 ] FONT oFont ;
ON CHANGE If(lPfj_Clie=.t., (oFan_s_Clie:SetText( "Nome:" ), oNom_s_Clie:SetText( "Nome:" ), oFan_s_Clie:Refresh(), oNom_s_Clie:Refresh(), oCgc_Clie:Disable(), oIns_Clie:Disable(), oCpf_Clie:Enable(), oIde_Clie:Enable() ), (oFan_s_Clie:Refresh(), oNom_s_Clie:Refresh(), oFan_s_Clie:SetText( "N.Fantasia:" ), oNom_s_Clie:SetText( "R.Social:" ), oNom_s_Clie:Refresh(), oFan_s_Clie:Refresh(), oCpf_Clie:Disable(), oIde_Clie:Disable(), oCgc_Clie:Enable(), oIns_Clie:Enable() ) )

ANTES


DEPOIS


sem BRUSH trabalha normal

[AIDA]

Muchas gracias Johnson

Tome nota de tu ejemplo me fue muy util

Te agradesco mucho


Saluditos

Aida