home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / kompon / d123456 / CHEMPLOT.ZIP / TPlot / Parser.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  2001-07-31  |  4.0 KB  |  133 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Parser.pas' rev: 3.00
  6.  
  7. #ifndef ParserHPP
  8. #define ParserHPP
  9. #include <Plotdefs.hpp>
  10. #include <Misc.hpp>
  11. #include <StdCtrls.hpp>
  12. #include <Grids.hpp>
  13. #include <Graphics.hpp>
  14. #include <Forms.hpp>
  15. #include <ExtCtrls.hpp>
  16. #include <Controls.hpp>
  17. #include <ComCtrls.hpp>
  18. #include <Buttons.hpp>
  19. #include <Windows.hpp>
  20. #include <SysUtils.hpp>
  21. #include <Classes.hpp>
  22. #include <SysInit.hpp>
  23. #include <System.hpp>
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Parser
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. enum TDelimiter { dlNone, dlTab, dlComma, dlSpace, dlColon, dlSemiColon, dlLineFeed, dlOwn };
  31.  
  32. enum TColumnType { ctIgnore, ctX, ctY };
  33.  
  34. struct TSeriesInfo
  35. {
  36.     int Index;
  37.     int XCol;
  38.     int XTextCol;
  39.     int YCol;
  40.     int XSeriesIndex;
  41.     float XValue;
  42.     float YValue;
  43. } ;
  44.  
  45. typedef TSeriesInfo TSeriesInfoArray[1024];
  46.  
  47. typedef TSeriesInfoArray *pSeriesInfoArray;
  48.  
  49. typedef System::AnsiString Parser__2[8];
  50.  
  51. class DELPHICLASS TParserForm;
  52. class PASCALIMPLEMENTATION TParserForm : public Forms::TForm 
  53. {
  54.     typedef Forms::TForm inherited;
  55.     
  56. __published:
  57.     Stdctrls::TListBox* DataListBox;
  58.     Stdctrls::TLabel* DelimiterLabel;
  59.     Stdctrls::TComboBox* DelimiterComboBox;
  60.     Stdctrls::TEdit* LineEdit;
  61.     Stdctrls::TGroupBox* SetGroupBox;
  62.     Stdctrls::TButton* SeriesNamesButton;
  63.     Stdctrls::TButton* FirstLineOfDataButton;
  64.     Buttons::TBitBtn* HelpBitBtn;
  65.     Buttons::TBitBtn* BitBtn2;
  66.     Buttons::TBitBtn* OKBitBtn;
  67.     Grids::TStringGrid* InfoGrid;
  68.     Stdctrls::TComboBox* PickXDataComboBox;
  69.     Stdctrls::TButton* ZDataLineButton;
  70.     Stdctrls::TLabel* NoSeriesLabel;
  71.     Buttons::TBitBtn* ExpandBitBtn;
  72.     Extctrls::TTimer* Timer1;
  73.     Stdctrls::TLabel* InstructionsLabel;
  74.     void __fastcall FormCreate(System::TObject* Sender);
  75.     void __fastcall DataListBoxClick(System::TObject* Sender);
  76.     void __fastcall FirstLineOfDataButtonClick(System::TObject* Sender);
  77.     void __fastcall SeriesNamesButtonClick(System::TObject* Sender);
  78.     void __fastcall InfoGridClick(System::TObject* Sender);
  79.     void __fastcall PickXDataComboBoxClick(System::TObject* Sender);
  80.     void __fastcall HelpBitBtnClick(System::TObject* Sender);
  81.     void __fastcall ZDataLineButtonClick(System::TObject* Sender);
  82.     void __fastcall FormResize(System::TObject* Sender);
  83.     void __fastcall ExpandBitBtnClick(System::TObject* Sender);
  84.     void __fastcall Timer1Timer(System::TObject* Sender);
  85.     
  86. private:
  87.     int OriginalHeight;
  88.     int InstructionIndex;
  89.     void __fastcall CheckDelimiter(void);
  90.     void __fastcall CalculateNoSeries(void);
  91.     
  92. public:
  93.     System::AnsiString Delimiters[8];
  94.     TDelimiter TheDelimiter;
  95.     int TheFirstDataLine;
  96.     int TheSeriesNamesLine;
  97.     int TheSeriesUnitsLine;
  98.     int TheZDataLine;
  99.     int NumberOfSeries;
  100.     int TheCol;
  101.     int TheRow;
  102.     bool XDataPresent;
  103.     void __fastcall DoHintsFromResource(void);
  104. public:
  105.     /* TCustomForm.Create */ __fastcall virtual TParserForm(Classes::TComponent* AOwner) : Forms::TForm(
  106.         AOwner) { }
  107.     /* TCustomForm.CreateNew */ __fastcall TParserForm(Classes::TComponent* AOwner, int Dummy) : Forms::
  108.         TForm(AOwner, Dummy) { }
  109.     /* TCustomForm.Destroy */ __fastcall virtual ~TParserForm(void) { }
  110.     
  111. public:
  112.     /* TWinControl.CreateParented */ __fastcall TParserForm(HWND ParentWindow) : Forms::TForm(ParentWindow
  113.         ) { }
  114.     
  115. };
  116.  
  117. //-- var, const, procedure ---------------------------------------------------
  118. #define COLUMN_NOS (Byte)(0)
  119. #define SERIES_NAMES (Byte)(1)
  120. #define FIRST_LINE_OF_DATA (Byte)(2)
  121. #define X_OR_Y_OR_Z (Byte)(3)
  122. #define DEPENDS_ON_X (Byte)(4)
  123. #define Z_DATA_LINE (Byte)(5)
  124. extern PACKAGE System::AnsiString DelimiterNames[8];
  125. extern PACKAGE TParserForm* ParserForm;
  126.  
  127. }    /* namespace Parser */
  128. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  129. using namespace Parser;
  130. #endif
  131. //-- end unit ----------------------------------------------------------------
  132. #endif    // Parser
  133.