Class TMainWindow (unit cd2html)

Inherits from

TForm

Constructors



Functions

procedure BtnBrowseClick(Sender: TObject);


procedure BtnDeleteClick(Sender: TObject);


procedure BtnExitClick(Sender: TObject);


procedure BtnHelp1Click(Sender: TObject);


procedure BtnInfoClick(Sender: TObject);


procedure BtnInsertClick(Sender: TObject);


procedure BtnLoadClick(Sender: TObject);


procedure BtnOptionClick(Sender: TObject);


procedure BtnPreviewClick(Sender: TObject);


procedure BtnPrintClick(Sender: TObject);


procedure BtnRunClick(Sender: TObject);

Unterverzeichnisse durchsuchen

procedure BtnSaveClick(Sender: TObject);

If FormOptions.

procedure BtnStop1Click(Sender: TObject);


procedure CheckBox1Click(Sender: TObject);


procedure DirectoryBoxChange(Sender: TObject);

With MainWindow.

procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);

in echten Pfad konvertieren

procedure GetAllFiles(mask:string);

ListBox1.

procedure GetDirSize(mask:string);


procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);


procedure ListView1DblClick(Sender: TObject);


procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure CustomSortProc(Col: integer; _Lo,_Hi: integer);

Path geclickt


procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure ListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure LoadAll(FileName: String);


procedure Print1Click(Sender: TObject);


procedure ReadOptions;


function RGB2hex(l:Longint):String;

Cursor wieder normal

procedure Save1Click(Sender: TObject);


procedure SaveAll(FileName: String);

Dateiaufbau 1.

procedure SaveAsHTML(FileName: String);

Dateiaufbau 1.

procedure WriteOptions;


procedure DisplayHint(Sender: TObject);

Private-Deklarationen

nach Datei-Pfad sortieren


Properties

Events

Variables

Bevel1 : TBevel;


Button1 : TButton;


EditPath : TEdit;


ImageList1 : TImageList;


ListView1 : TListView;


LoadDialog : TOpenDialog;


Panel2 : TPanel;


SaveDialog : TSaveDialog;


SBtnAbout1 : TSpeedButton;


SBtnDelete1 : TSpeedButton;


SBtnExit1 : TSpeedButton;


SBtnHelp1 : TSpeedButton;


SBtnInsert1 : TSpeedButton;


SBtnOpen1 : TSpeedButton;


SBtnOptions1 : TSpeedButton;


SBtnPreview1 : TSpeedButton;


SBtnPrint1 : TSpeedButton;


SBtnSave1 : TSpeedButton;


SBtnStart1 : TSpeedButton;


SBtnStop1 : TSpeedButton;


StatusBar1 : TStatusBar;



Constructors


Functions


procedure BtnBrowseClick(Sender: TObject);


procedure BtnDeleteClick(Sender: TObject);


procedure BtnExitClick(Sender: TObject);


procedure BtnHelp1Click(Sender: TObject);


procedure BtnInfoClick(Sender: TObject);


procedure BtnInsertClick(Sender: TObject);


procedure BtnLoadClick(Sender: TObject);


procedure BtnOptionClick(Sender: TObject);


procedure BtnPreviewClick(Sender: TObject);


procedure BtnPrintClick(Sender: TObject);


procedure BtnRunClick(Sender: TObject);

Unterverzeichnisse durchsuchen


procedure BtnSaveClick(Sender: TObject);

If FormOptions.CheckBox2.Checked then Write(f,' width=60%');


procedure BtnStop1Click(Sender: TObject);


procedure CheckBox1Click(Sender: TObject);


procedure DirectoryBoxChange(Sender: TObject);

With MainWindow.ListView1 do Begin If Selected.Index <> DropTarget.Index then Accept:=false; end;


procedure FormActivate(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);

in echten Pfad konvertieren


procedure GetAllFiles(mask:string);

ListBox1.Items.Add(verz+Search.Name+'\');


procedure GetDirSize(mask:string);


procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);


procedure ListView1DblClick(Sender: TObject);


procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);

procedure CustomSortProc(Col: integer; _Lo,_Hi: integer);

Path geclickt


procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure ListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure LoadAll(FileName: String);


procedure Print1Click(Sender: TObject);


procedure ReadOptions;


function RGB2hex(l:Longint):String;

Cursor wieder normal


procedure Save1Click(Sender: TObject);


procedure SaveAll(FileName: String);

Dateiaufbau 1. Text vor Überschrift (Content of) Überschrift Größe Laufwerk Pfad DocFG,DocBG,TableHeadFG,TableHeadBG,TableTextFG,TableTextBG LiestView.Items


procedure SaveAsHTML(FileName: String);

Dateiaufbau 1. Text vor Überschrift (Content of) Überschrift Größe Laufwerk Pfad DocFG,DocBG,TableHeadFG,TableHeadBG,TableTextFG,TableTextBG LiestView.Items


procedure WriteOptions;


procedure DisplayHint(Sender: TObject);

Private-Deklarationen

nach Datei-Pfad sortieren


Properties


Events


Variables


Bevel1 : TBevel;


Button1 : TButton;


EditPath : TEdit;


ImageList1 : TImageList;


ListView1 : TListView;


LoadDialog : TOpenDialog;


Panel2 : TPanel;


SaveDialog : TSaveDialog;


SBtnAbout1 : TSpeedButton;


SBtnDelete1 : TSpeedButton;


SBtnExit1 : TSpeedButton;


SBtnHelp1 : TSpeedButton;


SBtnInsert1 : TSpeedButton;


SBtnOpen1 : TSpeedButton;


SBtnOptions1 : TSpeedButton;


SBtnPreview1 : TSpeedButton;


SBtnPrint1 : TSpeedButton;


SBtnSave1 : TSpeedButton;


SBtnStart1 : TSpeedButton;


SBtnStop1 : TSpeedButton;


StatusBar1 : TStatusBar;