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.
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.","","",""}}
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 43 guests