home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / dbcombo.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  4KB  |  131 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) 'DBCombo.pas' rev: 5.00
  6.  
  7. #ifndef DBComboHPP
  8. #define DBComboHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Controls.hpp>    // Pascal unit
  14. #include <StdCtrls.hpp>    // Pascal unit
  15. #include <FileCtrl.hpp>    // Pascal unit
  16. #include <Graphics.hpp>    // Pascal unit
  17. #include <Classes.hpp>    // Pascal unit
  18. #include <SysUtils.hpp>    // Pascal unit
  19. #include <Windows.hpp>    // Pascal unit
  20. #include <SysInit.hpp>    // Pascal unit
  21. #include <System.hpp>    // Pascal unit
  22.  
  23. //-- user supplied -----------------------------------------------------------
  24.  
  25. namespace Dbcombo
  26. {
  27. //-- type declarations -------------------------------------------------------
  28. class DELPHICLASS TAliasDrive;
  29. class PASCALIMPLEMENTATION TAliasDrive : public Filectrl::TDriveComboBox 
  30. {
  31.     typedef Filectrl::TDriveComboBox inherited;
  32.     
  33. private:
  34.     Graphics::TBitmap* FAliasBitmap;
  35.     Classes::TStrings* FAliasList;
  36.     void __fastcall LoadBitmaps(void);
  37.     void __fastcall FreeBitmaps(void);
  38.     
  39. protected:
  40.     virtual void __fastcall BuildList(void);
  41.     DYNAMIC void __fastcall Click(void);
  42.     
  43. public:
  44.     __fastcall virtual TAliasDrive(Classes::TComponent* AOwner);
  45.     __fastcall virtual ~TAliasDrive(void);
  46.     void __fastcall AddAliases(Classes::TStrings* Value);
  47.     bool __fastcall SetAlias(const AnsiString EditText);
  48.     __property Graphics::TBitmap* AliasBitmap = {read=FAliasBitmap};
  49.     __property Classes::TStrings* AliasList = {read=FAliasList};
  50. public:
  51.     #pragma option push -w-inl
  52.     /* TWinControl.CreateParented */ inline __fastcall TAliasDrive(HWND ParentWindow) : Filectrl::TDriveComboBox(
  53.         ParentWindow) { }
  54.     #pragma option pop
  55.     
  56. };
  57.  
  58.  
  59. class DELPHICLASS TAliasListBox;
  60. class PASCALIMPLEMENTATION TAliasListBox : public Filectrl::TDirectoryListBox 
  61. {
  62.     typedef Filectrl::TDirectoryListBox inherited;
  63.     
  64. private:
  65.     bool FShowAlias;
  66.     AnsiString FAliasName;
  67.     Graphics::TBitmap* FAliasBitmap;
  68.     void __fastcall SetAliasBitmap(Graphics::TBitmap* Value);
  69.     
  70. protected:
  71.     virtual void __fastcall BuildList(void);
  72.     
  73. public:
  74.     __fastcall virtual TAliasListBox(Classes::TComponent* AOwner);
  75.     __fastcall virtual ~TAliasListBox(void);
  76.     __property AnsiString AliasName = {read=FAliasName, write=FAliasName};
  77.     __property Graphics::TBitmap* AliasBitmap = {read=FAliasBitmap, write=SetAliasBitmap};
  78.     __property bool ShowAlias = {read=FShowAlias, write=FShowAlias, nodefault};
  79. public:
  80.     #pragma option push -w-inl
  81.     /* TWinControl.CreateParented */ inline __fastcall TAliasListBox(HWND ParentWindow) : Filectrl::TDirectoryListBox(
  82.         ParentWindow) { }
  83.     #pragma option pop
  84.     
  85. };
  86.  
  87.  
  88. class DELPHICLASS TAliasFileListBox;
  89. class PASCALIMPLEMENTATION TAliasFileListBox : public Filectrl::TFileListBox 
  90. {
  91.     typedef Filectrl::TFileListBox inherited;
  92.     
  93. protected:
  94.     Classes::TStringList* FTableList;
  95.     bool FShowAlias;
  96.     AnsiString FAliasName;
  97.     bool FSystem;
  98.     virtual void __fastcall ReadFileNames(void);
  99.     virtual void __fastcall ReadBitmaps(void);
  100.     
  101. public:
  102.     __fastcall virtual TAliasFileListBox(Classes::TComponent* AOwner);
  103.     __fastcall virtual ~TAliasFileListBox(void);
  104.     __property Classes::TStringList* TableList = {read=FTableList};
  105.     __property bool ShowAlias = {read=FShowAlias, write=FShowAlias, nodefault};
  106.     __property AnsiString AliasName = {read=FAliasName, write=FAliasName};
  107.     __property bool System = {read=FSystem, write=FSystem, nodefault};
  108. public:
  109.     #pragma option push -w-inl
  110.     /* TWinControl.CreateParented */ inline __fastcall TAliasFileListBox(HWND ParentWindow) : Filectrl::TFileListBox(
  111.         ParentWindow) { }
  112.     #pragma option pop
  113.     
  114. };
  115.  
  116.  
  117. //-- var, const, procedure ---------------------------------------------------
  118. extern PACKAGE void __fastcall ProcessAlias(AnsiString EditText, AnsiString &Alias, AnsiString &DirPart
  119.     , AnsiString &FilePart);
  120.  
  121. }    /* namespace Dbcombo */
  122. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  123. using namespace Dbcombo;
  124. #endif
  125. #pragma option pop    // -w-
  126. #pragma option pop    // -Vx
  127.  
  128. #pragma delphiheader end.
  129. //-- end unit ----------------------------------------------------------------
  130. #endif    // DBCombo
  131.