1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
//---------------------------------------------------------------------------
#ifndef fileseldlgH
#define fileseldlgH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <FileCtrl.hpp>
#include <ComCtrls.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TFileSelDialog : public TForm
{
__published:
TPanel *Panel1;
TDriveComboBox *DriveSel;
TPanel *Panel2;
TDirectoryListBox *DirSel;
TFileListBox *FileList;
TPanel *Panel3;
TFilterComboBox *Filter;
TLabel *DirLabel;
TBitBtn *BtnDirSel;
TPanel *Panel4;
TPanel *Panel5;
TSpeedButton *BtnUpdate;
void __fastcall FileListClick(TObject *Sender);
void __fastcall FormShow(TObject *Sender);
void __fastcall DirSelChange(TObject *Sender);
void __fastcall BtnDirSelClick(TObject *Sender);
void __fastcall FormResize(TObject *Sender);
void __fastcall DriveSelClick(TObject *Sender);
void __fastcall DirLabelClick(TObject *Sender);
void __fastcall FilterClick(TObject *Sender);
void __fastcall Panel4Click(TObject *Sender);
void __fastcall FileListMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y);
void __fastcall BtnUpdateClick(TObject *Sender);
private:
public:
AnsiString Dir;
__fastcall TFileSelDialog(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFileSelDialog *FileSelDialog;
//---------------------------------------------------------------------------
#endif
|
