Class TMainWindow (unit cd2html) |
Inherits from
TForm
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
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;
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
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;