Page 1 of 1

ayuda con tsbrowse

Posted: Mon Feb 27, 2006 11:23 am
by 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

Posted: Mon Feb 27, 2006 4:21 pm
by fgondi
Hola

Yo lo uso de la siguiente forma

Code: Select all

Add Column To Browse oBrw Data '' Size 11 PIXELS 
oBrw:hBmpCursor  := oBmp
Espero que te ayude

Posted: Mon Feb 27, 2006 6:36 pm
by MANOLO
gracias fgondi, funciona de perlas..

Saludo2.

Posted: Tue Feb 28, 2006 2:35 am
by 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
_

Posted: Tue Feb 28, 2006 11:48 am
by fgondi
Hola _,

Yo haría lo siguiente:

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

Code: Select all

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

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]

Posted: Tue Feb 28, 2006 12:47 pm
by EASYSOFT
Gracias Fernando

Como siempre ayudando a los que te necesitan
funciona OK.


Saludos
_