Class TViewText (unit Viewcode)

Inherits from

TForm

----- File: VIEWCODE.PAS for Project CODEAPP.DPR -----

Constructors



Functions

procedure CloseBtnClick(Sender: TObject);

center it

procedure Copy2TCBtnClick(Sender: TObject);

-Shows size of contents upon activation

procedure FindAgainBtnClick(Sender: TObject);

could put friendly msg box here instead

procedure FindWhatBtnClick(Sender: TObject);

-Find again action

procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);

-Copy StringGrid selection to Memo window

procedure HelpBtnClick(Sender: TObject);


procedure StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

-Some help

procedure StringGrid1TopLeftChanged(Sender: TObject);


procedure LoadFile(const FN, FD: string);

what to search for

stuff it once only


procedure DisplayPosition;

stuff it once only

procedure FindString(const Atag: integer);


Properties

Events

Variables

CloseBtn : TBitBtn;


Copy2TCBtn : TBitBtn;


FindAgainBtn : TBitBtn;


FindWhatBtn : TBitBtn;


HelpBtn : TBitBtn;


Label1 : TLabel;


Label3 : TLabel;


Panel1 : TPanel;


Panel3 : TPanel;


RefNoteOption : TCheckBox;


StringGrid1 : TStringGrid;


theTarget : string;

Public declarations

FirstTime : boolean;

Private declarations

fsize : LongInt;


Marker : string;


ViewFile : string;



Constructors


Functions


procedure CloseBtnClick(Sender: TObject);

center it


procedure Copy2TCBtnClick(Sender: TObject);

-Shows size of contents upon activation


procedure FindAgainBtnClick(Sender: TObject);

could put friendly msg box here instead


procedure FindWhatBtnClick(Sender: TObject);

-Find again action


procedure FormActivate(Sender: TObject);


procedure FormCreate(Sender: TObject);

-Copy StringGrid selection to Memo window


procedure HelpBtnClick(Sender: TObject);


procedure StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

-Some help


procedure StringGrid1TopLeftChanged(Sender: TObject);


procedure LoadFile(const FN, FD: string);

what to search for

stuff it once only


procedure DisplayPosition;

stuff it once only


procedure FindString(const Atag: integer);


Properties


Events


Variables


CloseBtn : TBitBtn;


Copy2TCBtn : TBitBtn;


FindAgainBtn : TBitBtn;


FindWhatBtn : TBitBtn;


HelpBtn : TBitBtn;


Label1 : TLabel;


Label3 : TLabel;


Panel1 : TPanel;


Panel3 : TPanel;


RefNoteOption : TCheckBox;


StringGrid1 : TStringGrid;


theTarget : string;

Public declarations


FirstTime : boolean;

Private declarations


fsize : LongInt;


Marker : string;


ViewFile : string;