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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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. #pragma option pop
  47. #pragma option push -b-
  48. enum TfcTextOption { toShowAccel, toShowEllipsis, toFullJustify };
  49. #pragma option pop
  51. typedef Set<TfcTextOption, toShowAccel, toFullJustify>  TfcTextOptions;
  53. struct TfcTextCallbacks
  54. {
  55. Fccommon::TfcProcMeth Invalidate;
  56. Fccommon::TfcProcMeth AdjustBounds;
  57. Fccommon::TfcBoolFunc GetTextEnabled;
  58. } ;
  60. class DELPHICLASS TfcShadowEffects;
  61. class DELPHICLASS TfcText;
  62. class DELPHICLASS TfcDisabledColors;
  63. class PASCALIMPLEMENTATION TfcDisabledColors : public Classes::TPersistent 
  64. {
  65. typedef Classes::TPersistent inherited;
  67. private:
  68. TfcText* FText;
  69. Graphics::TColor FHighlightColor;
  70. Graphics::TColor FShadeColor;
  71. void __fastcall SetHighlightColor(Graphics::TColor Value);
  72. void __fastcall SetShadeColor(Graphics::TColor Value);
  74. protected:
  75. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  77. public:
  78. __fastcall TfcDisabledColors(TfcText* Text);
  80. __published:
  81. __property Graphics::TColor HighlightColor = {read=FHighlightColor, write=SetHighlightColor, default=-2147483628};
  82. __property Graphics::TColor ShadeColor = {read=FShadeColor, write=SetShadeColor, default=-2147483632};
  83. public:
  84. #pragma option push -w-inl
  85. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcDisabledColors(void) { }
  86. #pragma option pop
  88. };
  91. class DELPHICLASS TfcExtrudeEffects;
  92. class PASCALIMPLEMENTATION TfcExtrudeEffects : public Classes::TPersistent 
  93. {
  94. typedef Classes::TPersistent inherited;
  96. private:
  97. TfcText* FText;
  98. int FDepth;
  99. bool FEnabled;
  100. Graphics::TColor FFarColor;
  101. Graphics::TColor FNearColor;
  102. TfcOrientation FOrientation;
  103. bool FStriated;
  104. void __fastcall SetDepth(int Value);
  105. void __fastcall SetEnabled(bool Value);
  106. void __fastcall SetFarColor(Graphics::TColor Value);
  107. void __fastcall SetNearColor(Graphics::TColor Value);
  108. void __fastcall SetOrientation(TfcOrientation Value);
  109. void __fastcall SetStriated(bool Value);
  111. protected:
  112. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  114. public:
  115. __fastcall TfcExtrudeEffects(TfcText* Text);
  116. tagSIZE __fastcall EffectiveDepth(bool CheckOrient);
  118. __published:
  119. __property int Depth = {read=FDepth, write=SetDepth, default=10};
  120. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
  121. __property Graphics::TColor FarColor = {read=FFarColor, write=SetFarColor, default=0};
  122. __property Graphics::TColor NearColor = {read=FNearColor, write=SetNearColor, default=0};
  123. __property TfcOrientation Orientation = {read=FOrientation, write=SetOrientation, default=3};
  124. __property bool Striated = {read=FStriated, write=SetStriated, default=0};
  125. public:
  126. #pragma option push -w-inl
  127. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcExtrudeEffects(void) { }
  128. #pragma option pop
  130. };
  133. class PASCALIMPLEMENTATION TfcText : public Classes::TPersistent 
  134. {
  135. typedef Classes::TPersistent inherited;
  137. private:
  138. #pragma pack(push, 1)
  139. Types::TRect FRect;
  140. #pragma pack(pop)
  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. #pragma pack(push, 1)
  161. Types::TRect FTextRect;
  162. #pragma pack(pop)
  164. TfcVAlignment FVAlignment;
  165. bool FWordWrap;
  166. bool FDoubleBuffered;
  167. bool InDraw;
  168. Extended __fastcall GetAngle(void);
  169. void __fastcall SetAlignment(Classes::TAlignment Value);
  170. void __fastcall SetHighlightColor(Graphics::TColor Value);
  171. void __fastcall SetLineSpacing(int Value);
  172. void __fastcall SetOptions(TfcTextOptions Value);
  173. void __fastcall SetOutlineColor(Graphics::TColor Value);
  174. void __fastcall SetRotation(int Value);
  175. void __fastcall SetScaledFont(bool Value);
  176. void __fastcall SetShadeColor(Graphics::TColor Value);
  177. void __fastcall SetStyle(TfcTextStyle Value);
  178. void __fastcall SetText(AnsiString Value);
  179. void __fastcall SetTextRect(const Types::TRect &Value);
  180. void __fastcall SetVAlignment(TfcVAlignment Value);
  181. void __fastcall SetWordWrap(bool Value);
  183. protected:
  184. Graphics::TBitmap* FPaintBitmap;
  185. virtual Graphics::TCanvas* __fastcall GetCanvas(void);
  186. virtual tagLOGFONTA __fastcall GetLogFont();
  187. virtual tagSIZE __fastcall GetTextSize();
  188. virtual tagSIZE __fastcall CalcTextSize(bool IgnoreRect);
  189. virtual Types::TRect __fastcall CalcRect(bool IgnoreRect);
  190. virtual void __fastcall DrawHighlight(void);
  191. virtual void __fastcall DrawOutline(void);
  192. virtual void __fastcall DrawShadow(const Types::TRect &r);
  193. void __fastcall DrawEmbossed(bool Raised);
  194. virtual void __fastcall DrawText(const Types::TRect &r);
  195. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  196. __property Extended Angle = {read=GetAngle};
  197. __property Graphics::TFont* Font = {read=FFont};
  199. public:
  200. Variant Patch;
  201. __fastcall TfcText(const TfcTextCallbacks &ACallbacks, Graphics::TCanvas* ACanvas, Graphics::TFont* AFont);
  202. __fastcall virtual ~TfcText(void);
  203. virtual Types::TRect __fastcall CalcDrawRect(bool IgnoreRect);
  204. virtual void __fastcall CallInvalidate(void);
  205. virtual void __fastcall Draw(void);
  206. virtual void __fastcall DrawStandardText(void);
  207. virtual void __fastcall DrawOutlineText(void);
  208. virtual void __fastcall DrawEmbossedText(bool Raised);
  209. void __fastcall DrawExtrusion(void);
  210. virtual void __fastcall PrepareCanvas(void);
  211. virtual void __fastcall UpdateFont(Graphics::TFont* Value);
  212. __property Classes::TAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
  213. __property Graphics::TCanvas* Canvas = {read=GetCanvas, write=FCanvas};
  214. __property TfcTextCallbacks Callbacks = {read=FCallbacks, write=FCallbacks};
  215. __property TfcDisabledColors* DisabledColors = {read=FDisabledColors, write=FDisabledColors};
  216. __property TfcExtrudeEffects* ExtrudeEffects = {read=FExtrudeEffects, write=FExtrudeEffects};
  217. __property unsigned Flags = {read=FFlags, write=FFlags, nodefault};
  218. __property Graphics::TColor HighlightColor = {read=FHighlightColor, write=SetHighlightColor, default=-2147483628};
  219. __property int LineSpacing = {read=FLineSpacing, write=SetLineSpacing, default=5};
  220. __property TfcTextOptions Options = {read=FOptions, write=SetOptions, default=1};
  221. __property Graphics::TColor OutlineColor = {read=FOutlineColor, write=SetOutlineColor, default=0};
  222. __property int Rotation = {read=FRotation, write=SetRotation, default=0};
  223. __property bool ScaledFont = {read=FScaledFont, write=SetScaledFont, nodefault};
  224. __property Graphics::TColor ShadeColor = {read=FShadeColor, write=SetShadeColor, default=-2147483632};
  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 Types::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. Types::TPoint __fastcall EffectiveOffset();
  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* ACanvas, Graphics::TFont* AFont) : TfcText(ACallbacks, ACanvas, AFont) { }
  293. #pragma option pop
  294. #pragma option push -w-inl
  295. /* TfcText.Destroy */ inline __fastcall virtual ~TfcCaptionText(void) { }
  296. #pragma option pop
  298. };
  301. //-- var, const, procedure ---------------------------------------------------
  302. extern PACKAGE TfcTextCallbacks __fastcall MakeCallbacks(Fccommon::TfcProcMeth InvalidateProc, Fccommon::TfcProcMeth AdjustBoundsProc, Fccommon::TfcBoolFunc GetTextEnabledProc);
  304. } /* namespace Fctext */
  305. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  306. using namespace Fctext;
  307. #endif
  308. #pragma option pop // -w-
  309. #pragma option pop // -Vx
  311. #pragma delphiheader end.
  312. //-- end unit ----------------------------------------------------------------
  313. #endif // fctext