home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / ITEMEDIT.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  5.0 KB  |  158 lines
  1. //----------------------------------------------------------------------------
  2. // ItemEdit.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: ItemEdit.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ItemEditHPP
  6. #define ItemEditHPP
  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 Itemedit
  57. {
  58. //-- type declarations -------------------------------------------------------
  59. class __declspec(delphiclass) TItemInfo;
  60. class __declspec(pascalimplementation) TItemInfo : public System::TObject
  61. {
  62.     typedef TItemInfo ThisClass;
  63.     typedef System::TObject inherited;
  64.     
  65. private:
  66.     Classes::TList *FOwner;
  67.     Classes::TStringList *FSubItems;
  68.     System::AnsiString FCaption;
  69.     System::Integer FImageIndex;
  70.     System::Integer FStateIndex;
  71.     System::Integer __fastcall GetIndex(void);
  72.     
  73. public:
  74.     __fastcall TItemInfo(Classes::TList *AOwner, Comctrls::TListItem *Item);
  75.     __fastcall virtual ~TItemInfo(void);
  76.     __property System::Integer Index = {read=GetIndex, nodefault};
  77.     __property Classes::TList * Owner = {read=FOwner, nodefault};
  78.     __property Classes::TStringList * SubItems = {read=FSubItems, nodefault};
  79. };
  80.  
  81. class __declspec(delphiclass) TListViewItems;
  82. class __declspec(pascalimplementation) TListViewItems : public Forms::TForm
  83. {
  84.     typedef TListViewItems ThisClass;
  85.     typedef Forms::TForm inherited;
  86.     
  87. __published:
  88.     Stdctrls::TGroupBox *GroupBox1;
  89.     Stdctrls::TGroupBox *PropGroupBox;
  90.     Stdctrls::TButton *New;
  91.     Stdctrls::TButton *Delete;
  92.     Stdctrls::TLabel *Label1;
  93.     Stdctrls::TLabel *Label2;
  94.     Stdctrls::TLabel *Label3;
  95.     Comctrls::TTreeView *TreeView;
  96.     Stdctrls::TButton *NewSub;
  97.     Stdctrls::TEdit *Text;
  98.     Stdctrls::TEdit *Image;
  99.     Stdctrls::TEdit *StateImage;
  100.     Stdctrls::TButton *Button4;
  101.     Stdctrls::TButton *Cancel;
  102.     Stdctrls::TButton *Apply;
  103.     Stdctrls::TButton *Button7;
  104.     void __fastcall NewClick(System::TObject *Sender);
  105.     void __fastcall NewSubClick(System::TObject *Sender);
  106.     void __fastcall DeleteClick(System::TObject *Sender);
  107.     void __fastcall ValueChange(System::TObject *Sender);
  108.     void __fastcall TextExit(System::TObject *Sender);
  109.     void __fastcall ImageExit(System::TObject *Sender);
  110.     void __fastcall StateImageExit(System::TObject *Sender);
  111.     void __fastcall FormCreate(System::TObject *Sender);
  112.     void __fastcall FormDestroy(System::TObject *Sender);
  113.     void __fastcall ApplyClick(System::TObject *Sender);
  114.     void __fastcall TreeViewChange(System::TObject *Sender, Comctrls::TTreeNode *Node);
  115.     void __fastcall TreeViewChanging(System::TObject *Sender, Comctrls::TTreeNode *Node, System::Boolean 
  116.         &AllowChange);
  117.     void __fastcall TreeViewDragOver(System::TObject *Sender, System::TObject *Source, System::Integer 
  118.         X, System::Integer Y, Controls::TDragState State, System::Boolean &Accept);
  119.     void __fastcall TreeViewDragDrop(System::TObject *Sender, System::TObject *Source, System::Integer 
  120.         X, System::Integer Y);
  121.     void __fastcall TreeViewEdited(System::TObject *Sender, Comctrls::TTreeNode *Node,  System::AnsiString &
  122.         S);
  123.     void __fastcall Button7Click(System::TObject *Sender);
  124.     
  125. private:
  126.     Classes::TList *FInfoList;
  127.     Comctrls::TListItems *FItems;
  128.     System::Boolean FDropping;
  129.     void __fastcall FlushControls(void);
  130.     void __fastcall GetItem(Comctrls::TListItem *Value);
  131.     TItemInfo *__fastcall GetItemInfo(System::Integer Index);
  132.     void __fastcall SetItem(TItemInfo *Value);
  133.     void __fastcall SetStates(void);
  134.     void __fastcall SetSubItem(const System::AnsiString S);
  135.     
  136. public:
  137.     __property TItemInfo * InfoItem[System::Integer Index] = {read=GetItemInfo};
  138.     __property Classes::TList * InfoList = {read=FInfoList, nodefault};
  139.     __property Comctrls::TListItems * Items = {read=FItems, nodefault};
  140. public:
  141.     /* !! TForm.Create */ __fastcall virtual TListViewItems(Classes::TComponent *AOwner) : Forms::TForm(
  142.         AOwner) { }
  143.     /* !! TForm.CreateNew */ __fastcall TListViewItems(Classes::TComponent *AOwner, System::Integer Dummy
  144.         ) : Forms::TForm(AOwner, Dummy) { }
  145.     /* !! TForm.Destroy */ __fastcall virtual ~TListViewItems(void) { }
  146.     
  147. };
  148.  
  149. //-- var, const, procedure ---------------------------------------------------
  150. extern System::Boolean __fastcall EditListViewItems(Comctrls::TListItems *AItems);
  151.  
  152. }    /* namespace Itemedit */
  153. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  154. using namespace Itemedit;
  155. #endif
  156. //-- end unit ----------------------------------------------------------------
  157. #endif    // ItemEdit
  158.