fcimagepanel.hpp
上传用户:hylc_2004
上传日期:2014-01-23
资源大小:46800k
文件大小:4k
源码类别:

Delphi控件源码

开发平台:

Delphi

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