Page 1 of 1

Como Moficiar los Colores en un LISTBOX.

Posted: Fri Jan 12, 2007 3:16 pm
by Miguel Rivera
Hola Amigos:

Necesito poder modificar los colores que trae el LISTBOX por cada registro, el que uso tiene como base el AZUL.

1. Se puede Cambiar el color y como

2. El Browse tiene un Filtro?

Desde ya muchas gracias.

Saludos,
Miguel

Amigo..

Posted: Fri Jan 12, 2007 11:17 pm
by leandro
Creo que esto es lo que necesitas

http://fivetechsoft.com/forums/viewtopi ... ht=leandro

espero te sirva..

Posted: Sat Jan 13, 2007 11:15 am
by A&C
Miguel ::: solucionaste el problema de los colores

Cuentame

Posted: Mon Jan 15, 2007 3:27 pm
by Miguel Rivera
Amigo:

No he podido dar con la solucion,

Saludos,

Miguel
A&C wrote:Miguel ::: solucionaste el problema de los colores

Cuentame

Amigo...

Posted: Mon Jan 15, 2007 3:48 pm
by leandro
Amigo si puedes coloca un pedazo de tu codigo y con gusto de podremos ayudar mas...

Re: Amigo...

Posted: Mon Jan 15, 2007 4:29 pm
by Miguel Rivera
Leandro:

Gracias por tu atencion, te explico lo que necesito. Tengo una Dbu en la cual tengo definidos los departamentos de un edificio, para lo cual tengo 3 campo que generan un indice: PROYECTO+EDIFICIO+DEPARTAMENTO, como vez tengo que hacer un FILTRO, para que solo me muestre los departamentos que corresponden al edificio, previamente seleecionado.

El color del LISTBOX, solo me aparece el registro en azul, necesito cambiar en color base por otro a definir, y si puedo, me gustaria que los departamentos vendidos aparezcan con color rojo y los disponibles con color verde, dentro del mismo LISTBOX.

Uso Clipper 5.2e, Fivewin 2.2 y Blinker 5.1

EL codogo es el siguiente:
Llamado desde Bitmap, para buscar Dpto.
Redefine BitMap Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh())


Function Bus_dep()
Local oDlg, oBot1, oBot2, oLbx1, oCurDedo
Sele oDbdep
DbSetorder(2)
Seek Cod_pro1+Cod_edi1


Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos"
REDEFINE LISTBOX oBrw ;
FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban);
HEADERS "Código", "Orientación" , "Costo Dpto.", "Dormi","Baños";
ID 100 OF oDlg ;
FIELDSIZES 50, 100, 80, 40,40;
ALIAS "oDbdep" ;
SELECT oDbdep->Cod_pro+oDbdep->Cod_edi FOR Cod_pro1+Cod_edi1 ;
UPDATE;
On DblClick ( Busca_dep2(),oDlg:End() )

Redefine BitMap Id 201 Adjust Resource "BotonOk" Of oDlg Cursor oCurDedo;
On Click (Busca_dep2(),oDlg:End())
Redefine BitMap Id 202 Adjust Resource "BotonCancela" Of oDlg Cursor oCurDedo;
On Click (Edi:=.f.,oDlg:End())

ACTIVATE DIALOG oDlg CENTERED
Return (Cod_dep1:=oDbdep->Cod_dep)

Function Busca_Dep2()
Sele oDbde
edi:=.t.
cod_dep1:=oDbdep->cod_dep
Return (Cod_dep1)

***
Estoy super complicado,
Desde ya muchas gracias por tu atención

Miguel Rivera



leandro wrote:Amigo si puedes coloca un pedazo de tu codigo y con gusto de podremos ayudar mas...

Amigo.. agrega la siguiente linea

Posted: Mon Jan 15, 2007 6:57 pm
by leandro
Amigo hacen falta estas lineas....

oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))}
oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))}

creo que con esto solucionas el problema..

Code: Select all


Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" 
REDEFINE LISTBOX oBrw ; 
FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban); 
HEADERS "Código", "Orientación" , "Costo Dpto.", "Dormi","Baños"; 
ID 100 OF oDlg ; 
FIELDSIZES 50, 100, 80, 40,40; 
ALIAS "oDbdep" ; 
SELECT oDbdep->Cod_pro+oDbdep->Cod_edi FOR Cod_pro1+Cod_edi1 ; 
UPDATE; 
On DblClick ( Busca_dep2(),oDlg:End() ) 

Redefine BitMap Id 201 Adjust Resource "BotonOk" Of oDlg Cursor oCurDedo; 
On Click (Busca_dep2(),oDlg:End()) 
Redefine BitMap Id 202 Adjust Resource "BotonCancela" Of oDlg Cursor oCurDedo; 
On Click (Edi:=.f.,oDlg:End()) 

//aqui estan
oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))}
oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))}

ACTIVATE DIALOG oDlg CENTERED 
Return (Cod_dep1:=oDbdep->Cod_dep) 

Reemplaza tu condicion y listo ...

Espero te sirva

Re: Amigo.. agrega la siguiente linea

Posted: Mon Jan 15, 2007 7:11 pm
by Miguel Rivera
Leandro:

