Class TForm1 (unit Viewunit)

Inherits from

TForm

Constructors



Functions

procedure FileListBox1Change(Sender: TObject);


procedure FileListBox1DblClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


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

edit this file

procedure FormCreate(Sender: TObject);


procedure MediaPlayer1Notify(Sender: TObject);


Properties

Events

Variables

bbClose : TBitBtn;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


MediaPlayer1 : TMediaPlayer;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Table1 : TTable;


TabNB : TTabbedNotebook;


AppFileName : string;

Private declarations

DBees : string[80];


MultiMed : string[80];


Pictures : string[80];


Resizing : boolean;


Texts : string[80];



Constructors


Functions


procedure FileListBox1Change(Sender: TObject);


procedure FileListBox1DblClick(Sender: TObject);


procedure FormActivate(Sender: TObject);


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

edit this file


procedure FormCreate(Sender: TObject);


procedure MediaPlayer1Notify(Sender: TObject);


Properties


Events


Variables


bbClose : TBitBtn;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


FilterComboBox1 : TFilterComboBox;


Image1 : TImage;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


MediaPlayer1 : TMediaPlayer;


Memo1 : TMemo;


Panel1 : TPanel;


Panel2 : TPanel;


Table1 : TTable;


TabNB : TTabbedNotebook;


AppFileName : string;

Private declarations


DBees : string[80];


MultiMed : string[80];


Pictures : string[80];


Resizing : boolean;


Texts : string[80];