| Class TJumpMemo (unit Jmpmemo) |
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);
procedure Paint;
procedure ReadJumps;
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
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;
crMyCurs : TCursor;
FCharSize : TPoint;
FClientSize : TPoint;
FOrigin : TPoint;
FOverhang : longint;
FPageSize : longint;
FRange : TPoint;
maxlen : longint;
maxstrlen : longint;
scx : longint;
Border : TBorderStyle;
FColor : TColor;
FFont : TFont;
FileLoaded : Boolean;
FJumpColor : TColor;
FJumpLength : Integer;
FLines : TStrings;
FOnJumpClick : TJumpClick;
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 : TFontPublished 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;