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
_