home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d56 / LNGSUPP.ZIP / LangINISupport / MsgINISupp.hpp < prev    next >
C/C++ Source or Header  |  2001-12-14  |  3KB  |  81 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) 'MsgINISupp.pas' rev: 5.00
  6.  
  7. #ifndef MsgINISuppHPP
  8. #define MsgINISuppHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <LngINISupp.hpp>    // Pascal unit
  14. #include <Dialogs.hpp>    // Pascal unit
  15. #include <IniFiles.hpp>    // Pascal unit
  16. #include <Forms.hpp>    // Pascal unit
  17. #include <Controls.hpp>    // Pascal unit
  18. #include <Graphics.hpp>    // Pascal unit
  19. #include <Classes.hpp>    // Pascal unit
  20. #include <SysUtils.hpp>    // Pascal unit
  21. #include <Messages.hpp>    // Pascal unit
  22. #include <Windows.hpp>    // Pascal unit
  23. #include <SysInit.hpp>    // Pascal unit
  24. #include <System.hpp>    // Pascal unit
  25.  
  26. //-- user supplied -----------------------------------------------------------
  27.  
  28. namespace Msginisupp
  29. {
  30. //-- type declarations -------------------------------------------------------
  31. class DELPHICLASS TMsgINISupp;
  32. class PASCALIMPLEMENTATION TMsgINISupp : public Classes::TComponent 
  33. {
  34.     typedef Classes::TComponent inherited;
  35.     
  36. private:
  37.     AnsiString FFileName;
  38.     Lnginisupp::TLngINISupp* FLngINISupp;
  39.     void __fastcall SetFileName(const AnsiString Value);
  40.     void __fastcall SetLngINISupp(const Lnginisupp::TLngINISupp* Value);
  41.     void __fastcall CheckFile(AnsiString FN);
  42.     
  43. public:
  44.     void __fastcall Open(void);
  45.     void __fastcall Close(void);
  46.     AnsiString __fastcall GetMsg(AnsiString MsgName);
  47.     
  48. __published:
  49.     __property AnsiString FileName = {read=FFileName, write=SetFileName};
  50.     __property Lnginisupp::TLngINISupp* LngINISupp = {read=FLngINISupp, write=SetLngINISupp};
  51. public:
  52.     #pragma option push -w-inl
  53.     /* TComponent.Create */ inline __fastcall virtual TMsgINISupp(Classes::TComponent* AOwner) : Classes::TComponent(
  54.         AOwner) { }
  55.     #pragma option pop
  56.     #pragma option push -w-inl
  57.     /* TComponent.Destroy */ inline __fastcall virtual ~TMsgINISupp(void) { }
  58.     #pragma option pop
  59.     
  60. };
  61.  
  62.  
  63. //-- var, const, procedure ---------------------------------------------------
  64. extern PACKAGE Inifiles::TIniFile* AppIniMsg;
  65. extern PACKAGE Classes::TStrings* Values;
  66. extern PACKAGE BOOL FNF;
  67. extern PACKAGE BOOL FNP;
  68. extern PACKAGE BOOL Opened;
  69. extern PACKAGE void __fastcall Register(void);
  70.  
  71. }    /* namespace Msginisupp */
  72. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  73. using namespace Msginisupp;
  74. #endif
  75. #pragma option pop    // -w-
  76. #pragma option pop    // -Vx
  77.  
  78. #pragma delphiheader end.
  79. //-- end unit ----------------------------------------------------------------
  80. #endif    // MsgINISupp
  81.