| Class TSRichEdit (unit TRECode) |
TRichEdit
*************************************************************************
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
destructor Destroy;
procedure DoOnHScroll (var Msg: TWMHScroll);
procedure DoOnVScroll (var Msg: TWMVScroll);
function GetCurrentLine: integer;
function GetCurrentPosition: integer;
function GetLinesVisible: integer;
function GetMaxLinesVisible: integer;
function GetTopLine: integer;
procedure SetCurrentLine(Value: integer);
procedure SetCurrentPosition(Value: integer);
procedure SetTopLine(Value: integer);| Properties |
property CurrentLine : integer
property CurrentPosition : integer
property LinesVisible : integer
property MaxLinesVisible : integer
property Topline : integer| Events |
event OnHScroll : TNotifyEvent
event OnVScroll : TNotifyEvent| Variables |
FCurrentLine : integer;
FCurrentPosition : integer;
FLinesVisible : integer;
FOnHScroll : TNotifyEvent;
FOnVScroll : TNotifyEvent;
FTopLine : integer;| Constructors |
constructor Create(AOwner:TComponent);---------- TSRichEdit ----------} { *************************************************************************
| Functions |
destructor Destroy;*************************************************************************
procedure DoOnHScroll (var Msg: TWMHScroll);*************************************************************************
procedure DoOnVScroll (var Msg: TWMVScroll);*************************************************************************
function GetCurrentLine: integer;*************************************************************************
function GetCurrentPosition: integer;*************************************************************************
function GetLinesVisible: integer;*************************************************************************
function GetMaxLinesVisible: integer;*************************************************************************
function GetTopLine: integer;*************************************************************************
procedure SetCurrentLine(Value: integer);*************************************************************************
procedure SetCurrentPosition(Value: integer);*************************************************************************
procedure SetTopLine(Value: integer);*************************************************************************
| Properties |
property CurrentLine : integerproperties
property CurrentPosition : integer
property LinesVisible : integer
property MaxLinesVisible : integer
property Topline : integer| Events |
event OnHScroll : TNotifyEvent
event OnVScroll : TNotifyEventmethods
| Variables |
FCurrentLine : integer;
FCurrentPosition : integer;
FLinesVisible : integer;
FOnHScroll : TNotifyEvent;
FOnVScroll : TNotifyEvent;
FTopLine : integer;