topic-1955

Posts: 87

Joined: Sun Oct 09, 2005 08:49 PM

ayuda con tsbrowse
Posted: Mon Feb 27, 2006 11:23 AM

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

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

ayuda con tsbrowse
Posted: Mon Feb 27, 2006 04:21 PM

Hola

Yo lo uso de la siguiente forma

Code: Select all Collapse

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

Espero que te ayude

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

MANOLO

Posts: 87

Joined: Sun Oct 09, 2005 08:49 PM

ayuda con tsbrowse
Posted: Mon Feb 27, 2006 06:36 PM

gracias fgondi, funciona de perlas..

Saludo2.

EASYSOFT

Posts: 195

Joined: Sat Oct 22, 2005 01:17 PM

ayuda con tsbrowse
Posted: Tue Feb 28, 2006 02:35 AM

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

Saludos

Oscar

Fwh 23.10, bcc55

fgondi

Posts: 694

Joined: Fri Oct 07, 2005 06:58 AM

ayuda con tsbrowse
Posted: Tue Feb 28, 2006 11:48 AM

Hola Oscar,

Yo haría lo siguiente:

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

Code: Select all Collapse

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 Collapse

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]

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos

EASYSOFT

Posts: 195

Joined: Sat Oct 22, 2005 01:17 PM

ayuda con tsbrowse
Posted: Tue Feb 28, 2006 12:47 PM

Gracias Fernando

Como siempre ayudando a los que te necesitan
funciona OK.

Saludos
Oscar

Saludos

Oscar

Fwh 23.10, bcc55

FiveTech Support Forums

Continue the discussion