Class TFormMain (unit FormMainUnit)

Inherits from

TForm

This code was written by Ulf Grasse, SEPT 16, 1996. Please consider this code public domain (i.e. Freeware), but abide by the following rules: - If you find this code useful please email me or (better!) send me a postcard from your hometown. - If you have questions regarding this code and/or techniques and methods used in it, please feel free to email me with same. I can NOT guarantee a prompt answer, but I will try my best to keep up. Questions and inquiries which are accompanied or preceeded by a postcard receive priority handling. For replies I will *exclusively* use email. Be sure to include your e-mail address should you send a request via snail-mail or fax. - If you decide to add more features and make this a "real" program, I'd be interested to see the results. Please email me a .zip! - If you this code or any part of same in a shareware or commercial program, you are required to provide me with a roundtrip-ticket and one week hotel reservation as soon as you make your first MILLION on it... as if that'll ever happen. - You are required to smile while using this code or any part of it. You may contact me at: Ulf Grasse e-mail: software@ulf.net 705 King St. URL: http://www.ulf.net Rockford, IL 61103 USA Fax: 815-969-9476

Constructors



Functions

procedure BtnGenerateClick(Sender: TObject);


procedure BtnScanClick(Sender: TObject);

Generate the usual HTML page ending, then close the file

procedure AddHeader(Name : string);

might want to remove the 'target'

procedure AddURL(Name, URL : string);

Write a header (i.

procedure CloseHTML;

Write a URL

procedure OpenHTML;

The following procedures generate the HTML file

OK, all done


procedure ScanDir(Dir, Path : string; Indent : integer);

Public declarations } { This procedure is recursively called for every directory

Name of the html file


Properties

Events

Variables

BtnGenerate : TButton;


BtnScan : TButton;


LeftPanel : TPanel;


Memo : TMemo;


html : text;

Private declarations

writeHTML : boolean;

The output-file for generating HTML


Constructors


Functions


procedure BtnGenerateClick(Sender: TObject);


procedure BtnScanClick(Sender: TObject);

Generate the usual HTML page ending, then close the file


procedure AddHeader(Name : string);

might want to remove the 'target'


procedure AddURL(Name, URL : string);

Write a header (i.e. Directory name )


procedure CloseHTML;

Write a URL


procedure OpenHTML;

The following procedures generate the HTML file

OK, all done


procedure ScanDir(Dir, Path : string; Indent : integer);

Public declarations } { This procedure is recursively called for every directory

Name of the html file


Properties


Events


Variables


BtnGenerate : TButton;


BtnScan : TButton;


LeftPanel : TPanel;


Memo : TMemo;


html : text;

Private declarations


writeHTML : boolean;

The output-file for generating HTML