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

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

Delphi控件源码

开发平台：

Delphi

fcpanel.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcpanel.pas' rev: 5.00
  7. #ifndef fcpanelHPP
  8. #define fcpanelHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <fcframe.hpp> // Pascal unit
  15. #include <Graphics.hpp> // Pascal unit
  16. #include <ExtCtrls.hpp> // Pascal unit
  17. #include <Buttons.hpp> // Pascal unit
  18. #include <StdCtrls.hpp> // Pascal unit
  19. #include <CommCtrl.hpp> // Pascal unit
  20. #include <Forms.hpp> // Pascal unit
  21. #include <Controls.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 Fcpanel
  32. {
  33. //-- type declarations -------------------------------------------------------
  34. class DELPHICLASS TfcCustomPanel;
  35. class PASCALIMPLEMENTATION TfcCustomPanel : public Extctrls::TCustomPanel 
  36. {
  37. typedef Extctrls::TCustomPanel inherited;
  39. private:
  40. Fcframe::TfcEditFrame* FFrame;
  41. bool FFocused;
  42. HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
  43. HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
  44. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  45. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  46. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  48. protected:
  49. bool FTransparent;
  50. void __fastcall ClipChildren(bool Value);
  51. virtual void __fastcall CreateWnd(void);
  52. virtual void __fastcall SetTransparent(bool Value);
  53. virtual void __fastcall Paint(void);
  54. virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
  55. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  56. virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  57. virtual bool __fastcall IsTransparent(void);
  58. virtual bool __fastcall InvalidateNeeded(void);
  60. public:
  61. __fastcall virtual TfcCustomPanel(Classes::TComponent* AOwner);
  62. __fastcall virtual ~TfcCustomPanel(void);
  63. virtual void __fastcall Invalidate(void);
  64. __property Fcframe::TfcEditFrame* Frame = {read=FFrame, write=FFrame};
  65. __property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
  66. public:
  67. #pragma option push -w-inl
  68. /* TWinControl.CreateParented */ inline __fastcall TfcCustomPanel(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
  69. #pragma option pop
  71. };
  74. class DELPHICLASS TfcCustomGroupBox;
  75. class PASCALIMPLEMENTATION TfcCustomGroupBox : public Stdctrls::TCustomGroupBox 
  76. {
  77. typedef Stdctrls::TCustomGroupBox inherited;
  79. private:
  80. bool FBorderAroundLabel;
  81. Fcframe::TfcEditFrame* FFrame;
  82. bool FFocused;
  83. int FCaptionIndent;
  84. bool FFullBorder;
  85. void __fastcall SetCaptionIndent(int Value);
  86. void __fastcall SetFullBorder(bool Value);
  87. HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
  88. HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
  89. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  90. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  91. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  93. protected:
  94. bool FTransparent;
  95. void __fastcall ClipChildren(bool Value);
  96. virtual void __fastcall CreateWnd(void);
  97. virtual void __fastcall Paint(void);
  98. virtual void __fastcall SetTransparent(bool Value);
  99. virtual void __fastcall AlignControls(Controls::TControl* AControl, Types::TRect &Rect);
  100. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  101. virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  102. virtual bool __fastcall IsTransparent(void);
  103. virtual bool __fastcall InvalidateNeeded(void);
  105. public:
  106. __fastcall virtual TfcCustomGroupBox(Classes::TComponent* AOwner);
  107. __fastcall virtual ~TfcCustomGroupBox(void);
  108. virtual void __fastcall Invalidate(void);
  109. __property int CaptionIndent = {read=FCaptionIndent, write=SetCaptionIndent, default=8};
  110. __property bool BorderAroundLabel = {read=FBorderAroundLabel, write=FBorderAroundLabel, default=0};
  111. __property bool FullBorder = {read=FFullBorder, write=SetFullBorder, default=0};
  112. __property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
  113. __property Fcframe::TfcEditFrame* Frame = {read=FFrame, write=FFrame};
  114. public:
  115. #pragma option push -w-inl
  116. /* TWinControl.CreateParented */ inline __fastcall TfcCustomGroupBox(HWND ParentWindow) : Stdctrls::TCustomGroupBox(ParentWindow) { }
  117. #pragma option pop
  119. };
  122. class DELPHICLASS TfcPanel;
  123. class PASCALIMPLEMENTATION TfcPanel : public TfcCustomPanel 
  124. {
  125. typedef TfcCustomPanel inherited;
  127. public:
  128. __property DockManager ;
  130. __published:
  131. __property Align ;
  132. __property Alignment ;
  133. __property Anchors ;
  134. __property AutoSize ;
  135. __property BevelInner ;
  136. __property BevelOuter ;
  137. __property BevelWidth ;
  138. __property BiDiMode ;
  139. __property BorderWidth ;
  140. __property BorderStyle ;
  141. __property Caption ;
  142. __property Color ;
  143. __property Constraints ;
  144. __property Ctl3D ;
  145. __property UseDockManager ;
  146. __property DockSite ;
  147. __property DragCursor ;
  148. __property DragKind ;
  149. __property DragMode ;
  150. __property Enabled ;
  151. __property FullRepaint ;
  152. __property Font ;
  153. __property Frame ;
  154. __property Locked ;
  155. __property ParentBiDiMode ;
  156. __property ParentColor ;
  157. __property ParentCtl3D ;
  158. __property ParentFont ;
  159. __property ParentShowHint ;
  160. __property PopupMenu ;
  161. __property ShowHint ;
  162. __property TabOrder ;
  163. __property TabStop ;
  164. __property Transparent ;
  165. __property Visible ;
  166. __property OnCanResize ;
  167. __property OnClick ;
  168. __property OnConstrainedResize ;
  169. __property OnContextPopup ;
  170. __property OnDockDrop ;
  171. __property OnDockOver ;
  172. __property OnDblClick ;
  173. __property OnDragDrop ;
  174. __property OnDragOver ;
  175. __property OnEndDock ;
  176. __property OnEndDrag ;
  177. __property OnEnter ;
  178. __property OnExit ;
  179. __property OnGetSiteInfo ;
  180. __property OnMouseDown ;
  181. __property OnMouseMove ;
  182. __property OnMouseUp ;
  183. __property OnResize ;
  184. __property OnStartDock ;
  185. __property OnStartDrag ;
  186. __property OnUnDock ;
  187. public:
  188. #pragma option push -w-inl
  189. /* TfcCustomPanel.Create */ inline __fastcall virtual TfcPanel(Classes::TComponent* AOwner) : TfcCustomPanel(AOwner) { }
  190. #pragma option pop
  191. #pragma option push -w-inl
  192. /* TfcCustomPanel.Destroy */ inline __fastcall virtual ~TfcPanel(void) { }
  193. #pragma option pop
  195. public:
  196. #pragma option push -w-inl
  197. /* TWinControl.CreateParented */ inline __fastcall TfcPanel(HWND ParentWindow) : TfcCustomPanel(ParentWindow) { }
  198. #pragma option pop
  200. };
  203. class DELPHICLASS TfcGroupBox;
  204. class PASCALIMPLEMENTATION TfcGroupBox : public TfcCustomGroupBox 
  205. {
  206. typedef TfcCustomGroupBox inherited;
  208. __published:
  209. __property Align ;
  210. __property Anchors ;
  211. __property BiDiMode ;
  212. __property BorderAroundLabel ;
  213. __property Caption ;
  214. __property CaptionIndent ;
  215. __property Color ;
  216. __property Constraints ;
  217. __property Ctl3D ;
  218. __property DockSite ;
  219. __property DragCursor ;
  220. __property DragKind ;
  221. __property DragMode ;
  222. __property Enabled ;
  223. __property Font ;
  224. __property Frame ;
  225. __property FullBorder ;
  226. __property ParentBiDiMode ;
  227. __property ParentColor ;
  228. __property ParentCtl3D ;
  229. __property ParentFont ;
  230. __property ParentShowHint ;
  231. __property PopupMenu ;
  232. __property ShowHint ;
  233. __property TabOrder ;
  234. __property TabStop ;
  235. __property Transparent ;
  236. __property Visible ;
  237. __property OnClick ;
  238. __property OnContextPopup ;
  239. __property OnDblClick ;
  240. __property OnDragDrop ;
  241. __property OnDockDrop ;
  242. __property OnDockOver ;
  243. __property OnDragOver ;
  244. __property OnEndDock ;
  245. __property OnEndDrag ;
  246. __property OnEnter ;
  247. __property OnExit ;
  248. __property OnGetSiteInfo ;
  249. __property OnMouseDown ;
  250. __property OnMouseMove ;
  251. __property OnMouseUp ;
  252. __property OnStartDock ;
  253. __property OnStartDrag ;
  254. __property OnUnDock ;
  255. public:
  256. #pragma option push -w-inl
  257. /* TfcCustomGroupBox.Create */ inline __fastcall virtual TfcGroupBox(Classes::TComponent* AOwner) : TfcCustomGroupBox(AOwner) { }
  258. #pragma option pop
  259. #pragma option push -w-inl
  260. /* TfcCustomGroupBox.Destroy */ inline __fastcall virtual ~TfcGroupBox(void) { }
  261. #pragma option pop
  263. public:
  264. #pragma option push -w-inl
  265. /* TWinControl.CreateParented */ inline __fastcall TfcGroupBox(HWND ParentWindow) : TfcCustomGroupBox(ParentWindow) { }
  266. #pragma option pop
  268. };
  271. //-- var, const, procedure ---------------------------------------------------
  273. } /* namespace Fcpanel */
  274. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  275. using namespace Fcpanel;
  276. #endif
  277. #pragma option pop // -w-
  278. #pragma option pop // -Vx
  280. #pragma delphiheader end.
  281. //-- end unit ----------------------------------------------------------------
  282. #endif // fcpanel