FiveTech Support Forums

#include "FiveWin.ch"

Function Main()   //RowNoEditable()
local oDlg, oBrw, n
LOCAL aArray := { {1,5,8,4,5,6,7} ,;
                  {2,4,9,4,5,6,0} ,;
                  {3,2,3,4,5,6,0} ,;
                  {4,5,0,4,5,6,7} ,;
                  {5,2,3,4,5,6,7} }

  DEFINE DIALOG oDlg  SIZE 450,300 PIXEL TITLE "LINEAS EDITABLES O NO"
  @5, 10 SAY "Linea 1 no editable" SIZE 200,10 PIXEL OF oDlg

  @ 20, 10 XBROWSE oBrw SIZE -10,-20 PIXEL OF oDlg  DATASOURCE aArray ;
           COLUMNS 1,2,3,4,5,6,7  HEADERS "C1","C2","C3","C4","C5","C6","C7";
           CELL LINES 

  oBrw:bChange := { || if(oBrw:nRowSel = 1, oBrw:GoDown(), nil) }
  oBrw:bDragBegin := { |r,c,f,o| nil }
  oBrw:bDropOver  := { |u,r,c,f| nil }

  AEVAL( oBrw:aCols,{|o| o:nWidth := 50 ,;
                         o:nEditType := 1 ,;
                         o:bEditWhen := {|| oBrw:nRowSel > 1 } } )

  oBrw:CreateFromCode()

  ACTIVATE DIALOG oDlg CENTERED ON INIT EVAL(oBrw:bChange)

Return nil

oBrw:bEditWhens := { || oBrw:KeyNo > 1 }