Class TForm2 (unit Child) |
Inherits from
TForm
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);
PaintBox1 : TPaintBox;
phScrollBox1 : TphScrollBox;
RowNumWidth : integer;
TextHeight : integer;
phScrollBox1: TphScrollBox;
TextWidth : integer;
TitleName : string;
Public declarations
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);
PaintBox1 : TPaintBox;
phScrollBox1 : TphScrollBox;
RowNumWidth : integer;
TextHeight : integer;
phScrollBox1: TphScrollBox;
TextWidth : integer;
TitleName : string;
Public declarations