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}

Constructors



Functions

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


Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;