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

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

Delphi控件源码

开发平台：

Delphi

fcimagepanel.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcimagepanel.pas' rev: 5.00
  7. #ifndef fcimagepanelHPP
  8. #define fcimagepanelHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <fcImage.hpp> // Pascal unit
  15. #include <fcCommon.hpp> // Pascal unit
  16. #include <Buttons.hpp> // Pascal unit
  17. #include <ExtCtrls.hpp> // Pascal unit
  18. #include <StdCtrls.hpp> // Pascal unit
  19. #include <Dialogs.hpp> // Pascal unit
  20. #include <Forms.hpp> // Pascal unit
  21. #include <Controls.hpp> // Pascal unit
  22. #include <Graphics.hpp> // Pascal unit
  23. #include <Classes.hpp> // Pascal unit
  24. #include <SysUtils.hpp> // Pascal unit
  25. #include <Messages.hpp> // Pascal unit
  26. #include <Windows.hpp> // Pascal unit
  27. #include <SysInit.hpp> // Pascal unit
  28. #include <System.hpp> // Pascal unit
  30. //-- user supplied -----------------------------------------------------------
  32. namespace Fcimagepanel
  33. {
  34. //-- type declarations -------------------------------------------------------
  35. class DELPHICLASS TfcCustomImagePanel;
  36. class PASCALIMPLEMENTATION TfcCustomImagePanel : public Extctrls::TCustomPanel 
  37. {
  38. typedef Extctrls::TCustomPanel inherited;
  40. private:
  41. Graphics::TColor FTransparentColor;
  42. HRGN FRegion;
  43. Controls::TWinControl* FControl;
  44. Fcimage::TfcCustomImage* FImage;
  45. bool InUpdateSize;
  46. void __fastcall ReadRegions(Classes::TStream* Reader);
  47. void __fastcall WriteRegions(Classes::TStream* Writer);
  48. Graphics::TPicture* __fastcall GetPicture(void);
  49. void __fastcall SetPicture(Graphics::TPicture* Value);
  50. void __fastcall SetControl(Controls::TWinControl* Value);
  52. protected:
  53. virtual void __fastcall DestroyWnd(void);
  54. Graphics::TColor __fastcall GetTransparentColor(void);
  55. virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  56. virtual void __fastcall SetParent(Controls::TWinControl* Value);
  57. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  58. );
  59. virtual void __fastcall Paint(void);
  60. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  61. int Y);
  62. void __fastcall UpdateSize(void);
  64. public:
  65. Variant Patch;
  66. __fastcall virtual TfcCustomImagePanel(Classes::TComponent* Aowner);
  67. __fastcall virtual ~TfcCustomImagePanel(void);
  68. virtual void __fastcall ApplyBitmapRegion(void);
  69. __property HRGN RegionData = {read=FRegion, stored=true, nodefault};
  70. __property Graphics::TPicture* Picture = {read=GetPicture, write=SetPicture};
  71. __property Graphics::TColor TransparentColor = {read=FTransparentColor, write=FTransparentColor, default=536870911
  72. };
  73. __property Controls::TWinControl* Control = {read=FControl, write=SetControl};
  74. public:
  75. #pragma option push -w-inl
  76. /* TWinControl.CreateParented */ inline __fastcall TfcCustomImagePanel(HWND ParentWindow) : Extctrls::TCustomPanel(
  77. ParentWindow) { }
  78. #pragma option pop
  80. };
  83. class DELPHICLASS TfcImagePanel;
  84. class PASCALIMPLEMENTATION TfcImagePanel : public TfcCustomImagePanel 
  85. {
  86. typedef TfcCustomImagePanel inherited;
  88. __published:
  89. __property Align ;
  90. __property AutoSize ;
  91. __property Picture ;
  92. __property PopupMenu ;
  93. __property ShowHint ;
  94. __property Visible ;
  95. __property OnClick ;
  96. __property OnDblClick ;
  97. __property OnMouseDown ;
  98. __property OnMouseMove ;
  99. __property OnMouseUp ;
  100. __property TransparentColor ;
  101. public:
  102. #pragma option push -w-inl
  103. /* TfcCustomImagePanel.Create */ inline __fastcall virtual TfcImagePanel(Classes::TComponent* Aowner
  104. ) : TfcCustomImagePanel(Aowner) { }
  105. #pragma option pop
  106. #pragma option push -w-inl
  107. /* TfcCustomImagePanel.Destroy */ inline __fastcall virtual ~TfcImagePanel(void) { }
  108. #pragma option pop
  110. public:
  111. #pragma option push -w-inl
  112. /* TWinControl.CreateParented */ inline __fastcall TfcImagePanel(HWND ParentWindow) : TfcCustomImagePanel(
  113. ParentWindow) { }
  114. #pragma option pop
  116. };
  119. //-- var, const, procedure ---------------------------------------------------
  120. extern PACKAGE void __fastcall Register(void);
  122. } /* namespace Fcimagepanel */
  123. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  124. using namespace Fcimagepanel;
  125. #endif
  126. #pragma option pop // -w-
  127. #pragma option pop // -Vx
  129. #pragma delphiheader end.
  130. //-- end unit ----------------------------------------------------------------
  131. #endif // fcimagepanel