Browse Subversion Repository
Contents of /CopalPro/OpenFile.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: 1353 byte(s)
First Commit
| 1 |
//--------------------------------------------------------------------------- |
| 2 |
#ifndef OpenFileH |
| 3 |
#define OpenFileH |
| 4 |
//--------------------------------------------------------------------------- |
| 5 |
#include <Classes.hpp> |
| 6 |
#include <Controls.hpp> |
| 7 |
#include <StdCtrls.hpp> |
| 8 |
#include <Forms.hpp> |
| 9 |
#include <Dialogs.hpp> |
| 10 |
//--------------------------------------------------------------------------- |
| 11 |
#include "KCopalConfig.h" |
| 12 |
#include "Main.h" |
| 13 |
//--------------------------------------------------------------------------- |
| 14 |
class TFOpenFile : public TForm { |
| 15 |
__published: // IDE 管理のコンポーネント |
| 16 |
TEdit *EdText; |
| 17 |
TButton *BtBrouse; |
| 18 |
TButton *BtOK; |
| 19 |
TButton *BtCancel; |
| 20 |
TLabel *LbMessage; |
| 21 |
TOpenDialog *OpenDialog; |
| 22 |
void __fastcall BtBrouseClick(TObject *Sender); |
| 23 |
private: // ユーザー宣言 |
| 24 |
public: // ユーザー宣言 |
| 25 |
|
| 26 |
bool Execute(void); |
| 27 |
void SetCaption(AnsiString cap) { |
| 28 |
Caption = cap; |
| 29 |
}; |
| 30 |
void SetMessage(AnsiString msg) { |
| 31 |
LbMessage->Caption = msg; |
| 32 |
}; |
| 33 |
void SetFileName(AnsiString _FileName) { |
| 34 |
EdText->Text = _FileName; |
| 35 |
}; |
| 36 |
AnsiString FileName; |
| 37 |
|
| 38 |
__fastcall TFOpenFile(TComponent* Owner); |
| 39 |
}; |
| 40 |
//--------------------------------------------------------------------------- |
| 41 |
extern PACKAGE TFOpenFile *FOpenFile; |
| 42 |
//--------------------------------------------------------------------------- |
| 43 |
#endif |
|