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

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

Delphi控件源码

开发平台：

Delphi

fcpanel.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 2002 by Borland Software Corporation
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcpanel.pas' rev: 6.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  = {default=0};
  132. __property Alignment  = {default=2};
  133. __property Anchors  = {default=3};
  134. __property AutoSize  = {default=0};
  135. __property BevelInner  = {default=0};
  136. __property BevelOuter  = {default=2};
  137. __property BevelWidth  = {default=1};
  138. __property BiDiMode ;
  139. __property BorderWidth  = {default=0};
  140. __property BorderStyle  = {default=0};
  141. __property Caption ;
  142. __property Color  = {default=-16777201};
  143. __property Constraints ;
  144. __property Ctl3D ;
  145. __property UseDockManager  = {default=1};
  146. __property DockSite  = {default=0};
  147. __property DragCursor  = {default=-12};
  148. __property DragKind  = {default=0};
  149. __property DragMode  = {default=0};
  150. __property Enabled  = {default=1};
  151. __property FullRepaint  = {default=1};
  152. __property Font ;
  153. __property Frame ;
  154. __property Locked  = {default=0};
  155. __property ParentBiDiMode  = {default=1};
  156. __property ParentColor  = {default=0};
  157. __property ParentCtl3D  = {default=1};
  158. __property ParentFont  = {default=1};
  159. __property ParentShowHint  = {default=1};
  160. __property PopupMenu ;
  161. __property ShowHint ;
  162. __property TabOrder  = {default=-1};
  163. __property TabStop  = {default=0};
  164. __property Transparent  = {default=0};
  165. __property Visible  = {default=1};
  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  = {default=0};
  210. __property Anchors  = {default=3};
  211. __property BiDiMode ;
  212. __property BorderAroundLabel  = {default=0};
  213. __property Caption ;
  214. __property CaptionIndent  = {default=8};
  215. __property Color  = {default=-16777211};
  216. __property Constraints ;
  217. __property Ctl3D ;
  218. __property DockSite  = {default=0};
  219. __property DragCursor  = {default=-12};
  220. __property DragKind  = {default=0};
  221. __property DragMode  = {default=0};
  222. __property Enabled  = {default=1};
  223. __property Font ;
  224. __property Frame ;
  225. __property FullBorder  = {default=0};
  226. __property ParentBiDiMode  = {default=1};
  227. __property ParentColor  = {default=1};
  228. __property ParentCtl3D  = {default=1};
  229. __property ParentFont  = {default=1};
  230. __property ParentShowHint  = {default=1};
  231. __property PopupMenu ;
  232. __property ShowHint ;
  233. __property TabOrder  = {default=-1};
  234. __property TabStop  = {default=0};
  235. __property Transparent  = {default=0};
  236. __property Visible  = {default=1};
  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 ---------------------------------------------------
  272. #pragma error Unsupported symbol type (23, fcpanel)
  274. } /* namespace Fcpanel */
  275. using namespace Fcpanel;
  276. #pragma option pop // -w-
  277. #pragma option pop // -Vx
  279. #pragma delphiheader end.
  280. //-- end unit ----------------------------------------------------------------
  281. #endif // fcpanel