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