ayuda con tsbrowse

[MANOLO]

Hola a todos, tengo una aplicación en la cual estoy utilizando el tsbrowse, pero quiero hacer como la txbrowse que es que en la primera columna me aparezca un bitmap indicandome en que linea estoy, pero no encuentro ninguna data que me indique la linea activa, estoy utilizando el tsbrowse en modo celled.

Gracias anticipadas.
Manolo
www.francesport.es

[fgondi]

Hola

Yo lo uso de la siguiente forma

Code: Select all  Expand view  RUN

Add Column To Browse oBrw Data '' Size 11 PIXELS
oBrw:hBmpCursor  := oBmp

Espero que te ayude

[MANOLO]

gracias fgondi, funciona de perlas..

Saludo2.

[EASYSOFT]

Hola Fernando

Espero me puedas dar una mano, estoy utilizando tsbrowse con arreglos
y deseo en una ultima columna poner el resultado del producto de unas dos anteriores
es parte del código

ADD COLUMN TO BROWSE oBrw DATA oBrw:nAt ; // array element number
HEADER "No"

ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 1 ;
HEADER "C¢digo" WIDTH 70 EDITABLE ;
ALIGN DT_LEFT ;
VALID { | NumArt | ValArtCap( NumArt , oBrw, aTestData ) } ;
MOVE DT_MOVE_RIGHT;
COLORS CLR_HBLUE,CLR_HGRAY


ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 2;
HEADER "Descripci¢n" WIDTH 250 ;
ALIGN DT_LEFT ;
MOVE DT_MOVE_RIGHT;
COLORS CLR_RED,CLR_HGRAY

ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 3;
HEADER "Cantidad" WIDTH 60 EDITABLE ;
ALIGN DT_RIGHT ;
MOVE DT_MOVE_RIGHT;
COLORS CLR_WHITE,CLR_HGRAY

ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 4;
HEADER "Precio" WIDTH 60 EDITABLE ;
ALIGN DT_RIGHT ;
MOVE DT_MOVE_NEXT ;
COLORS CLR_WHITE,CLR_HGRAY

ADD COLUMN TO BROWSE oBrw ARRAY ELEM 5 ;
HEADER "Total" WIDTH 60 EDITABLE ;
ALIGN DT_RIGHT ;
VALID { | uVar | sumatot(uVar, oBrw, aTestData ) } ;
MOVE DT_MOVE_DOWN ;
COLORS CLR_WHITE,CLR_HGRAY

Saludos
Oscar

[fgondi]

Hola Oscar,

Yo haría lo siguiente:

La última columna (la del total) la declararía de la siguiente forma:

Code: Select all  Expand view  RUN

ADD COLUMN TO BROWSE oBrw Data sumatot(oBrw ) ;
HEADER "Total" WIDTH 60 EDITABLE ;
ALIGN DT_RIGHT ;
MOVE DT_MOVE_DOWN ;
COLORS CLR_WHITE,CLR_HGRAY

Siendo SumaTot:

Code: Select all  Expand view  RUN

func sumatot(oBrw )
local aArray, nAt
aArray := oBrw:aArray
nAt    := oBrw:nAt
if nAt=0 .or. nAt>len(aArray)
  return 0
endif
Return aArray[nAt, 3]+aArray[nAt, 4]

[EASYSOFT]

Gracias Fernando

Como siempre ayudando a los que te necesitan
funciona OK.


Saludos
Oscar