home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / COLEDIT.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  5.5 KB  |  166 lines
  1. //----------------------------------------------------------------------------
  2. // ColEdit.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: ColEdit.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ColEditHPP
  6. #define ColEditHPP
  7. //----------------------------------------------------------------------------
  8. #ifndef LibHelpHPP
  9. #include <LibHelp.hpp>
  10. #endif
  11.  
  12. #ifndef ComCtrlsHPP
  13. #include <ComCtrls.hpp>
  14. #endif
  15.  
  16. #ifndef StdCtrlsHPP
  17. #include <StdCtrls.hpp>
  18. #endif
  19.  
  20. #ifndef DialogsHPP
  21. #include <Dialogs.hpp>
  22. #endif
  23.  
  24. #ifndef FormsHPP
  25. #include <Forms.hpp>
  26. #endif
  27.  
  28. #ifndef ControlsHPP
  29. #include <Controls.hpp>
  30. #endif
  31.  
  32. #ifndef GraphicsHPP
  33. #include <Graphics.hpp>
  34. #endif
  35.  
  36. #ifndef ClassesHPP
  37. #include <Classes.hpp>
  38. #endif
  39.  
  40. #ifndef MessagesHPP
  41. #include <Messages.hpp>
  42. #endif
  43.  
  44. #ifndef WindowsHPP
  45. #include <Windows.hpp>
  46. #endif
  47.  
  48. #ifndef SysUtilsHPP
  49. #include <SysUtils.hpp>
  50. #endif
  51.  
  52. #ifndef SystemHPP
  53. #include <System.hpp>
  54. #endif
  55.  
  56. namespace Coledit
  57. {
  58. //-- type declarations -------------------------------------------------------
  59. class __declspec(delphiclass) TColInfo;
  60. class __declspec(pascalimplementation) TColInfo : public System::TObject
  61. {
  62.     typedef TColInfo ThisClass;
  63.     typedef System::TObject inherited;
  64.     
  65. private:
  66.     Classes::TList *FOwner;
  67.     System::AnsiString FCaption;
  68.     System::Integer FWidth;
  69.     System::Integer FIndex;
  70.     TAlignment FAlignment;
  71.     Comctrls::TWidth FWidthType;
  72.     System::Integer __fastcall GetIndex(void);
  73.     
  74. public:
  75.     __fastcall TColInfo(Classes::TList *AOwner, Comctrls::TListColumn *Column);
  76.     __fastcall virtual ~TColInfo(void);
  77.     __property System::Integer Index = {read=GetIndex, nodefault};
  78.     __property Classes::TList * Owner = {read=FOwner, nodefault};
  79. };
  80.  
  81. class __declspec(delphiclass) TListViewColumns;
  82. class __declspec(pascalimplementation) TListViewColumns : public Forms::TForm
  83. {
  84.     typedef TListViewColumns ThisClass;
  85.     typedef Forms::TForm inherited;
  86.     
  87. __published:
  88.     Stdctrls::TGroupBox *ColumnGroupBox;
  89.     Stdctrls::TGroupBox *PropGroupBox;
  90.     Stdctrls::TListBox *ColumnListBox;
  91.     Stdctrls::TButton *New;
  92.     Stdctrls::TButton *Delete;
  93.     Stdctrls::TButton *Ok;
  94.     Stdctrls::TButton *Cancel;
  95.     Stdctrls::TButton *Apply;
  96.     Stdctrls::TButton *Help;
  97.     Stdctrls::TLabel *Label1;
  98.     Stdctrls::TLabel *Label4;
  99.     Stdctrls::TEdit *TextEdit;
  100.     Stdctrls::TComboBox *AlignmentEdit;
  101.     Stdctrls::TGroupBox *GroupBox1;
  102.     Stdctrls::TEdit *WidthEdit;
  103.     Stdctrls::TRadioButton *HWidthBtn;
  104.     Stdctrls::TRadioButton *IWidthBtn;
  105.     Stdctrls::TRadioButton *WidthBtn;
  106.     void __fastcall ValueChanged(System::TObject *Sender);
  107.     void __fastcall DeleteClick(System::TObject *Sender);
  108.     void __fastcall TextEditExit(System::TObject *Sender);
  109.     void __fastcall IndexEditExit(System::TObject *Sender);
  110.     void __fastcall WidthEditExit(System::TObject *Sender);
  111.     void __fastcall ColumnListBoxClick(System::TObject *Sender);
  112.     void __fastcall NewClick(System::TObject *Sender);
  113.     void __fastcall FormCreate(System::TObject *Sender);
  114.     void __fastcall ApplyClick(System::TObject *Sender);
  115.     void __fastcall AlignmentEditExit(System::TObject *Sender);
  116.     void __fastcall FormDestroy(System::TObject *Sender);
  117.     void __fastcall ColumnListBoxDragOver(System::TObject *Sender, System::TObject *Source, System::Integer 
  118.         X, System::Integer Y, Controls::TDragState State, System::Boolean &Accept);
  119.     void __fastcall ColumnListBoxDragDrop(System::TObject *Sender, System::TObject *Source, System::Integer 
  120.         X, System::Integer Y);
  121.     void __fastcall ColumnListBoxStartDrag(System::TObject *Sender, Controls::TDragObject *&DragObject)
  122.         ;
  123.     void __fastcall ColumnListBoxEndDrag(System::TObject *Sender, System::TObject *Target, System::Integer 
  124.         X, System::Integer Y);
  125.     void __fastcall ColumnListBoxMouseDown(System::TObject *Sender, Controls::TMouseButton Button,  Classes::TShiftState 
  126.         Shift, System::Integer X, System::Integer Y);
  127.     void __fastcall HWidthBtnClick(System::TObject *Sender);
  128.     void __fastcall HelpClick(System::TObject *Sender);
  129.     
  130. private:
  131.     Classes::TList *FInfoList;
  132.     System::AnsiString FDefaultText;
  133.     System::Integer FDragIndex;
  134.     Comctrls::TListColumns *FColumns;
  135.     void __fastcall FlushControls(void);
  136.     void __fastcall GetItem(Comctrls::TListColumn *Value);
  137.     TColInfo *__fastcall GetColInfo(System::Integer Index);
  138.     System::AnsiString __fastcall ListBoxText(TColInfo *Value);
  139.     void __fastcall SetItem(TColInfo *Value);
  140.     void __fastcall SetListBoxText(System::Integer Index, const System::AnsiString S);
  141.     void __fastcall SetStates(void);
  142.     
  143. public:
  144.     __property TColInfo * ColItems[System::Integer Index] = {read=GetColInfo};
  145.     __property Comctrls::TListColumns * Columns = {read=FColumns, nodefault};
  146.     __property System::AnsiString DefaultText = {read=FDefaultText, nodefault};
  147.     __property Classes::TList * InfoList = {read=FInfoList, nodefault};
  148. public:
  149.     /* !! TForm.Create */ __fastcall virtual TListViewColumns(Classes::TComponent *AOwner) : Forms::TForm(
  150.         AOwner) { }
  151.     /* !! TForm.CreateNew */ __fastcall TListViewColumns(Classes::TComponent *AOwner, System::Integer Dummy
  152.         ) : Forms::TForm(AOwner, Dummy) { }
  153.     /* !! TForm.Destroy */ __fastcall virtual ~TListViewColumns(void) { }
  154.     
  155. };
  156.  
  157. //-- var, const, procedure ---------------------------------------------------
  158. extern System::Boolean __fastcall EditListViewColumns(Comctrls::TListColumns *AColumns);
  159.  
  160. }    /* namespace Coledit */
  161. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  162. using namespace Coledit;
  163. #endif
  164. //-- end unit ----------------------------------------------------------------
  165. #endif    // ColEdit
  166.