How I do work scroll bar in tEdit
Posted: Fri Jul 06, 2018 12:54 pmDears,
Anyone know how to make the scroll bar work in the tedit() class?
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
//----------------------------------------------------------------------------//