PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
Height = 207
Width = 258
DoCreate = .T.
Caption = "About"
Name = "Form1"
AutoCenter = .T.
ADD OBJECT container1 AS container WITH ;
Top = 0, ;
Left = 9, ;
Width = 253, ;
Height = 206, ;
BorderWidth = 0, ;
Name = "Container1"
ADD OBJECT timer1 AS timer WITH ;
Top = 120, ;
Left = 36, ;
Height = 23, ;
Width = 23, ;
Interval = 50, ;
Name = "Timer1"
PROCEDURE Init
WITH this.container1
.ADDOBJECT("edit1", "Editboxscroll")
WITH .edit1
.BorderStyle = 0
.Height = 628
.Left = 2
.ReadOnly = .T.
.ScrollBars = 0
.Top = 3
.Width = 249
.Visible = .T.
ENDWITH
ENDWITH
thisform.container1.edit1.top = thisform.container1.Height
Text To cTxt NoShow pretext 3
MY GREAT SOFTWARE
Copyright © 2005 - All Rights Reserved
THE TEAM:
Bill M.
Craig S.
Doug P.
Sue W.
and most importantly...
YOU!
THANK YOU
EndText
thisform.container1.edit1.value = cTxt
ENDPROC
PROCEDURE timer1.Timer
WITH thisform.container1.edit1
IF .Top < (-1 * .Height)
.Top = thisform.container1.height
ELSE
.Top = .Top - 1
ENDIF
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS editboxscroll as EditBox
PROCEDURE when
RETURN .F.
ENDPROC
ENDDEFINE