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

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

Delphi控件源码

开发平台：

Delphi

fcimgbtn.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcImgBtn.pas' rev: 5.00
  7. #ifndef fcImgBtnHPP
  8. #define fcImgBtnHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <ActnList.hpp> // Pascal unit
  15. #include <ImgList.hpp> // Pascal unit
  16. #include <fcImager.hpp> // Pascal unit
  17. #include <fcChangeLink.hpp> // Pascal unit
  18. #include <fcBitmap.hpp> // Pascal unit
  19. #include <fcButton.hpp> // Pascal unit
  20. #include <fctext.hpp> // Pascal unit
  21. #include <fcCommon.hpp> // Pascal unit
  22. #include <SysUtils.hpp> // Pascal unit
  23. #include <Consts.hpp> // Pascal unit
  24. #include <Math.hpp> // Pascal unit
  25. #include <Dialogs.hpp> // Pascal unit
  26. #include <Buttons.hpp> // Pascal unit
  27. #include <CommCtrl.hpp> // Pascal unit
  28. #include <StdCtrls.hpp> // Pascal unit
  29. #include <Graphics.hpp> // Pascal unit
  30. #include <Forms.hpp> // Pascal unit
  31. #include <Controls.hpp> // Pascal unit
  32. #include <Classes.hpp> // Pascal unit
  33. #include <Messages.hpp> // Pascal unit
  34. #include <Windows.hpp> // Pascal unit
  35. #include <SysInit.hpp> // Pascal unit
  36. #include <System.hpp> // Pascal unit
  38. //-- user supplied -----------------------------------------------------------
  40. namespace Fcimgbtn
  41. {
  42. //-- type declarations -------------------------------------------------------
  43. #pragma option push -b-
  44. enum TfcDitherStyle { dsDither, dsBlendDither, dsFill };
  45. #pragma option pop
  47. class DELPHICLASS TfcImgDownOffsets;
  48. class PASCALIMPLEMENTATION TfcImgDownOffsets : public Fcbutton::TfcOffsets 
  49. {
  50. typedef Fcbutton::TfcOffsets inherited;
  52. private:
  53. int FImageDownX;
  54. int FImageDownY;
  56. protected:
  57. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  59. public:
  60. __fastcall TfcImgDownOffsets(Fcbutton::TfcCustomBitBtn* AControl);
  62. __published:
  63. __property int ImageDownX = {read=FImageDownX, write=FImageDownX, default=2};
  64. __property int ImageDownY = {read=FImageDownY, write=FImageDownY, default=2};
  65. public:
  66. #pragma option push -w-inl
  67. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcImgDownOffsets(void) { }
  68. #pragma option pop
  70. };
  73. class DELPHICLASS TfcCustomImageBtn;
  74. class PASCALIMPLEMENTATION TfcCustomImageBtn : public Fcbutton::TfcCustomBitBtn 
  75. {
  76. typedef Fcbutton::TfcCustomBitBtn inherited;
  78. private:
  79. Graphics::TColor FDitherColor;
  80. TfcDitherStyle FDitherStyle;
  81. Fcbitmap::TfcBitmap* FImage;
  82. Fcbitmap::TfcBitmap* FImageDown;
  83. Fcchangelink::TfcChangeLink* FImageChangeLink;
  84. Classes::TComponent* FExtImage;
  85. Classes::TComponent* FExtImageDown;
  86. Graphics::TColor FTransparentColor;
  87. TfcImgDownOffsets* __fastcall GetOffsets(void);
  88. bool __fastcall GetParentClipping(void);
  89. bool __fastcall GetRespectPalette(void);
  90. void __fastcall SetDitherColor(Graphics::TColor Value);
  91. void __fastcall SetDitherStyle(TfcDitherStyle Value);
  92. void __fastcall SetExtImage(Classes::TComponent* Value);
  93. void __fastcall SetExtImageDown(Classes::TComponent* Value);
  94. void __fastcall SetImage(Fcbitmap::TfcBitmap* Value);
  95. void __fastcall SetImageDown(Fcbitmap::TfcBitmap* Value);
  96. void __fastcall SetOffsets(TfcImgDownOffsets* Value);
  97. void __fastcall SetParentClipping(bool Value);
  98. void __fastcall SetRespectPalette(bool Value);
  99. void __fastcall SetTransparentColor(Graphics::TColor Value);
  101. protected:
  102. void __fastcall Draw3DLines(Fcbitmap::TfcBitmap* SrcBitmap, Fcbitmap::TfcBitmap* DstBitmap, Graphics::TColor TransColor, bool Down);
  103. void __fastcall SetExtImages(Classes::TComponent* Value, Classes::TComponent* &Prop);
  104. virtual void __fastcall WndProc(Messages::TMessage &Message);
  105. virtual HRGN __fastcall CreateRegion(bool DoImplementation, bool Down);
  106. virtual Fcbutton::TfcOffsets* __fastcall CreateOffsets(void);
  107. Graphics::TColor __fastcall GetTransparentColor(bool Down);
  108. virtual Fcbitmap::TfcBitmap* __fastcall ObtainImage(bool DownImage);
  109. virtual bool __fastcall StoreRegionData(void);
  110. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  111. virtual void __fastcall CreateWnd(void);
  112. virtual void __fastcall DestroyWnd(void);
  113. virtual void __fastcall GetSizedImage(Fcbitmap::TfcBitmap* SourceBitmap, Fcbitmap::TfcBitmap* DestBitmap, Fcbutton::TfcShadeStyle ShadeStyle, bool ForRegion, bool DownFlag);
  114. virtual void __fastcall ImageChanged(System::TObject* Sender);
  115. void __fastcall ExtImageDestroying(System::TObject* Sender);
  116. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  117. virtual bool __fastcall UseRegions(void);
  119. public:
  120. Variant Patch;
  121. __fastcall virtual TfcCustomImageBtn(Classes::TComponent* AOwner);
  122. __fastcall virtual ~TfcCustomImageBtn(void);
  123. virtual Graphics::TColor __fastcall ColorAtPoint(const Types::TPoint &APoint);
  124. virtual bool __fastcall IsMultipleRegions(void);
  125. virtual void __fastcall GetDrawBitmap(Fcbitmap::TfcBitmap* DrawBitmap, bool ForRegion, Fcbutton::TfcShadeStyle ShadeStyle, bool Down);
  126. virtual void __fastcall SplitImage(void);
  127. virtual void __fastcall SizeToDefault(void);
  128. __property Graphics::TColor DitherColor = {read=FDitherColor, write=SetDitherColor, nodefault};
  129. __property TfcDitherStyle DitherStyle = {read=FDitherStyle, write=SetDitherStyle, nodefault};
  130. __property Classes::TComponent* ExtImage = {read=FExtImage, write=SetExtImage};
  131. __property Classes::TComponent* ExtImageDown = {read=FExtImageDown, write=SetExtImageDown};
  132. __property Fcbitmap::TfcBitmap* Image = {read=FImage, write=SetImage};
  133. __property Fcbitmap::TfcBitmap* ImageDown = {read=FImageDown, write=SetImageDown};
  134. __property TfcImgDownOffsets* Offsets = {read=GetOffsets, write=SetOffsets};
  135. __property bool ParentClipping = {read=GetParentClipping, write=SetParentClipping, nodefault};
  136. __property bool RespectPalette = {read=GetRespectPalette, write=SetRespectPalette, default=0};
  137. __property Graphics::TColor TransparentColor = {read=FTransparentColor, write=SetTransparentColor, nodefault};
  138. public:
  139. #pragma option push -w-inl
  140. /* TWinControl.CreateParented */ inline __fastcall TfcCustomImageBtn(HWND ParentWindow) : Fcbutton::TfcCustomBitBtn(ParentWindow) { }
  141. #pragma option pop
  143. };
  146. class DELPHICLASS TfcImageBtn;
  147. class PASCALIMPLEMENTATION TfcImageBtn : public TfcCustomImageBtn 
  148. {
  149. typedef TfcCustomImageBtn inherited;
  151. __published:
  152. __property Action ;
  153. __property Anchors ;
  154. __property Constraints ;
  155. __property AllowAllUp ;
  156. __property Cancel ;
  157. __property Caption ;
  158. __property Color ;
  159. __property Default ;
  160. __property DitherColor ;
  161. __property DitherStyle ;
  162. __property DragCursor ;
  163. __property DragKind ;
  164. __property DragMode ;
  165. __property Down ;
  166. __property Font ;
  167. __property Enabled ;
  168. __property ExtImage ;
  169. __property ExtImageDown ;
  170. __property Glyph ;
  171. __property GroupIndex ;
  172. __property Image ;
  173. __property ImageDown ;
  174. __property Kind ;
  175. __property Layout ;
  176. __property Margin ;
  177. __property ModalResult ;
  178. __property NumGlyphs ;
  179. __property Offsets ;
  180. __property Options ;
  181. __property ParentClipping ;
  182. __property ParentFont ;
  183. __property ParentShowHint ;
  184. __property PopupMenu ;
  185. __property RespectPalette ;
  186. __property ShadeColors ;
  187. __property ShadeStyle ;
  188. __property ShowHint ;
  189. __property SmoothFont ;
  190. __property Style ;
  191. __property Spacing ;
  192. __property TabOrder ;
  193. __property TabStop ;
  194. __property TextOptions ;
  195. __property TransparentColor ;
  196. __property Visible ;
  197. __property OnClick ;
  198. __property OnDragDrop ;
  199. __property OnDragOver ;
  200. __property OnEndDrag ;
  201. __property OnEnter ;
  202. __property OnExit ;
  203. __property OnKeyDown ;
  204. __property OnKeyPress ;
  205. __property OnKeyUp ;
  206. __property OnMouseDown ;
  207. __property OnMouseEnter ;
  208. __property OnMouseLeave ;
  209. __property OnMouseMove ;
  210. __property OnMouseUp ;
  211. __property OnSelChange ;
  212. __property OnStartDrag ;
  213. public:
  214. #pragma option push -w-inl
  215. /* TfcCustomImageBtn.Create */ inline __fastcall virtual TfcImageBtn(Classes::TComponent* AOwner) : TfcCustomImageBtn(AOwner) { }
  216. #pragma option pop
  217. #pragma option push -w-inl
  218. /* TfcCustomImageBtn.Destroy */ inline __fastcall virtual ~TfcImageBtn(void) { }
  219. #pragma option pop
  221. public:
  222. #pragma option push -w-inl
  223. /* TWinControl.CreateParented */ inline __fastcall TfcImageBtn(HWND ParentWindow) : TfcCustomImageBtn(ParentWindow) { }
  224. #pragma option pop
  226. };
  229. //-- var, const, procedure ---------------------------------------------------
  231. } /* namespace Fcimgbtn */
  232. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  233. using namespace Fcimgbtn;
  234. #endif
  235. #pragma option pop // -w-
  236. #pragma option pop // -Vx
  238. #pragma delphiheader end.
  239. //-- end unit ----------------------------------------------------------------
  240. #endif // fcImgBtn