topic-10979

Posts: 485

Joined: Fri Feb 09, 2007 10:34 AM

Cambiar Color Seleccion de un listbox
Posted: Fri May 02, 2008 08:48 AM

Muy buenas foro, haber si alguien me podría decir como puedo cambiar el color de la seleccion de un listbox, es decir, cuando selecciono una celda tiene un color y me gustaría cambiar al color que yo quiera.

Un Saludo.

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Cambiar Color Seleccion de un listbox
Posted: Fri May 02, 2008 09:30 AM

softruz

Con listbox puedes seleccionar el registro completo pero no puedes seleccionar una celda en concreto (o al menos lo que yo tengo entendido).

Podrás cambiar el color del registro seleccionado mediante:

olistbox:nClrBackFocus:={||rgb(110,183,255)} && color celeste.

Un saludo.
LORENZO

softruz

Posts: 485

Joined: Fri Feb 09, 2007 10:34 AM

Re:
Posted: Fri May 02, 2008 03:14 PM

Muchas gracias por tu respuesta, voy a probarlo, tambien decirte que en el listbox si se puede seleccionar una celda yo lo tengo hecho si quieres ver como se hace dimelo.

Un Saludo.

softruz

Posts: 485

Joined: Fri Feb 09, 2007 10:34 AM

Re:
Posted: Fri May 02, 2008 03:20 PM

Perdona siempre pone el color NEGRO ponga el color que ponga, ¿Sabes por que?

Un Saludo.

Loren

Posts: 479

Joined: Fri Feb 16, 2007 10:29 AM

Cambiar Color Seleccion de un listbox
Posted: Fri May 02, 2008 04:32 PM

Yo no tengo problemas. Aquí te muestro una parte de mi codigo:

Code: Select all Collapse

  redefine listbox listcli fields &base->codigoC, &base->NombreC, &base->Poblac, &base->telefc, &base->telefc1 id 107 of ocama headers 'Codigo','Nombre','Poblacion','Tlfno 1','Tlfno 2' sizes 50,230,200,80,80 on dblclick newcli(.f.,opc) font letra_listbox
  listcli:bkeydown := {|nKey| iif(nKey==VK_RETURN,newcli(.f.,opc),)}
  listcli:nclrPANE  :={||CLR_WHITE}
  listcli:nClrBackFocus:={||rgb(110,183,255)}
  listcli:nClrForeFocus:={||CLR_BLACK}
  listcli:lAutoSkip  := .t.
  listcli:nLineStyle:=4
  LISTCLI:nHeaderHeight:=20
  listcli:nclrbackhead:={||CLR_GRAY}
  listcli:nclrFOREhead:={||CLR_WHITE}
  listcli:aJustify   := {0,0,0,0,0}
  LIStcli:nLineHeight:= 22
  listcli:nClrLine:=CLR_GRAY
  listcli:bSeek      := {|| listcli:DbfSeek(.T.) }
  listcli:UpStable()
  listcli:lDrawFooters:=.t.
  listcli:nclrffore:={||CLR_WHITE}
  listcli:nclrFback:={||CLR_GRAY}
  listcli:nFooterHeight:=20
  listcli:aFooters    :={||{"","Hay "+alltrim(str(tclientes))+" registros.","","",""}}

Un saludo.

fespinoza

Posts: 188

Joined: Wed Feb 01, 2006 06:59 PM

Cambiar Color Seleccion de un listbox
Posted: Sun May 04, 2008 02:06 PM

Loren

Me podrías indicar en que Browse usas ese codigo, porque en el listbox sencillo esos metodos no son sportados.

Saludos

Saludos

Fernando Espinoza

FiveTech Support Forums

Continue the discussion