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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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, Windows::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(
  69. ParentWindow) { }
  70. #pragma option pop
  72. };
  75. class DELPHICLASS TfcCustomGroupBox;
  76. class PASCALIMPLEMENTATION TfcCustomGroupBox : public Stdctrls::TCustomGroupBox 
  77. {
  78. typedef Stdctrls::TCustomGroupBox inherited;
  80. private:
  81. bool FBorderAroundLabel;
  82. Fcframe::TfcEditFrame* FFrame;
  83. bool FFocused;
  84. int FCaptionIndent;
  85. bool FFullBorder;
  86. void __fastcall SetCaptionIndent(int Value);
  87. void __fastcall SetFullBorder(bool Value);
  88. HIDESBASE MESSAGE void __fastcall WMEraseBkGnd(Messages::TWMEraseBkgnd &Message);
  89. HIDESBASE MESSAGE void __fastcall WMMove(Messages::TWMMove &Message);
  90. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  91. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  92. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  94. protected:
  95. bool FTransparent;
  96. void __fastcall ClipChildren(bool Value);
  97. virtual void __fastcall CreateWnd(void);
  98. virtual void __fastcall Paint(void);
  99. virtual void __fastcall SetTransparent(bool Value);
  100. virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  101. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  102. virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  103. virtual bool __fastcall IsTransparent(void);
  104. virtual bool __fastcall InvalidateNeeded(void);
  106. public:
  107. __fastcall virtual TfcCustomGroupBox(Classes::TComponent* AOwner);
  108. __fastcall virtual ~TfcCustomGroupBox(void);
  109. virtual void __fastcall Invalidate(void);
  110. __property int CaptionIndent = {read=FCaptionIndent, write=SetCaptionIndent, default=8};
  111. __property bool BorderAroundLabel = {read=FBorderAroundLabel, write=FBorderAroundLabel, default=0};
  113. __property bool FullBorder = {read=FFullBorder, write=SetFullBorder, default=0};
  114. __property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
  115. __property Fcframe::TfcEditFrame* Frame = {read=FFrame, write=FFrame};
  116. public:
  117. #pragma option push -w-inl
  118. /* TWinControl.CreateParented */ inline __fastcall TfcCustomGroupBox(HWND ParentWindow) : Stdctrls::TCustomGroupBox(
  119. ParentWindow) { }
  120. #pragma option pop
  122. };
  125. class DELPHICLASS TfcPanel;
  126. class PASCALIMPLEMENTATION TfcPanel : public TfcCustomPanel 
  127. {
  128. typedef TfcCustomPanel inherited;
  130. public:
  131. __property DockManager ;
  133. __published:
  134. __property Align ;
  135. __property Alignment ;
  136. __property Anchors ;
  137. __property AutoSize ;
  138. __property BevelInner ;
  139. __property BevelOuter ;
  140. __property BevelWidth ;
  141. __property BiDiMode ;
  142. __property BorderWidth ;
  143. __property BorderStyle ;
  144. __property Caption ;
  145. __property Color ;
  146. __property Constraints ;
  147. __property Ctl3D ;
  148. __property UseDockManager ;
  149. __property DockSite ;
  150. __property DragCursor ;
  151. __property DragKind ;
  152. __property DragMode ;
  153. __property Enabled ;
  154. __property FullRepaint ;
  155. __property Font ;
  156. __property Frame ;
  157. __property Locked ;
  158. __property ParentBiDiMode ;
  159. __property ParentColor ;
  160. __property ParentCtl3D ;
  161. __property ParentFont ;
  162. __property ParentShowHint ;
  163. __property PopupMenu ;
  164. __property ShowHint ;
  165. __property TabOrder ;
  166. __property TabStop ;
  167. __property Transparent ;
  168. __property Visible ;
  169. __property OnCanResize ;
  170. __property OnClick ;
  171. __property OnConstrainedResize ;
  172. __property OnContextPopup ;
  173. __property OnDockDrop ;
  174. __property OnDockOver ;
  175. __property OnDblClick ;
  176. __property OnDragDrop ;
  177. __property OnDragOver ;
  178. __property OnEndDock ;
  179. __property OnEndDrag ;
  180. __property OnEnter ;
  181. __property OnExit ;
  182. __property OnGetSiteInfo ;
  183. __property OnMouseDown ;
  184. __property OnMouseMove ;
  185. __property OnMouseUp ;
  186. __property OnResize ;
  187. __property OnStartDock ;
  188. __property OnStartDrag ;
  189. __property OnUnDock ;
  190. public:
  191. #pragma option push -w-inl
  192. /* TfcCustomPanel.Create */ inline __fastcall virtual TfcPanel(Classes::TComponent* AOwner) : TfcCustomPanel(
  193. AOwner) { }
  194. #pragma option pop
  195. #pragma option push -w-inl
  196. /* TfcCustomPanel.Destroy */ inline __fastcall virtual ~TfcPanel(void) { }
  197. #pragma option pop
  199. public:
  200. #pragma option push -w-inl
  201. /* TWinControl.CreateParented */ inline __fastcall TfcPanel(HWND ParentWindow) : TfcCustomPanel(ParentWindow
  202. ) { }
  203. #pragma option pop
  205. };
  208. class DELPHICLASS TfcGroupBox;
  209. class PASCALIMPLEMENTATION TfcGroupBox : public TfcCustomGroupBox 
  210. {
  211. typedef TfcCustomGroupBox inherited;
  213. __published:
  214. __property Align ;
  215. __property Anchors ;
  216. __property BiDiMode ;
  217. __property BorderAroundLabel ;
  218. __property Caption ;
  219. __property CaptionIndent ;
  220. __property Color ;
  221. __property Constraints ;
  222. __property Ctl3D ;
  223. __property DockSite ;
  224. __property DragCursor ;
  225. __property DragKind ;
  226. __property DragMode ;
  227. __property Enabled ;
  228. __property Font ;
  229. __property Frame ;
  230. __property FullBorder ;
  231. __property ParentBiDiMode ;
  232. __property ParentColor ;
  233. __property ParentCtl3D ;
  234. __property ParentFont ;
  235. __property ParentShowHint ;
  236. __property PopupMenu ;
  237. __property ShowHint ;
  238. __property TabOrder ;
  239. __property TabStop ;
  240. __property Transparent ;
  241. __property Visible ;
  242. __property OnClick ;
  243. __property OnContextPopup ;
  244. __property OnDblClick ;
  245. __property OnDragDrop ;
  246. __property OnDockDrop ;
  247. __property OnDockOver ;
  248. __property OnDragOver ;
  249. __property OnEndDock ;
  250. __property OnEndDrag ;
  251. __property OnEnter ;
  252. __property OnExit ;
  253. __property OnGetSiteInfo ;
  254. __property OnMouseDown ;
  255. __property OnMouseMove ;
  256. __property OnMouseUp ;
  257. __property OnStartDock ;
  258. __property OnStartDrag ;
  259. __property OnUnDock ;
  260. public:
  261. #pragma option push -w-inl
  262. /* TfcCustomGroupBox.Create */ inline __fastcall virtual TfcGroupBox(Classes::TComponent* AOwner) : 
  263. TfcCustomGroupBox(AOwner) { }
  264. #pragma option pop
  265. #pragma option push -w-inl
  266. /* TfcCustomGroupBox.Destroy */ inline __fastcall virtual ~TfcGroupBox(void) { }
  267. #pragma option pop
  269. public:
  270. #pragma option push -w-inl
  271. /* TWinControl.CreateParented */ inline __fastcall TfcGroupBox(HWND ParentWindow) : TfcCustomGroupBox(
  272. ParentWindow) { }
  273. #pragma option pop
  275. };
  278. //-- var, const, procedure ---------------------------------------------------
  280. } /* namespace Fcpanel */
  281. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  282. using namespace Fcpanel;
  283. #endif
  284. #pragma option pop // -w-
  285. #pragma option pop // -Vx
  287. #pragma delphiheader end.
  288. //-- end unit ----------------------------------------------------------------
  289. #endif // fcpanel