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

 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 funciona

DEFINE 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 nil

function 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 ] )
   next

return 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