PC Toledo

Código: Selecionar todos

*************************************************
STATIC Thisform, oForm, oFont, oGrid

FUNCTION grid()
  Local aItems := {}, g1 := {}, g2 := {}
  Parameter  p1, p2    // Nome dos campos passados pela rotina principal

  go top
  do while !eof()
      aadd(g1, &p1)                         // & isso é um "e" comercial
      aadd(g2, &p2)
      skip
  enddo

  INIT DIALOG oForm CLIPPER NOEXIT TITLE "Localizar";
       FONT oFont ;
       AT 0, 0 SIZE 700, 425 ;
       STYLE DS_CENTER + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU

       @ 10,10 GRID oGrid OF oForm SIZE 680,375;
               ITEMCOUNT Lastrec() ;
               ON CLICK {|oCtrl| OnClick(oCtrl, aItems) } ;
               ON DISPINFO {|oCtrl, nRow, nCol| g1, g2 }    //;                                          <----     linha que dá o erro
               // ON KEYDOWN {|oCtrl, key| OnKey(oCtrl, key, aItems) } ;
               
       ADD COLUMN TO GRID oGrid HEADER "Código"    WIDTH  50
       ADD COLUMN TO GRID oGrid HEADER "Descrição" WIDTH 600

       @ 620, 395 BUTTON '&Ok' SIZE 75,25 ON CLICK {|| oForm:Close() }

  ACTIVATE DIALOG oForm

Return Nil

*****************************************