Browse Subversion Repository
Contents of /CopalPro/OpenDir.h
Parent Directory
| Revision Log
Revision 1 -
( show annotations)
( download)
( as text)
Thu Jul 28 09:05:52 2011 UTC
(12 years, 9 months ago)
by kaityo
File MIME type: text/x-chdr
File size: 1052 byte(s)
First Commit
| 1 |
//--------------------------------------------------------------------------- |
| 2 |
#ifndef OpenDirH |
| 3 |
#define OpenDirH |
| 4 |
//--------------------------------------------------------------------------- |
| 5 |
#include <Classes.hpp> |
| 6 |
#include <Controls.hpp> |
| 7 |
#include <StdCtrls.hpp> |
| 8 |
#include <Forms.hpp> |
| 9 |
#include <FileCtrl.hpp> |
| 10 |
//--------------------------------------------------------------------------- |
| 11 |
class TFOpenDir : public TForm { |
| 12 |
__published: // IDE 管理のコンポーネント |
| 13 |
TDriveComboBox *DriveComboBox; |
| 14 |
TDirectoryListBox *DirectoryListBox; |
| 15 |
TButton *Button1; |
| 16 |
TButton *Button2; |
| 17 |
void __fastcall FormKeyPress(TObject *Sender, char &Key); |
| 18 |
private: // ユーザー宣言 |
| 19 |
|
| 20 |
AnsiString Dir; |
| 21 |
|
| 22 |
public: // ユーザー宣言 |
| 23 |
|
| 24 |
bool Execute(void); |
| 25 |
AnsiString GetDir(void) { |
| 26 |
return Dir; |
| 27 |
}; |
| 28 |
|
| 29 |
__fastcall TFOpenDir(TComponent* Owner); |
| 30 |
}; |
| 31 |
//--------------------------------------------------------------------------- |
| 32 |
extern PACKAGE TFOpenDir *FOpenDir; |
| 33 |
//--------------------------------------------------------------------------- |
| 34 |
#endif |
|