开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
fcclearpanel.hpp
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

fcclearpanel.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcClearPanel.pas' rev: 5.00
  7. #ifndef fcClearPanelHPP
  8. #define fcClearPanelHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <fcCommon.hpp> // Pascal unit
  14. #include <ExtCtrls.hpp> // Pascal unit
  15. #include <Buttons.hpp> // Pascal unit
  16. #include <StdCtrls.hpp> // Pascal unit
  17. #include <Commctrl.hpp> // Pascal unit
  18. #include <Dialogs.hpp> // Pascal unit
  19. #include <Forms.hpp> // Pascal unit
  20. #include <Controls.hpp> // Pascal unit
  21. #include <Graphics.hpp> // Pascal unit
  22. #include <Classes.hpp> // Pascal unit
  23. #include <SysUtils.hpp> // Pascal unit
  24. #include <Messages.hpp> // Pascal unit
  25. #include <Windows.hpp> // Pascal unit
  26. #include <SysInit.hpp> // Pascal unit
  27. #include <System.hpp> // Pascal unit
  29. //-- user supplied -----------------------------------------------------------
  31. namespace Fcclearpanel
  32. {
  33. //-- type declarations -------------------------------------------------------
  34. class DELPHICLASS TfcCustomTransparentPanel;
  35. class PASCALIMPLEMENTATION TfcCustomTransparentPanel : public Extctrls::TCustomPanel 
  36. {
  37. typedef Extctrls::TCustomPanel inherited;
  39. private:
  40. HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
  41. HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
  43. protected:
  44. bool FTransparent;
  45. bool FInEraseBkGnd;
  46. void __fastcall ClipChildren(bool Value);
  47. virtual void __fastcall SetTransparent(bool Value);
  48. virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  49. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  50. virtual void __fastcall CreateWnd(void);
  51. virtual void __fastcall Paint(void);
  52. virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  53. virtual bool __fastcall IsTransparent(void);
  55. public:
  56. Variant BasePatch;
  57. __fastcall virtual TfcCustomTransparentPanel(Classes::TComponent* AOwner);
  58. virtual void __fastcall Invalidate(void);
  59. __property bool Transparent = {read=FTransparent, write=SetTransparent, nodefault};
  60. public:
  61. #pragma option push -w-inl
  62. /* TCustomControl.Destroy */ inline __fastcall virtual ~TfcCustomTransparentPanel(void) { }
  63. #pragma option pop
  65. public:
  66. #pragma option push -w-inl
  67. /* TWinControl.CreateParented */ inline __fastcall TfcCustomTransparentPanel(HWND ParentWindow) : Extctrls::TCustomPanel(
  68. ParentWindow) { }
  69. #pragma option pop
  71. };
  74. class DELPHICLASS TfcTransparentPanel;
  75. class PASCALIMPLEMENTATION TfcTransparentPanel : public TfcCustomTransparentPanel 
  76. {
  77. typedef TfcCustomTransparentPanel inherited;
  79. __published:
  80. __property Align ;
  81. __property BevelInner ;
  82. __property BevelOuter ;
  83. __property BevelWidth ;
  84. __property BorderStyle ;
  85. __property BorderWidth ;
  86. __property Color ;
  87. __property Transparent ;
  88. public:
  89. #pragma option push -w-inl
  90. /* TfcCustomTransparentPanel.Create */ inline __fastcall virtual TfcTransparentPanel(Classes::TComponent* 
  91. AOwner) : TfcCustomTransparentPanel(AOwner) { }
  92. #pragma option pop
  94. public:
  95. #pragma option push -w-inl
  96. /* TCustomControl.Destroy */ inline __fastcall virtual ~TfcTransparentPanel(void) { }
  97. #pragma option pop
  99. public:
  100. #pragma option push -w-inl
  101. /* TWinControl.CreateParented */ inline __fastcall TfcTransparentPanel(HWND ParentWindow) : TfcCustomTransparentPanel(
  102. ParentWindow) { }
  103. #pragma option pop
  105. };
  108. //-- var, const, procedure ---------------------------------------------------
  110. } /* namespace Fcclearpanel */
  111. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  112. using namespace Fcclearpanel;
  113. #endif
  114. #pragma option pop // -w-
  115. #pragma option pop // -Vx
  117. #pragma delphiheader end.
  118. //-- end unit ----------------------------------------------------------------
  119. #endif // fcClearPanel