FiveTech Software tech support forums

Posted: **Mon Oct 27, 2008 4:56 pm**

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

Posted: **Mon Oct 27, 2008 6:29 pm**

Aida,

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

Posted: **Tue Oct 28, 2008 2:37 am**

pues sip a si lo hare

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

Gracias por todo

Aida

Posted: **Tue Oct 28, 2008 3:10 am**

Antonio Linares wrote: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))

Posted: **Tue Oct 28, 2008 7:20 am**

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.

Posted: **Sat Nov 01, 2008 12:09 am**

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

Posted: **Fri Nov 07, 2008 4:45 am**

Muchas gracias Johnson

Tome nota de tu ejemplo me fue muy util

Te agradesco mucho

Saluditos

Aida

FiveTech Software tech support forums

Ayuda !!! con colores de un folder :(

Ayuda !!! con colores de un folder :(

HOLA

Aproveitando

GRACIAS