| Class TForm2 (unit Child) |
TForm
| Constructors |
| Functions |
procedure OnChange(Sender: TObject; Kind: TphScrollBarKind);
procedure OnClose(Sender: TObject; var Action: TCloseAction);
procedure OnCreate(Sender: TObject);
procedure OnPaint(Sender: TObject);
procedure OnResize(Sender: TObject);
procedure OpenFile(const FileName: string);
procedure ProcessBuffer(Buffer: PChar; Size: integer);
function TrimText(str: String; Value: integer): String;| Properties |
| Events |
| Variables |
PaintBox1 : TPaintBox;
phScrollBox1 : TphScrollBox;
RowNumWidth : integer;
TextHeight : integer;
TextWidth : integer;
TitleName : string;| 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