Como Moficiar los Colores en un LISTBOX.

[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

[leandro]

Creo que esto es lo que necesitas

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

espero te sirva..

[A&C]

Miguel ::: solucionaste el problema de los colores

Cuentame

[Miguel Rivera]

Amigo:

No he podido dar con la solucion,

Saludos,

Miguel

Miguel ::: solucionaste el problema de los colores

Cuentame

[leandro]

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

[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

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

[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

[Miguel Rivera]

Leandro:

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

Muchos saludos,

Miguel

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

[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

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

[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

[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

[R.F.]

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.

[leandro]

ho ho ....
lo tendre en cuenta

[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

ho ho ....
lo tendre en cuenta