topic-14834

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Xbrowse "SOLVED"
Posted: Sat Mar 07, 2009 03:44 AM

Hola antonio.

Yo estoy tentando retornar ao numero del col in xbrowse pero cuando tien colunas que necessita usar
la barra de rolagem horizontal yo voy a editar la ultima coluna y me retornar a numero incorreto.

Code (fw): Select all Collapse

#include "fivewin.ch"
#include "xbrowse.ch"

function main()

  public oBrw, oCol, n, xwnd
  cCampos:={'Nome','Telefone','CEP','sobrenome','cidade'}
  cValores:={{'Nome','Telefone','CEP','sobrenome','cidade'},;
{'Nome','Telefone','CEP','sobrenome','cidade'},;
{'Nome','Telefone','CEP','sobrenome','cidade'},;
{'Nome','Telefone','CEP','sobrenome','cidade'},;
{'Nome','Telefone','CEP','sobrenome','cidade'},;
{'Nome','Telefone','CEP','sobrenome','cidade'},;
{'Nome','Telefone','CEP','sobrenome','cidade'}}


  DEFINE WINDOW xwnd TITLE "Browse xPHP SQL" 

   oBrw := TXBrowse():New( xWnd )
   oBrw:SetArray( cValores )

   for n = 1 to len(cCampos)
   
       oBrw:aCols[n]:cHeader:= cCampos[n]
       oCol:=oBrw:aCols[ n ] 
       oCol:nEditType := 1
       oCol:nHeadStrAlign:= AL_LEFT

//       oCol:bOnPostEdit := {|o, v, n| msginfo(oBrw:ColAtPos()) }


       oCol:bOnPostEdit := {|o, v, n| msginfo(obrw:ColPos(obrw:selectedcol()))}


       oCol:nwidth:=250
      

   next


   oBrw:nMarqueeStyle   := MARQSTYLE_HIGHLCELL
   oBrw:nColDividerStyle := LINESTYLE_BLACK
   oBrw:nRowDividerStyle := LINESTYLE_BLACK

   oBrw:bClrSel             := {|| { CLR_BLACK, RGB( 104,253,150 ) } }
   oBrw:bClrSelFocus        := {|| { CLR_BLACK, RGB( 104,253,150 ) } }
   oBrw:lHScroll := .T.
   oBrw:lVScroll := .T.
   oBrw:lFastEdit:= .T.

 
   oBrw:CreateFromCode()
   xwnd:oClient := oBrw 

   ACTIVATE window xwnd maximized ON INIT (oBrw:SetFocus(), obrw:refresh())

return

oCol:bOnPostEdit := {|o, v, n| msginfo(obrw:ColPos(obrw:selectedcol()))}
estoy tentando esto, funciona quando no voy las colunas que necessita dela barra de rolagem horizontal.

tiene alguna solucion ?

gracias

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Xbrowse to Antonio
Posted: Sat Mar 07, 2009 04:16 AM

Hello Lailton

if you want the real column position dont use obrw:selectedcol(), this return column number from visual column

try with
oBrw:SelectedCol():nArrayCol
or
oBrw:SelectedCol():nCreationOrder

test
oCol:bOnPostEdit := {|o, v, n| msginfo(oBrw:SelectedCol():nArrayCol)}
or
oCol:bOnPostEdit := {|o, v, n| msginfo(Brw:SelectedCol():nCreationOrder )}

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: Xbrowse to Antonio
Posted: Sat Mar 07, 2009 05:26 AM

Thanks Daniel, i´ll try..

lailton.webmaster

Posts: 603

Joined: Sun May 04, 2008 08:44 PM

Re: Xbrowse to Antonio (Solved)
Posted: Sat Mar 07, 2009 05:31 AM

Perfect Daniel

THanks so much ! :lol:

FiveTech Support Forums

Continue the discussion