FiveTech Software tech support forums

... http://img64.imageshack.us/img64/6268/pix1c.jpg http://img9.imageshack.us/img9/3006/brw1.jpg http://img801.imageshack.us/img801/9201/brw2.jpg

... por columna, por linea, en encabezado, en celda activa, en footers, en browse normal... caso 1 http://img15.imageshack.us/img15/3006/brw1.jpg aqui el codigo: oBrw[x]:bBkColor := { | nRow, nCol, nStyleLine | ColoresCelda( nRow, nCol, nStyleLine, oFolder ) } oBrw[x]:bTextColor := ...

... DIALOG oDlg RESOURCE "BCEDCBAL" OF bc:oWnd oDlg:bGotFocus = { || oWndchild:SetFocus(),oget[nget]:setfocus(),.T.} asi mi xBrowse: @ 3,2 XBROWSE Brw1 ; FIELDS "" ; ALIAS (CALIAS) ; OF oWndChild ; LINES CELL Brw1:aCols:= {} FOR i := 1 TO xCols ADD COLUMN TO XBROWSE Brw1 DATA bro_campo[i] TITLE ...

Angstin,

// aqui es donde tengo el problema...

FOR nFor:=1 TO xCols
oCol:=Brw1:aCols[nFor]
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) }
NEXT

Que problema es ? Te dá un error ? Cual ?

... el codigo: REDEFINE GET oGet[2] VAR xNombre ID 102 OF oDlg PICTURE "@!" UPDATE oGet[2]:bKeyDown := {|nKey| IIF(nKey==K_ENTER.and.empty(sw),Clickx(Brw1),)} la funcion Clickx() : FUNCTION Clickx(Brw1) Brw1:bPastEof = {|| Dbappend(), Brw1:refresh(), Brw1:aCols[ 1 ]:Edit() } Brw1:SetFocus() RETURN ...

... pero tengo el siguiente problema al momento de editar y validar cada columna, ya que yo armo mis columnas de la siguiente manera: @ 6,2 XBROWSE Brw1 ; FIELDS "" ; ALIAS (CALIAS) ; OF oWndChild ; LINES CELL FOR i := 1 TO xCols ADD COLUMN TO Brw1 DATA bro_campo[i] TITLE bro_subtit[i] NEXT Brw1:SetRDD() ...

Saludos mcfox... te anexo el codigo... //este es el browse que utilizo: TWBrowse():lHScroll:= .F. @ 6, 2 LISTBOX Brw1 ; FIELDS "" ; ALIAS (CALIAS) ; OF oWndChild ; UPDATE Brw1:SetCols( bro_campo, bro_subtit) Brw1:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ; Brw1:Add( uDropInfo ...

... aqui mismo llamada WndSetFocus que la busca por el ctitle y le da el foco pero no me funciona. te anexo el codigo... Case nCol == 2 uBuffer := (Brw1:CALIAS)->id_com aResult := "" IF lContinue:= Brw1:lEditCol( nCol, @uBuffer, "@!") IF EMPTY(uBuffer) COMP0101(uBuffer) // aqui llamo a la otra ...

... release-version will be 1c. Download : http://www.pflegeplus.com/fw_downloads/BRWTools1.zip Page 1 http://www.pflegeplus.com/pictures/BRW1.jpg Page 2 http://www.pflegeplus.com/pictures/BRW2.jpg Page 3 http://www.pflegeplus.com/pictures/BRW3.jpg Page ...

... negative film strip and the Header/Footer is disappearing of the screen See this image: http://br.geocities.com/qiinformatica2000/brw1.PNG Talvez isto seria a solução: The HD_LAYOUT structure contains information used to set the size and position of a header control. typedef ...