home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 March / Chip_2002-03_cd1.bin / zkuste / delphi / kompon / d56 / LNGSUPP.ZIP / LangINISupport / LngINISupp.hpp < prev    next >
C/C++ Source or Header  |  2001-12-14  |  3KB  |  104 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) 'LngINISupp.pas' rev: 5.00
  6.  
  7. #ifndef LngINISuppHPP
  8. #define LngINISuppHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Buttons.hpp>    // Pascal unit
  14. #include <ComCtrls.hpp>    // Pascal unit
  15. #include <Chart.hpp>    // Pascal unit
  16. #include <ExtCtrls.hpp>    // Pascal unit
  17. #include <Menus.hpp>    // Pascal unit
  18. #include <StdCtrls.hpp>    // Pascal unit
  19. #include <IniFiles.hpp>    // Pascal unit
  20. #include <Dialogs.hpp>    // Pascal unit
  21. #include <Forms.hpp>    // Pascal unit
  22. #include <Controls.hpp>    // Pascal unit
  23. #include <Graphics.hpp>    // Pascal unit
  24. #include <Classes.hpp>    // Pascal unit
  25. #include <SysUtils.hpp>    // Pascal unit
  26. #include <Messages.hpp>    // Pascal unit
  27. #include <Windows.hpp>    // Pascal unit
  28. #include <SysInit.hpp>    // Pascal unit
  29. #include <System.hpp>    // Pascal unit
  30.  
  31. //-- user supplied -----------------------------------------------------------
  32.  
  33. namespace Lnginisupp
  34. {
  35. //-- type declarations -------------------------------------------------------
  36. class DELPHICLASS TLngINISupp;
  37. class PASCALIMPLEMENTATION TLngINISupp : public Classes::TComponent 
  38. {
  39.     typedef Classes::TComponent inherited;
  40.     
  41. private:
  42.     AnsiString FFileName;
  43.     Menus::TMainMenu* FMenu;
  44.     Menus::TPopupMenu* FPMenu;
  45.     void __fastcall SetFileName(const AnsiString Value);
  46.     void __fastcall CheckFile(AnsiString FN);
  47.     void __fastcall FindCaptions(void);
  48.     void __fastcall MenuOnClick(System::TObject* Sender);
  49.     void __fastcall PMenuOnClick(System::TObject* Sender);
  50.     void __fastcall ReadCaptions(void);
  51.     void __fastcall FindLngFilesM(void);
  52.     void __fastcall FindLngFilesP(void);
  53.     void __fastcall VerifyValue(AnsiString FormName, AnsiString CompName, AnsiString CapLab);
  54.     void __fastcall SetMenu(const Menus::TMainMenu* Value);
  55.     void __fastcall SetPMenu(const Menus::TPopupMenu* Value);
  56.     
  57. public:
  58.     void __fastcall Open(void);
  59.     void __fastcall Close(void);
  60.     void __fastcall Read(void);
  61.     void __fastcall Save(void);
  62.     
  63. __published:
  64.     __property AnsiString FileName = {read=FFileName, write=SetFileName};
  65.     __property Menus::TMainMenu* Menu = {read=FMenu, write=SetMenu};
  66.     __property Menus::TPopupMenu* PopupMenu = {read=FPMenu, write=SetPMenu};
  67. public:
  68.     #pragma option push -w-inl
  69.     /* TComponent.Create */ inline __fastcall virtual TLngINISupp(Classes::TComponent* AOwner) : Classes::TComponent(
  70.         AOwner) { }
  71.     #pragma option pop
  72.     #pragma option push -w-inl
  73.     /* TComponent.Destroy */ inline __fastcall virtual ~TLngINISupp(void) { }
  74.     #pragma option pop
  75.     
  76. };
  77.  
  78.  
  79. //-- var, const, procedure ---------------------------------------------------
  80. extern PACKAGE Inifiles::TIniFile* AppIni;
  81. extern PACKAGE BOOL FNF;
  82. extern PACKAGE BOOL FNP;
  83. extern PACKAGE BOOL VV;
  84. extern PACKAGE BOOL MC;
  85. extern PACKAGE BOOL PC;
  86. extern PACKAGE Classes::TStrings* LngFiles;
  87. extern PACKAGE Menus::TMenuItem* Lng;
  88. extern PACKAGE Menus::TMenuItem* Child;
  89. extern PACKAGE Menus::TMenuItem* PLng;
  90. extern PACKAGE Menus::TMenuItem* PChild;
  91. extern PACKAGE BOOL Changed;
  92. extern PACKAGE void __fastcall Register(void);
  93.  
  94. }    /* namespace Lnginisupp */
  95. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  96. using namespace Lnginisupp;
  97. #endif
  98. #pragma option pop    // -w-
  99. #pragma option pop    // -Vx
  100.  
  101. #pragma delphiheader end.
  102. //-- end unit ----------------------------------------------------------------
  103. #endif    // LngINISupp
  104.