Cambiar Color Seleccion de un listbox

Cambiar Color Seleccion de un listbox

Postby softruz » Fri May 02, 2008 8: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.
softruz
 
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Postby Loren » Fri May 02, 2008 9: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
Loren
 
Posts: 479
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Re:

Postby softruz » Fri May 02, 2008 3: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:

Postby softruz » Fri May 02, 2008 3:20 pm

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

Un Saludo.
softruz
 
Posts: 485
Joined: Fri Feb 09, 2007 10:34 am

Postby Loren » Fri May 02, 2008 4:32 pm

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

Code: Select all  Expand view  RUN
  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.
Loren
 
Posts: 479
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Postby fespinoza » Sun May 04, 2008 2:06 pm

Loren

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

Saludos
User avatar
fespinoza
 
Posts: 188
Joined: Wed Feb 01, 2006 6:59 pm
Location: Ecuador


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 37 guests