FiveTech Support Forums

// Testing Class TEdit that implements GETs without using a Harbour embedded GET

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, cFirst := ""
   local a


   FOR a := 1 to 700
      cFirst += Strzero(a,4)+" ABCDEFGHIJKWLMNOPQRSTUVXYZ"+CRLF 
   NEXT a


   DEFINE DIALOG oDlg SIZE 500, 250
   
   @ 1, 1 EDIT cFirst OF oDlg SIZE 235, 90 MEMO
  
  
   @ 6, 35 BUTTON "Cancel" ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

//----------------------------------------------------------------------------//