Class TFileForm (unit Mainform) |
Inherits from
TForm
-----
File: MAINFORM.PAS for Project CODEAPP.DPR
Description:
Application to select a code file for viewing or copy and pasting
code sections from the file, or printing the file.
For text (ASCII) files only.
-----*) (* uncomment this to enable DDE
{$DEFINE Using DDE} {enables DDE}
procedure BtnExitClick(Sender: TObject);
-Show info on file selected or dropped on form
procedure BtnHelpClick(Sender: TObject);
-End this App
procedure DdeClientItem1Change(Sender: TObject);
DDE Stuff
procedure DDELinkBtnClick(Sender: TObject);
remove extraneous spaces
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
.
procedure FormCreate(Sender: TObject);
-Tell user basic use
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
-Respond to DropFile message
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
-Drop from file select dialog
procedure FormShow(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
let user choose new
procedure SelectFileBtnClick(Sender: TObject);
-Set up main form
procedure ViewBtnClick(Sender: TObject);
-Show selected file
procedure CheckCmdLine;
-Write to .
procedure ShowSelection(const FN: string);
procedure WndProc(var Msg: TMessage);
file's date string Drag and drop stuff
BtnExit : TBitBtn;
BtnHelp : TBitBtn;
DdeClientConv1 : TDdeClientConv;
DdeClientItem1 : TDdeClientItem;
DDELinkBtn : TBitBtn;
FileInfo : TLabel;
FilesName : TLabel;
Panel1 : TPanel;
PrintBtn : TBitBtn;
SelectFileBtn : TBitBtn;
UpdateBox : TCheckBox;
ViewBtn : TBitBtn;
FDateStr : string;
name of file
printing : boolean;
Private declarations
theFile : string;
procedure BtnExitClick(Sender: TObject);
-Show info on file selected or dropped on form
procedure BtnHelpClick(Sender: TObject);
-End this App
procedure DdeClientItem1Change(Sender: TObject);
DDE Stuff
procedure DDELinkBtnClick(Sender: TObject);
remove extraneous spaces
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
.INI file stuff
procedure FormCreate(Sender: TObject);
-Tell user basic use
procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer);
-Respond to DropFile message
procedure FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
-Drop from file select dialog
procedure FormShow(Sender: TObject);
procedure PrintBtnClick(Sender: TObject);
let user choose new
procedure SelectFileBtnClick(Sender: TObject);
-Set up main form
procedure ViewBtnClick(Sender: TObject);
-Show selected file
procedure CheckCmdLine;
-Write to .INI file
procedure ShowSelection(const FN: string);
procedure WndProc(var Msg: TMessage);
file's date string
Drag and drop stuff
BtnExit : TBitBtn;
BtnHelp : TBitBtn;
DdeClientConv1 : TDdeClientConv;
DdeClientItem1 : TDdeClientItem;
DDELinkBtn : TBitBtn;
FileInfo : TLabel;
FilesName : TLabel;
Panel1 : TPanel;
PrintBtn : TBitBtn;
SelectFileBtn : TBitBtn;
UpdateBox : TCheckBox;
ViewBtn : TBitBtn;
FDateStr : string;
name of file
printing : boolean;
Private declarations
theFile : string;