home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / ITEMEDIT.HPP < prev    next >
C/C++ Source or Header  |  1997-02-28  |  5KB  |  132 lines
  1. //----------------------------------------------------------------------------
  2. // ItemEdit.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: ItemEdit.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef ItemEditHPP
  6. #define ItemEditHPP
  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 Itemedit
  25. {
  26. //-- type declarations -------------------------------------------------------
  27. class __declspec(delphiclass) TItemInfo;
  28. class __declspec(pascalimplementation) TItemInfo : public System::TObject
  29. {
  30.     typedef System::TObject inherited;
  31.     
  32. private:
  33.     Classes::TList* FOwner;
  34.     Classes::TStringList* FSubItems;
  35.     System::AnsiString FCaption;
  36.     int FImageIndex;
  37.     int FStateIndex;
  38.     int __fastcall GetIndex(void);
  39.     
  40. public:
  41.     __fastcall TItemInfo(Classes::TList* AOwner, Comctrls::TListItem* Item);
  42.     __fastcall virtual ~TItemInfo(void);
  43.     __property int Index = {read=GetIndex, nodefault};
  44.     __property Classes::TList* Owner = {read=FOwner, nodefault};
  45.     __property Classes::TStringList* SubItems = {read=FSubItems, nodefault};
  46. };
  47.  
  48. class __declspec(delphiclass) TListViewItems;
  49. class __declspec(pascalimplementation) TListViewItems : public Forms::TForm
  50. {
  51.     typedef Forms::TForm inherited;
  52.     
  53. __published:
  54.     Stdctrls::TGroupBox* GroupBox1;
  55.     Stdctrls::TGroupBox* PropGroupBox;
  56.     Stdctrls::TButton* New;
  57.     Stdctrls::TButton* Delete;
  58.     Stdctrls::TLabel* Label1;
  59.     Stdctrls::TLabel* Label2;
  60.     Stdctrls::TLabel* Label3;
  61.     Comctrls::TTreeView* TreeView;
  62.     Stdctrls::TButton* NewSub;
  63.     Stdctrls::TEdit* Text;
  64.     Stdctrls::TEdit* Image;
  65.     Stdctrls::TEdit* StateImage;
  66.     Stdctrls::TButton* Button4;
  67.     Stdctrls::TButton* Cancel;
  68.     Stdctrls::TButton* Apply;
  69.     Stdctrls::TButton* Button7;
  70.     void __fastcall NewClick(System::TObject* Sender);
  71.     void __fastcall NewSubClick(System::TObject* Sender);
  72.     void __fastcall DeleteClick(System::TObject* Sender);
  73.     void __fastcall ValueChange(System::TObject* Sender);
  74.     void __fastcall TextExit(System::TObject* Sender);
  75.     void __fastcall ImageExit(System::TObject* Sender);
  76.     void __fastcall StateImageExit(System::TObject* Sender);
  77.     void __fastcall FormCreate(System::TObject* Sender);
  78.     void __fastcall FormDestroy(System::TObject* Sender);
  79.     void __fastcall ApplyClick(System::TObject* Sender);
  80.     void __fastcall TreeViewChange(System::TObject* Sender, Comctrls::TTreeNode* Node);
  81.     void __fastcall TreeViewChanging(System::TObject* Sender, Comctrls::TTreeNode* Node, bool &AllowChange
  82.         );
  83.     void __fastcall TreeViewDragOver(System::TObject* Sender, System::TObject* Source, int X, int Y, Controls::TDragState 
  84.         State, bool &Accept);
  85.     void __fastcall TreeViewDragDrop(System::TObject* Sender, System::TObject* Source, int X, int Y);
  86.     void __fastcall TreeViewEdited(System::TObject* Sender, Comctrls::TTreeNode* Node,  System::AnsiString &
  87.         S);
  88.     void __fastcall Button7Click(System::TObject* Sender);
  89.     
  90. private:
  91.     Classes::TList* FInfoList;
  92.     Comctrls::TListItems* FItems;
  93.     bool FDropping;
  94.     void __fastcall FlushControls(void);
  95.     void __fastcall GetItem(Comctrls::TListItem* Value);
  96.     TItemInfo* __fastcall GetItemInfo(int Index);
  97.     void __fastcall SetItem(TItemInfo* Value);
  98.     void __fastcall SetStates(void);
  99.     void __fastcall SetSubItem(const System::AnsiString S);
  100.     
  101. public:
  102.     __property TItemInfo* InfoItem[int Index] = {read=GetItemInfo};
  103.     __property Classes::TList* InfoList = {read=FInfoList, nodefault};
  104.     __property Comctrls::TListItems* Items = {read=FItems, nodefault};
  105. public:
  106.     /* TForm.Create */ __fastcall virtual TListViewItems(Classes::TComponent* AOwner) : Forms::TForm(AOwner
  107.         ) { }
  108.     /* TForm.CreateNew */ __fastcall TListViewItems(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
  109.         AOwner, Dummy) { }
  110.     /* TForm.Destroy */ __fastcall virtual ~TListViewItems(void) { }
  111.     
  112. public:
  113.     /* TWinControl.CreateParented */ __fastcall TListViewItems(HWND ParentWindow) : Forms::TForm(ParentWindow
  114.         ) { }
  115.     
  116. };
  117.  
  118. //-- var, const, procedure ---------------------------------------------------
  119. extern bool __fastcall EditListViewItems(Comctrls::TListItems* AItems);
  120.  
  121. }    /* namespace Itemedit */
  122.  
  123. #pragma warn .par
  124. #pragma warn .hid 
  125. #pragma warn .inl
  126.  
  127. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  128. using namespace Itemedit;
  129. #endif
  130. //-- end unit ----------------------------------------------------------------
  131. #endif    // ItemEdit
  132.