Muchas gracias, lo aplico y te cuento, te agradezco enormente tu enseñanza,

Muchos saludos,

Miguel
leandro wrote:Amigo hacen falta estas lineas....

oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))}
oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))}

creo que con esto solucionas el problema..

Code: Select all


Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" 
REDEFINE LISTBOX oBrw ; 
FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban); 
HEADERS "Código", "Orientación" , "Costo Dpto.", "Dormi","Baños"; 
ID 100 OF oDlg ; 
FIELDSIZES 50, 100, 80, 40,40; 
ALIAS "oDbdep" ; 
SELECT oDbdep->Cod_pro+oDbdep->Cod_edi FOR Cod_pro1+Cod_edi1 ; 
UPDATE; 
On DblClick ( Busca_dep2(),oDlg:End() ) 

Redefine BitMap Id 201 Adjust Resource "BotonOk" Of oDlg Cursor oCurDedo; 
On Click (Busca_dep2(),oDlg:End()) 
Redefine BitMap Id 202 Adjust Resource "BotonCancela" Of oDlg Cursor oCurDedo; 
On Click (Edi:=.f.,oDlg:End()) 

//aqui estan
oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))}
oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))}

ACTIVATE DIALOG oDlg CENTERED 
Return (Cod_dep1:=oDbdep->Cod_dep) 

Reemplaza tu condicion y listo ...

Espero te sirva

Re: Amigo.. agrega la siguiente linea

Posted: Mon Jan 15, 2007 7:41 pm
by Miguel Rivera
Leandro:

Al hacer la modificacion y compilar me arroja este error:

BLINKER : 1115 : RUTINAS.OBJ(RUTINAS) : 'ORDKEYNO' : unresolved external

BLINKER : 0 Warning error(s), 1 Fatal error(s)

Saludos,

Miguel
leandro wrote:Amigo hacen falta estas lineas....

oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))}
oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))}

creo que con esto solucionas el problema..

Code: Select all


Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" 
REDEFINE LISTBOX oBrw ; 
FIELDS oDbdep->Cod_dep , subs(Oridep->Det_ori,1,15) ,str(oDbdep->cos_dep),str(oDbdep->Can_dor),str(oDbdep->Can_ban); 
HEADERS "Código", "Orientación" , "Costo Dpto.", "Dormi","Baños"; 
ID 100 OF oDlg ; 
FIELDSIZES 50, 100, 80, 40,40; 
ALIAS "oDbdep" ; 
SELECT oDbdep->Cod_pro+oDbdep->Cod_edi FOR Cod_pro1+Cod_edi1 ; 
UPDATE; 
On DblClick ( Busca_dep2(),oDlg:End() ) 

Redefine BitMap Id 201 Adjust Resource "BotonOk" Of oDlg Cursor oCurDedo; 
On Click (Busca_dep2(),oDlg:End()) 
Redefine BitMap Id 202 Adjust Resource "BotonCancela" Of oDlg Cursor oCurDedo; 
On Click (Edi:=.f.,oDlg:End()) 

//aqui estan
oBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :nClrText:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(" "))}
oBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE->HTdocext)=="NOSALDO",(RGB(0,0,191)),(RGB(255,255,255)))}

ACTIVATE DIALOG oDlg CENTERED 
Return (Cod_dep1:=oDbdep->Cod_dep) 

Reemplaza tu condicion y listo ...

Espero te sirva

Posted: Tue Jan 16, 2007 12:18 am
by A&C
tu problema es q clipper 5.2 no debe soportar la instruccion ORDKEYNO()

por eso te dice q es unresolved external ,, o sea una rutina externa que no existe

Amigo..

Posted: Tue Jan 16, 2007 7:44 pm
by leandro
Es cierto amigo...

Esa funcion la tiene es clipper 5.3, tienes dos opciones..

1- Cambiar la versión del clipper a 5.3 (si la necesitas con gusto te la hago llegar)

2- La otra cambia ORDKEYNO() por RECNO() para que veas como funciona.

Espero te sirva

Re: Amigo..

Posted: Tue Jan 16, 2007 7:55 pm
by R.F.
leandro wrote:Es cierto amigo...

1- Cambiar la versión del clipper a 5.3 (si la necesitas con gusto te la hago llegar)
Leando: Clipper 5.3 NO ES UN PRODUCTO DE LIBRE DISTRIBUCION, los derechos del producto son ahora de GrafxSoft (www.grafxsoft.com) y sigue siendo un producto comercial.

jejeje

Posted: Tue Jan 16, 2007 10:52 pm
by leandro
ho ho .... :oops:
lo tendre en cuenta

Re: jejeje

Posted: Wed Jan 17, 2007 2:12 am
by Miguel Rivera
Leandro:

Muchas gracias por tu ofrecimiento, pero dispongo de Clipper 5.3, solo que no lo usaba, ya que siempre lei que era mas estable la version 5.2e, dela misma forma, te doy las gracias por toda tu ayuda, probare lo que me haz indicado y te cuento.

Siempre agradecido,

Miguel Rivera
leandro wrote:ho ho .... :oops:
lo tendre en cuenta