home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / CompositeComponentsPack / DEMO / BxDual.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1999-02-12  |  3.7 KB  |  109 lines

  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'BxDual.pas' rev: 4.00
  6.  
  7. #ifndef BxDualHPP
  8. #define BxDualHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #include <Buttons.hpp>    // Pascal unit
  13. #include <ComCtrls.hpp>    // Pascal unit
  14. #include <StdCtrls.hpp>    // Pascal unit
  15. #include <ExtCtrls.hpp>    // Pascal unit
  16. #include <Boxes.hpp>    // Pascal unit
  17. #include <Dialogs.hpp>    // Pascal unit
  18. #include <Forms.hpp>    // Pascal unit
  19. #include <Controls.hpp>    // Pascal unit
  20. #include <Graphics.hpp>    // Pascal unit
  21. #include <Classes.hpp>    // Pascal unit
  22. #include <SysUtils.hpp>    // Pascal unit
  23. #include <Messages.hpp>    // Pascal unit
  24. #include <Windows.hpp>    // Pascal unit
  25. #include <SysInit.hpp>    // Pascal unit
  26. #include <System.hpp>    // Pascal unit
  27.  
  28. //-- user supplied -----------------------------------------------------------
  29.  
  30. namespace Bxdual
  31. {
  32. //-- type declarations -------------------------------------------------------
  33. class DELPHICLASS TBxDualList;
  34. #pragma pack(push, 4)
  35. class PASCALIMPLEMENTATION TBxDualList : public Boxes::TControlGroupBox 
  36. {
  37.     typedef Boxes::TControlGroupBox inherited;
  38.     
  39. __published:
  40.     Extctrls::TPanel* SrcPanel;
  41.     Stdctrls::TLabel* SrcLabel;
  42.     Stdctrls::TListBox* SrcList;
  43.     Extctrls::TPanel* BtnPanel;
  44.     Extctrls::TPanel* DstPanel;
  45.     Stdctrls::TLabel* DstLabel;
  46.     Stdctrls::TListBox* DstList;
  47.     Buttons::TSpeedButton* IncludeBtn;
  48.     Buttons::TSpeedButton* IncAllBtn;
  49.     Buttons::TSpeedButton* ExcludeBtn;
  50.     Buttons::TSpeedButton* ExAllBtn;
  51.     void __fastcall ExcAllBtnClick(System::TObject* Sender);
  52.     void __fastcall ExcludeBtnClick(System::TObject* Sender);
  53.     void __fastcall IncAllBtnClick(System::TObject* Sender);
  54.     void __fastcall IncludeBtnClick(System::TObject* Sender);
  55.     void __fastcall BxDualListResize(System::TObject* Sender);
  56.     
  57. private:
  58.     Classes::TStrings* __fastcall GetSrcItems(void);
  59.     Classes::TStrings* __fastcall GetDstItems(void);
  60.     void __fastcall SetSrcItems(const Classes::TStrings* Value);
  61.     void __fastcall SetDstItems(const Classes::TStrings* Value);
  62.     AnsiString __fastcall GetLabelSrc();
  63.     void __fastcall SetLabelSrc(const AnsiString Value);
  64.     AnsiString __fastcall GetLabelDst();
  65.     void __fastcall SetLabelDst(const AnsiString Value);
  66.     
  67. public:
  68.     void __fastcall MoveSelected(Stdctrls::TCustomListBox* List, Classes::TStrings* Items);
  69.     void __fastcall SetItem(Stdctrls::TListBox* List, int Index);
  70.     int __fastcall GetFirstSelection(Stdctrls::TCustomListBox* List);
  71.     void __fastcall SetButtons(void);
  72.     
  73. __published:
  74.     __property Align ;
  75.     __property Classes::TStrings* ItemsSrc = {read=GetSrcItems, write=SetSrcItems};
  76.     __property Classes::TStrings* ItemsDst = {read=GetDstItems, write=SetDstItems};
  77.     __property AnsiString LabelSrc = {read=GetLabelSrc, write=SetLabelSrc};
  78.     __property AnsiString LabelDst = {read=GetLabelDst, write=SetLabelDst};
  79. public:
  80.     #pragma option push -w-inl
  81.     /* TControlGroupBox.Create */ inline __fastcall virtual TBxDualList(Classes::TComponent* AOwner) : 
  82.         Boxes::TControlGroupBox(AOwner) { }
  83.     #pragma option pop
  84.     #pragma option push -w-inl
  85.     /* TControlGroupBox.Destroy */ inline __fastcall virtual ~TBxDualList(void) { }
  86.     #pragma option pop
  87.     
  88. public:
  89.     #pragma option push -w-inl
  90.     /* TWinControl.CreateParented */ inline __fastcall TBxDualList(HWND ParentWindow) : Boxes::TControlGroupBox(
  91.         ParentWindow) { }
  92.     #pragma option pop
  93.     
  94. };
  95.  
  96. #pragma pack(pop)
  97.  
  98. //-- var, const, procedure ---------------------------------------------------
  99.  
  100. }    /* namespace Bxdual */
  101. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  102. using namespace Bxdual;
  103. #endif
  104. #pragma option pop    // -w-
  105.  
  106. #pragma delphiheader end.
  107. //-- end unit ----------------------------------------------------------------
  108. #endif    // BxDual
  109.