Class TJumpMemo (unit Jmpmemo)

Inherits from

TCustomControl

Constructors


constructor Create(AnOwner: TComponent);



Functions

procedure Add(const Str:string);


destructor Destroy;


function GetCurPos:longint;


function GetPos(const Str:string;curpos:longint):longint;


function GotoWord(const Str:string;curpos:longint;Up:Boolean):longint;


procedure LoadFromFile(const FileName:string);


procedure Print(const fn:string;stpg,endpg:longint;infile,allfile:boolean);


procedure ScrollTo(X, Y: longint);


function Search(srstr:string;Down:boolean;posy:longint;var lasty:longint):boolean;


procedure ChangeScrollBars(Value: TScrollStyle);


procedure CreateParams(var Params: TCreateParams);


procedure FontChanged(Sender: TObject);


procedure InsertPages;


procedure JumpClick;


procedure RecalcRange;


procedure RemovePages;


procedure SetScrollBars;


procedure DoScroll(Which, Action, Thumb: longint);


Function GetWord(X,Y:integer):string;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure MouseDown(Button: TMouseButton;Shift:TShiftState;X,Y:Integer);


procedure MouseMove(Shift:TShiftState;X,Y:Integer);

Searching division char on the left or EOL

procedure Paint;


procedure ReadJumps;

Check that searching word not in selword or in jumps

procedure SetBorder(Bor:TBorderStyle);


procedure SetColor(Col:Tcolor);


procedure SetFont(Fnt:TFont);


procedure SetJumpColor(Col:Tcolor);


procedure SetJumpLength(Value:Integer);


procedure SetLines(Value: TStrings);


procedure SetSelColor(Col:Tcolor);


procedure SetSelWords(Value: TStrings);


procedure SetShowPages(Value: boolean);


procedure SetTextColor(Col:Tcolor);


procedure WMGetDlgCode(var M: TWMGetDlgCode);


procedure WMHScroll(var M: TWMHScroll);


procedure WMSize(var M: TWMSize);


procedure WMVScroll(var M: TWMVScroll);


Properties

property Align :


property BorderStyle : TBorderStyle


property Color : TColor


property Font : TFont

Published declarations

property HelpContext :


property JumpColor : TColor


property JumpPointLength : Integer


property Lines : TStrings


property ScrollBars : TScrollStyle


property SelectColor : TColor


property SelWords : TStrings


property ShowPages : Boolean


property TabStop :


property TextColor : TColor


property JumpWords : TStringList


Events

event OnJumpClick : TJumpClick


Variables

IsJump : boolean;


JmpStr : string;


PageCount : integer;

Public declarations

crMyCurs : TCursor;


FCharSize : TPoint;


FClientSize : TPoint;


FOrigin : TPoint;


FOverhang : longint;


FPageSize : longint;


FRange : TPoint;

Protected declarations

maxlen : longint;


maxstrlen : longint;


scx : longint;


Border : TBorderStyle;


FColor : TColor;


FFont : TFont;


FileLoaded : Boolean;


FJumpColor : TColor;


FJumpLength : Integer;


FLines : TStrings;


FOnJumpClick : TJumpClick;

Private declarations

FScrollBars : TScrollStyle;


FSelColor : TColor;


FSelWords : TStrings;


FShowPages : Boolean;


FTextColor : TColor;


JumpList : TStringList;


MyCursor : Integer;



Constructors


constructor Create(AnOwner: TComponent);


Functions


procedure Add(const Str:string);


destructor Destroy;


function GetCurPos:longint;


function GetPos(const Str:string;curpos:longint):longint;


function GotoWord(const Str:string;curpos:longint;Up:Boolean):longint;


procedure LoadFromFile(const FileName:string);


procedure Print(const fn:string;stpg,endpg:longint;infile,allfile:boolean);


procedure ScrollTo(X, Y: longint);


function Search(srstr:string;Down:boolean;posy:longint;var lasty:longint):boolean;


procedure ChangeScrollBars(Value: TScrollStyle);


procedure CreateParams(var Params: TCreateParams);


procedure FontChanged(Sender: TObject);


procedure InsertPages;


procedure JumpClick;


procedure RecalcRange;


procedure RemovePages;


procedure SetScrollBars;


procedure DoScroll(Which, Action, Thumb: longint);


Function GetWord(X,Y:integer):string;


procedure KeyDown(var Key: Word; Shift: TShiftState);


procedure MouseDown(Button: TMouseButton;Shift:TShiftState;X,Y:Integer);


procedure MouseMove(Shift:TShiftState;X,Y:Integer);

Searching division char on the left or EOL


procedure Paint;


procedure ReadJumps;

Check that searching word not in selword or in jumps


procedure SetBorder(Bor:TBorderStyle);


procedure SetColor(Col:Tcolor);


procedure SetFont(Fnt:TFont);


procedure SetJumpColor(Col:Tcolor);


procedure SetJumpLength(Value:Integer);


procedure SetLines(Value: TStrings);


procedure SetSelColor(Col:Tcolor);


procedure SetSelWords(Value: TStrings);


procedure SetShowPages(Value: boolean);


procedure SetTextColor(Col:Tcolor);


procedure WMGetDlgCode(var M: TWMGetDlgCode);


procedure WMHScroll(var M: TWMHScroll);


procedure WMSize(var M: TWMSize);


procedure WMVScroll(var M: TWMVScroll);


Properties


property Align :


property BorderStyle : TBorderStyle


property Color : TColor


property Font : TFont

Published declarations


property HelpContext :


property JumpColor : TColor


property JumpPointLength : Integer


property Lines : TStrings


property ScrollBars : TScrollStyle


property SelectColor : TColor


property SelWords : TStrings


property ShowPages : Boolean


property TabStop :


property TextColor : TColor


property JumpWords : TStringList


Events


event OnJumpClick : TJumpClick


Variables


IsJump : boolean;


JmpStr : string;


PageCount : integer;

Public declarations


crMyCurs : TCursor;


FCharSize : TPoint;


FClientSize : TPoint;


FOrigin : TPoint;


FOverhang : longint;


FPageSize : longint;


FRange : TPoint;

Protected declarations


maxlen : longint;


maxstrlen : longint;


scx : longint;


Border : TBorderStyle;


FColor : TColor;


FFont : TFont;


FileLoaded : Boolean;


FJumpColor : TColor;


FJumpLength : Integer;


FLines : TStrings;


FOnJumpClick : TJumpClick;

Private declarations


FScrollBars : TScrollStyle;


FSelColor : TColor;


FSelWords : TStrings;


FShowPages : Boolean;


FTextColor : TColor;


JumpList : TStringList;


MyCursor : Integer;