Degradado problemático en xBrowse

[rolando]

Buen día,

Ya he usado sin problemas el degradado para pintar las líneas de un xBrowse sobre array en el cual no se edita directamente (no es EDIT_GET).

Ahora quiero usarlo para que se pinten bajo cierta condición y para que se diferencien del resto las líneas que contengan datos buscados. El problema es que además necesito editar los campos de esas líneas y ahí viene la cuestión, cuando pretendo entrar a edición la aplicación da un error cuyo log copio más abajo. Adjunto parte del programa para que vean, una captura del degradado (que reitero, funciona bien mientras no entre en edición), y el log de error.

Aclaro que uso FWH 10.4 y xHarbour

Gracias.

Rolando

Code: Select all  Expand view

local aVerde:={ { 0.50,65280,16777215 },{ 0.50,16777215,65280 } }
local nClrFondo:=nRGB(223,228,255)

........


oBrw:aCols[ 5 ]:nEditType := EDIT_GET          
oBrw:aCols[ 5 ]:bOnPostEdit := {|oCol, xVal, nKey| iif( nKey != VK_ESCAPE, ;
              (oDbf:SERIE:=xVal , oDbf:save() , oBrw:refresh() ) , ) }
oBrw:aCols[5]:cEditPicture := "@!"
oBrw:aCols[5]:bClrStd:={|| if(len(alltrim(oDbf:BUSCADO))>0 ,({CLR_BLACK, ;
                                  aVerde} ),({nrgb(0,0,0),nClrFondo}) ) }
                                 
.........      

Code: Select all  Expand view

LOG DE ERROR
============


Error description: Error BASE/1070  Error de argumento: ==
   Args:
     [   1] = N   16777215
     [   2] = A   { ... }

Stack Calls
===========
   Called from: .\source\classes\BRUSH.PRG => (b)TBRUSH:NEW(83)
   Called from:  => ASCAN(0)
   Called from: .\source\classes\BRUSH.PRG => TBRUSH:NEW(83)
   Called from: D:\FWH10.4\SOURCE\CLASSES\WINDOW.PRG => TGET:SETCOLOR(2473)
   Called from: D:\FWH10.4\SOURCE\CLASSES\TGET.PRG => TGET:NEW(353)
   Called from: D:\VERCE\RJCTaller\PRG\xbrowse4-10.prg => TXBRWCOLUMN:EDIT(9876)
   Called from: D:\VERCE\RJCTaller\PRG\xbrowse4-10.prg => TXBROWSE:LDBLCLICK(3576)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: D:\FWH10.4\SOURCE\CLASSES\CONTROL.PRG => TCONTROL:HANDLEEVENT(1529)
   Called from: D:\VERCE\RJCTaller\PRG\xbrowse4-10.prg => TXBROWSE:HANDLEEVENT(10911)
   Called from: D:\FWH10.4\SOURCE\CLASSES\WINDOW.PRG => _FWH(3395)
   Called from:  => WINRUN(0)
   Called from: D:\FWH10.4\SOURCE\CLASSES\WINDOW.PRG => TWINDOW:ACTIVATE(979)
   Called from: D:\VERCE\RJCTaller\PRG\fwsounds.prg => PRIMERA(1982)
 

[nageswaragunupudi]

Please try adding this line of code:

Code: Select all  Expand view

oBrw:aCols[ 5 ]:bClrEdit := { || { CLR_BLACK, CLR_YELLOW } }
 

[rolando]

Muchas gracias, funciona perfecto.

Thank you very much, works perfect.

Rolando

[acuellar]

Rolando

Con esta función

SetGetColorFocus(RGB(238,232,170))

Colocala en tu programa principal y todos los GET tendrán otro color.

Saludos,

Adhemar

[nageswaragunupudi]

Rolando

Con esta función

SetGetColorFocus(RGB(238,232,170))

Colocala en tu programa principal y todos los GET tendrán otro color.

Saludos,

Adhemar

The problem here is different.
By default the bClr.. codeblock with second color as gradient array is passed to the GET object and GET can not handle gradient array to create brush.
We have to specify bClrEdit with normal colors

[acuellar]

Thanks G. N. Rao.

for the clarification

Regards,

Adhemar