Class TViewText (unit Viewcode) |
Inherits from
TForm
-----
File: VIEWCODE.PAS for Project CODEAPP.DPR
-----
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 forstuff it once only
procedure DisplayPosition;
stuff it once only
procedure FindString(const Atag: integer);
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;
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);
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;