home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 March / Chip_2000-03_cd.bin / zkuste / Delphi / kompon / d345 / gui2console.EXE / demos / BCB3 / Unit1.h < prev   
C/C++ Source or Header  |  1998-05-08  |  2KB  |  53 lines
  1. //---------------------------------------------------------------------------
  2. #ifndef Unit1H
  3. #define Unit1H
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include <ExtCtrls.hpp>
  10. #include "ConsoleIO.hpp"
  11. //---------------------------------------------------------------------------
  12. class TForm1 : public TForm
  13. {
  14. __published:    // IDE-managed Components
  15.         TPanel *Panel1;
  16.         TEdit *Edit1;
  17.         TListBox *ListBox1;
  18.         TGUI2Console *GUI2Console1;
  19.         void __fastcall FormCreate(TObject *Sender);
  20.         void __fastcall GUI2Console1Start(TObject *Sender,
  21.           const AnsiString Command);
  22.         void __fastcall GUI2Console1Done(TObject *Sender);
  23.         void __fastcall GUI2Console1Line(TObject *Sender,
  24.           const AnsiString Line);
  25.         void __fastcall FormResize(TObject *Sender);
  26.         void __fastcall GUI2Console1Prompt(TObject *Sender,
  27.           const AnsiString Line);
  28.         void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
  29.         void __fastcall GUI2Console1Error(TObject *Sender,
  30.           const AnsiString Error);
  31.         void __fastcall ListBox1Enter(TObject *Sender);
  32.         void __fastcall Edit1KeyUp(TObject *Sender, WORD &Key,
  33.           TShiftState Shift);
  34.         void __fastcall GUI2Console1PreTerminate(TObject *Sender);
  35. private:    // User declarations
  36. public:        // User declarations
  37.         AnsiString Delimit;
  38.         char FKey;
  39.         __fastcall TForm1(TComponent* Owner);
  40.         int AddListBox(AnsiString E);
  41.  
  42. };
  43. //---------------------------------------------------------------------------
  44. extern PACKAGE TForm1 *Form1;
  45. //---------------------------------------------------------------------------
  46. enum TOSType {ostUnknown,ostWin95,ostWinNT} ;
  47. struct TPrompt {
  48.                  int Index;
  49.                  AnsiString Str;
  50.                  bool AtPrompt;
  51.                 } Prompt;
  52. #endif
  53.