| Class TViewText (unit Viewcode) |
TForm
----- File: VIEWCODE.PAS for Project CODEAPP.DPR -----
| Constructors |
| Functions |
procedure CloseBtnClick(Sender: TObject);
procedure Copy2TCBtnClick(Sender: TObject);
procedure FindAgainBtnClick(Sender: TObject);
procedure FindWhatBtnClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure HelpBtnClick(Sender: TObject);
procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
procedure StringGrid1TopLeftChanged(Sender: TObject);
procedure LoadFile(const FN, FD: string);stuff it once only
procedure DisplayPosition;
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;
FirstTime : boolean;
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;