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

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

Delphi控件源码

开发平台：

Delphi

fctext.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fctext.pas' rev: 5.00
  7. #ifndef fctextHPP
  8. #define fctextHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <fcCommon.hpp> // Pascal unit
  14. #include <ExtCtrls.hpp> // Pascal unit
  15. #include <Buttons.hpp> // Pascal unit
  16. #include <StdCtrls.hpp> // Pascal unit
  17. #include <Menus.hpp> // Pascal unit
  18. #include <Graphics.hpp> // Pascal unit
  19. #include <Dialogs.hpp> // Pascal unit
  20. #include <Math.hpp> // Pascal unit
  21. #include <Forms.hpp> // Pascal unit
  22. #include <Controls.hpp> // Pascal unit
  23. #include <Classes.hpp> // Pascal unit
  24. #include <Messages.hpp> // Pascal unit
  25. #include <Windows.hpp> // Pascal unit
  26. #include <SysUtils.hpp> // Pascal unit
  27. #include <SysInit.hpp> // Pascal unit
  28. #include <System.hpp> // Pascal unit
  30. //-- user supplied -----------------------------------------------------------
  32. namespace Fctext
  33. {
  34. //-- type declarations -------------------------------------------------------
  35. #pragma option push -b-
  36. enum TfcVAlignment { vaTop, vaVCenter, vaBottom };
  37. #pragma option pop
  39. #pragma option push -b-
  40. enum TfcTextStyle { fclsDefault, fclsLowered, fclsRaised, fclsOutline };
  41. #pragma option pop
  43. #pragma option push -b-
  44. enum TfcOrientation { fcTopLeft, fcTopRight, fcBottomLeft, fcBottomRight, fcTop, fcRight, fcLeft, fcBottom 
  45. };
  46. #pragma option pop
  48. #pragma option push -b-
  49. enum TfcTextOption { toShowAccel, toShowEllipsis, toFullJustify };
  50. #pragma option pop
  52. typedef Set<TfcTextOption, toShowAccel, toFullJustify>  TfcTextOptions;
  54. struct TfcTextCallbacks
  55. {
  56. Fccommon::TfcProcMeth Invalidate;
  57. Fccommon::TfcProcMeth AdjustBounds;
  58. Fccommon::TfcBoolFunc GetTextEnabled;
  59. } ;
  61. class DELPHICLASS TfcShadowEffects;
  62. class DELPHICLASS TfcText;
  63. class DELPHICLASS TfcDisabledColors;
  64. class PASCALIMPLEMENTATION TfcDisabledColors : public Classes::TPersistent 
  65. {
  66. typedef Classes::TPersistent inherited;
  68. private:
  69. TfcText* FText;
  70. Graphics::TColor FHighlightColor;
  71. Graphics::TColor FShadeColor;
  72. void __fastcall SetHighlightColor(Graphics::TColor Value);
  73. void __fastcall SetShadeColor(Graphics::TColor Value);
  75. protected:
  76. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  78. public:
  79. __fastcall TfcDisabledColors(TfcText* Text);
  81. __published:
  82. __property Graphics::TColor HighlightColor = {read=FHighlightColor, write=SetHighlightColor, default=-2147483628
  83. };
  84. __property Graphics::TColor ShadeColor = {read=FShadeColor, write=SetShadeColor, default=-2147483632
  85. };
  86. public:
  87. #pragma option push -w-inl
  88. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcDisabledColors(void) { }
  89. #pragma option pop
  91. };
  94. class DELPHICLASS TfcExtrudeEffects;
  95. class PASCALIMPLEMENTATION TfcExtrudeEffects : public Classes::TPersistent 
  96. {
  97. typedef Classes::TPersistent inherited;
  99. private:
  100. TfcText* FText;
  101. int FDepth;
  102. bool FEnabled;
  103. Graphics::TColor FFarColor;
  104. Graphics::TColor FNearColor;
  105. TfcOrientation FOrientation;
  106. bool FStriated;
  107. void __fastcall SetDepth(int Value);
  108. void __fastcall SetEnabled(bool Value);
  109. void __fastcall SetFarColor(Graphics::TColor Value);
  110. void __fastcall SetNearColor(Graphics::TColor Value);
  111. void __fastcall SetOrientation(TfcOrientation Value);
  112. void __fastcall SetStriated(bool Value);
  114. protected:
  115. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  117. public:
  118. __fastcall TfcExtrudeEffects(TfcText* Text);
  119. tagSIZE __fastcall EffectiveDepth(bool CheckOrient);
  121. __published:
  122. __property int Depth = {read=FDepth, write=SetDepth, default=10};
  123. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
  124. __property Graphics::TColor FarColor = {read=FFarColor, write=SetFarColor, default=0};
  125. __property Graphics::TColor NearColor = {read=FNearColor, write=SetNearColor, default=0};
  126. __property TfcOrientation Orientation = {read=FOrientation, write=SetOrientation, default=3};
  127. __property bool Striated = {read=FStriated, write=SetStriated, default=0};
  128. public:
  129. #pragma option push -w-inl
  130. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcExtrudeEffects(void) { }
  131. #pragma option pop
  133. };
  136. class PASCALIMPLEMENTATION TfcText : public Classes::TPersistent 
  137. {
  138. typedef Classes::TPersistent inherited;
  140. private:
  141. Windows::TRect FRect;
  142. Classes::TAlignment FAlignment;
  143. Graphics::TCanvas* FCanvas;
  144. Graphics::TCanvas* FPaintCanvas;
  145. TfcDisabledColors* FDisabledColors;
  146. TfcExtrudeEffects* FExtrudeEffects;
  147. Graphics::TColor FHighlightColor;
  148. unsigned FFlags;
  149. Graphics::TFont* FFont;
  150. int FLineSpacing;
  151. TfcTextOptions FOptions;
  152. Graphics::TColor FOutlineColor;
  153. int FRotation;
  154. bool FScaledFont;
  155. Graphics::TColor FShadeColor;
  156. TfcShadowEffects* FShadow;
  157. TfcTextStyle FStyle;
  158. AnsiString FText;
  159. TfcTextCallbacks FCallbacks;
  160. Windows::TRect FTextRect;
  161. TfcVAlignment FVAlignment;
  162. bool FWordWrap;
  163. bool FDoubleBuffered;
  164. bool InDraw;
  165. Extended __fastcall GetAngle(void);
  166. void __fastcall SetAlignment(Classes::TAlignment Value);
  167. void __fastcall SetHighlightColor(Graphics::TColor Value);
  168. void __fastcall SetLineSpacing(int Value);
  169. void __fastcall SetOptions(TfcTextOptions Value);
  170. void __fastcall SetOutlineColor(Graphics::TColor Value);
  171. void __fastcall SetRotation(int Value);
  172. void __fastcall SetScaledFont(bool Value);
  173. void __fastcall SetShadeColor(Graphics::TColor Value);
  174. void __fastcall SetStyle(TfcTextStyle Value);
  175. void __fastcall SetText(AnsiString Value);
  176. void __fastcall SetTextRect(const Windows::TRect &Value);
  177. void __fastcall SetVAlignment(TfcVAlignment Value);
  178. void __fastcall SetWordWrap(bool Value);
  180. protected:
  181. Graphics::TBitmap* FPaintBitmap;
  182. virtual Graphics::TCanvas* __fastcall GetCanvas(void);
  183. virtual tagLOGFONTA __fastcall GetLogFont(void);
  184. virtual tagSIZE __fastcall GetTextSize(void);
  185. virtual tagSIZE __fastcall CalcTextSize(bool IgnoreRect);
  186. virtual Windows::TRect __fastcall CalcRect(bool IgnoreRect);
  187. virtual void __fastcall DrawHighlight(void);
  188. virtual void __fastcall DrawOutline(void);
  189. virtual void __fastcall DrawShadow(const Windows::TRect &r);
  190. void __fastcall DrawEmbossed(bool Raised);
  191. virtual void __fastcall DrawText(const Windows::TRect &r);
  192. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  193. __property Extended Angle = {read=GetAngle};
  194. __property Graphics::TFont* Font = {read=FFont};
  196. public:
  197. Variant Patch;
  198. __fastcall TfcText(const TfcTextCallbacks &ACallbacks, Graphics::TCanvas* ACanvas, Graphics::TFont* 
  199. AFont);
  200. __fastcall virtual ~TfcText(void);
  201. virtual Windows::TRect __fastcall CalcDrawRect(bool IgnoreRect);
  202. virtual void __fastcall CallInvalidate(void);
  203. virtual void __fastcall Draw(void);
  204. virtual void __fastcall DrawStandardText(void);
  205. virtual void __fastcall DrawOutlineText(void);
  206. virtual void __fastcall DrawEmbossedText(bool Raised);
  207. void __fastcall DrawExtrusion(void);
  208. virtual void __fastcall PrepareCanvas(void);
  209. virtual void __fastcall UpdateFont(Graphics::TFont* Value);
  210. __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
  211. __property Graphics::TCanvas* Canvas = {read=GetCanvas, write=FCanvas};
  212. __property TfcTextCallbacks Callbacks = {read=FCallbacks, write=FCallbacks};
  213. __property TfcDisabledColors* DisabledColors = {read=FDisabledColors, write=FDisabledColors};
  214. __property TfcExtrudeEffects* ExtrudeEffects = {read=FExtrudeEffects, write=FExtrudeEffects};
  215. __property unsigned Flags = {read=FFlags, write=FFlags, nodefault};
  216. __property Graphics::TColor HighlightColor = {read=FHighlightColor, write=SetHighlightColor, default=-2147483628
  217. };
  218. __property int LineSpacing = {read=FLineSpacing, write=SetLineSpacing, default=5};
  219. __property TfcTextOptions Options = {read=FOptions, write=SetOptions, default=1};
  220. __property Graphics::TColor OutlineColor = {read=FOutlineColor, write=SetOutlineColor, default=0};
  221. __property int Rotation = {read=FRotation, write=SetRotation, default=0};
  222. __property bool ScaledFont = {read=FScaledFont, write=SetScaledFont, nodefault};
  223. __property Graphics::TColor ShadeColor = {read=FShadeColor, write=SetShadeColor, default=-2147483632
  224. };
  225. __property TfcShadowEffects* Shadow = {read=FShadow, write=FShadow};
  226. __property TfcTextStyle Style = {read=FStyle, write=SetStyle, default=0};
  227. __property AnsiString Text = {read=FText, write=SetText};
  228. __property Windows::TRect TextRect = {read=FTextRect, write=SetTextRect};
  229. __property TfcVAlignment VAlignment = {read=FVAlignment, write=SetVAlignment, nodefault};
  230. __property bool WordWrap = {read=FWordWrap, write=SetWordWrap, default=0};
  231. __property bool DoubleBuffered = {read=FDoubleBuffered, write=FDoubleBuffered, default=0};
  232. };
  235. class PASCALIMPLEMENTATION TfcShadowEffects : public Classes::TPersistent 
  236. {
  237. typedef Classes::TPersistent inherited;
  239. private:
  240. TfcText* FText;
  241. Graphics::TColor FColor;
  242. bool FEnabled;
  243. int FXOffset;
  244. int FYOffset;
  245. void __fastcall SetColor(Graphics::TColor Value);
  246. void __fastcall SetEnabled(bool Value);
  247. void __fastcall SetXOffset(int Value);
  248. void __fastcall SetYOffset(int Value);
  250. protected:
  251. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  253. public:
  254. __fastcall TfcShadowEffects(TfcText* Text);
  255. Windows::TPoint __fastcall EffectiveOffset(void);
  257. __published:
  258. __property Graphics::TColor Color = {read=FColor, write=SetColor, default=-2147483632};
  259. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
  260. __property int XOffset = {read=FXOffset, write=SetXOffset, default=10};
  261. __property int YOffset = {read=FYOffset, write=SetYOffset, default=10};
  262. public:
  263. #pragma option push -w-inl
  264. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcShadowEffects(void) { }
  265. #pragma option pop
  267. };
  270. class DELPHICLASS TfcCaptionText;
  271. class PASCALIMPLEMENTATION TfcCaptionText : public TfcText 
  272. {
  273. typedef TfcText inherited;
  275. __published:
  276. __property Alignment ;
  277. __property DisabledColors ;
  278. __property ExtrudeEffects ;
  279. __property HighlightColor ;
  280. __property LineSpacing ;
  281. __property Options ;
  282. __property OutlineColor ;
  283. __property Rotation ;
  284. __property ShadeColor ;
  285. __property Shadow ;
  286. __property Style ;
  287. __property VAlignment ;
  288. __property WordWrap ;
  289. __property DoubleBuffered ;
  290. public:
  291. #pragma option push -w-inl
  292. /* TfcText.Create */ inline __fastcall TfcCaptionText(const TfcTextCallbacks &ACallbacks, Graphics::TCanvas* 
  293. ACanvas, Graphics::TFont* AFont) : TfcText(ACallbacks, ACanvas, AFont) { }
  294. #pragma option pop
  295. #pragma option push -w-inl
  296. /* TfcText.Destroy */ inline __fastcall virtual ~TfcCaptionText(void) { }
  297. #pragma option pop
  299. };
  302. //-- var, const, procedure ---------------------------------------------------
  303. extern PACKAGE TfcTextCallbacks __fastcall MakeCallbacks(Fccommon::TfcProcMeth InvalidateProc, Fccommon::TfcProcMeth 
  304. AdjustBoundsProc, Fccommon::TfcBoolFunc GetTextEnabledProc);
  306. } /* namespace Fctext */
  307. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  308. using namespace Fctext;
  309. #endif
  310. #pragma option pop // -w-
  311. #pragma option pop // -Vx
  313. #pragma delphiheader end.
  314. //-- end unit ----------------------------------------------------------------
  315. #endif // fctext