Class TForm2 (unit Child)

Inherits from

TForm

Constructors



Functions

procedure OnChange(Sender: TObject; Kind: TphScrollBarKind);

phScrollBox1.

procedure OnClose(Sender: TObject; var Action: TCloseAction);


procedure OnCreate(Sender: TObject);


procedure OnPaint(Sender: TObject);

When there are no more data, Clear the bottom of PaintBox

procedure OnResize(Sender: TObject);


procedure OpenFile(const FileName: string);


procedure ProcessBuffer(Buffer: PChar; Size: integer);


function TrimText(str: String; Value: integer): String;

procedure OnChange(Sender: Tobject; Kind: TphScrollBarKind);

Properties

Events

Variables

PaintBox1 : TPaintBox;


phScrollBox1 : TphScrollBox;


RowNumWidth : integer;


TextHeight : integer;

phScrollBox1: TphScrollBox;

TextWidth : integer;


TitleName : string;

Public declarations


Constructors


Functions


procedure OnChange(Sender: TObject; Kind: TphScrollBarKind);

phScrollBox1.HorzScrollBar.Visible:= True; phScrollBox1.VertScrollBar.Visible:= True; phScrollBox1.OnChange:= OnChange; PaintBox1.Parent:= phScrollBox1; PaintBox1.Align:= alClient; Set canvas as Fixed font


procedure OnClose(Sender: TObject; var Action: TCloseAction);


procedure OnCreate(Sender: TObject);


procedure OnPaint(Sender: TObject);

When there are no more data, Clear the bottom of PaintBox


procedure OnResize(Sender: TObject);


procedure OpenFile(const FileName: string);


procedure ProcessBuffer(Buffer: PChar; Size: integer);


function TrimText(str: String; Value: integer): String;

procedure OnChange(Sender: Tobject; Kind: TphScrollBarKind);


Properties


Events


Variables


PaintBox1 : TPaintBox;


phScrollBox1 : TphScrollBox;


RowNumWidth : integer;


TextHeight : integer;

phScrollBox1: TphScrollBox;


TextWidth : integer;


TitleName : string;

Public declarations