How I do work scroll bar in tEdit

[Eroni]

Dears,

Anyone know how to make the scroll bar work in the tedit() class?

Code: Select all  Expand view

// 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

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

[Antonio Linares]

Eroni,

Please add this Method to Class TEdit:

METHOD VScroll() VIRTUAL

Your example works fine with it

[Eroni]

Thank you Antonio.
Now works fine.