FiveTech Support Forums

     DEFINE DIALOG oDlgbrow RESOURCE "BROW_LISTA" TITLE OemToAnsi("Consulta General");
            
..
..
..


    oLbx := TXBrowse():New( oDlgbrow ) //:CreateFromResource(4001) 

   oLbx:bGoTop          := {|| oTipmod:moveFirst() } 
   oLbx:bGoBottom       := {|| oTipmod:moveLast() } 
   oLbx:bSkip           := {| n | rsSkipper( n, oTipmod ) } 
   oLbx:bBof            := {|| oTipmod:Bof() } 
   oLbx:bEof            := {|| oTipmod:Eof() } 
   oLbx:bKeyNo          := {|| oTipmod:AbsolutePosition } 
   oLbx:bKeyCount       := {|| oTipmod:RecordCount() } 
     WITH OBJECT oLbx:AddCol() 
       :AddResource("CLIP") 
       :cHeader       := "Código" 
       :bStrData      := oTipmod:Fields("tipmod"):Value  
       :nHeadStrAlign := AL_LEFT 
       :nDataStrAlign := AL_LEFT 
       :nWidth        := 60 
       :nHeadBmpNo    := 1
       :nEditType := 0   // 1 Permite MOdificar 0 No modifica
       :bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) } 
       :lAllowSizing:=.F. //no permitir q' redimensionen las columnas.(Para cada columna )
     END 
     WITH OBJECT oLbx:AddCol() 
       :cHeader       := "Nombre" 
       :bStrData      := oTipmod:Fields("nombre"):Value
       :nHeadStrAlign := AL_LEFT 
       :nDataStrAlign := AL_LEFT 
       :nWidth        := 200   //200
       :nEditType := 0   // 1 Permite MOdificar 0 No modifica
       :bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, msginfo("jejejeje"), ) } 
       :lAllowSizing:=.F. //no permitir q' redimensionen las columnas.(Para cada columna )
     END 

     oLbx:nFreeze:=1 
     oLbx:lAllowColSwapping   :=.F.  

   oLbx:SetRDD()  

   oLbx:CreateFromResource( 4001 ) 
   oDlgBrow:oClient := oLbx

   ACTIVATE DIALOG  oDlgBrow CENTERED

   REDEFINE XBROWSE oLbx ;
      COLUMNS "tipmod", "Nombre" ;
      HEADERS "Codigo", "Nombre" ;
      COLSIZES 60, 200 ;
      OF oDlgbrow ID 4001 ;
      RECSET oTipMod 

   oLbx:nFreeze               := 1
   oLbx:lAllowColSwapping     := .f.
   AEval( oLbx:aCols, { |o| o:lAllowSizing := .f. } )
   
   ACTIVATE DIALOG oDlgBrw CENTERED