FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para CA-Clipper Como Moficiar los Colores en un LISTBOX.
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 PM
Como Moficiar los Colores en un LISTBOX.
Posted: Fri Jan 12, 2007 03:16 PM

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
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Amigo..
Posted: Fri Jan 12, 2007 11:17 PM

Creo que esto es lo que necesitas

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

espero te sirva..

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
A&C
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
Como Moficiar los Colores en un LISTBOX.
Posted: Sat Jan 13, 2007 11:15 AM

Miguel ::: solucionaste el problema de los colores

Cuentame

Mi segundo amor es Programar
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 PM
Como Moficiar los Colores en un LISTBOX.
Posted: Mon Jan 15, 2007 03:27 PM
Amigo:

No he podido dar con la solucion,

Saludos,

Miguel

[quote="A&C"]Miguel ::: solucionaste el problema de los colores

Cuentame
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Amigo...
Posted: Mon Jan 15, 2007 03:48 PM

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

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 PM
Re: Amigo...
Posted: Mon Jan 15, 2007 04:29 PM
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...
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Amigo.. agrega la siguiente linea
Posted: Mon Jan 15, 2007 06:57 PM
Amigo hacen falta estas lineas....

oBrw :={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :={||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 Collapse
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
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 PM
Re: Amigo.. agrega la siguiente linea
Posted: Mon Jan 15, 2007 07:11 PM
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 :={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :={||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 Collapse
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
Posts: 117
Joined: Sun Oct 01, 2006 11:39 PM
Re: Amigo.. agrega la siguiente linea
Posted: Mon Jan 15, 2007 07:41 PM
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 :={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}
oBrw :={||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 Collapse
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
Posts: 214
Joined: Sat Aug 19, 2006 01:37 PM
Como Moficiar los Colores en un LISTBOX.
Posted: Tue Jan 16, 2007 12:18 AM

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

Mi segundo amor es Programar
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Amigo..
Posted: Tue Jan 16, 2007 07:44 PM

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

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
R.F.
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Re: Amigo..
Posted: Tue Jan 16, 2007 07:55 PM
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.
Saludos

R.F.
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
jejeje
Posted: Tue Jan 16, 2007 10:52 PM

ho ho .... :oops:
lo tendre en cuenta

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Miguel Rivera
Posts: 117
Joined: Sun Oct 01, 2006 11:39 PM
Re: jejeje
Posted: Wed Jan 17, 2007 02:12 AM
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 .... :-)
lo tendre en cuenta

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions