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

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

Delphi控件源码

开发平台：

Delphi

fccommon.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcCommon.pas' rev: 5.00
  7. #ifndef fcCommonHPP
  8. #define fcCommonHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ComCtrls.hpp> // Pascal unit
  14. #include <fcBitmap.hpp> // Pascal unit
  15. #include <CommCtrl.hpp> // Pascal unit
  16. #include <Registry.hpp> // Pascal unit
  17. #include <ImgList.hpp> // Pascal unit
  18. #include <ExtCtrls.hpp> // Pascal unit
  19. #include <Messages.hpp> // Pascal unit
  20. #include <Math.hpp> // Pascal unit
  21. #include <TypInfo.hpp> // Pascal unit
  22. #include <StdCtrls.hpp> // Pascal unit
  23. #include <Menus.hpp> // Pascal unit
  24. #include <Graphics.hpp> // Pascal unit
  25. #include <Windows.hpp> // Pascal unit
  26. #include <Buttons.hpp> // Pascal unit
  27. #include <Printers.hpp> // Pascal unit
  28. #include <Controls.hpp> // Pascal unit
  29. #include <Forms.hpp> // Pascal unit
  30. #include <Dialogs.hpp> // Pascal unit
  31. #include <SysUtils.hpp> // Pascal unit
  32. #include <Classes.hpp> // Pascal unit
  33. #include <SysInit.hpp> // Pascal unit
  34. #include <System.hpp> // Pascal unit
  36. //-- user supplied -----------------------------------------------------------
  38. namespace Fccommon
  39. {
  40. //-- type declarations -------------------------------------------------------
  41. #pragma option push -b-
  42. enum TfcPointSet { psGlyph, psText, psOffset };
  43. #pragma option pop
  45. typedef Set<TfcPointSet, psGlyph, psOffset>  TfcPointSets;
  47. typedef void __fastcall (__closure *TfcProcMeth)(void);
  49. typedef bool __fastcall (__closure *TfcBoolFunc)(void);
  51. typedef void __fastcall (__closure *TfcSetBoundsProc)(Controls::TWinControl* Control, const Types::TRect &Rect);
  53. #pragma option push -b-
  54. enum TfcLayout { loVertical, loHorizontal };
  55. #pragma option pop
  57. #pragma option push -b-
  58. enum TfcFontType { ftPrinter, ftTrueType, ftOther };
  59. #pragma option pop
  61. typedef TfcFontType *PfcFontType;
  63. typedef Types::TPoint TfcPolyGonPoints[21];
  65. typedef Types::TPoint *PfcPolyGonPoints;
  67. #pragma option push -b-
  68. enum TwwDBGridOption { dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowFixedLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgMultiSelect };
  69. #pragma option pop
  71. typedef Set<TwwDBGridOption, dgEditing, dgMultiSelect>  TwwDBGridOptions;
  73. typedef int __fastcall (*TwwListSortCompare)(AnsiString Item1, AnsiString Item2);
  75. typedef AnsiString __fastcall (*TwwGetCompareString)(Classes::TStrings* SList, int Index);
  77. #pragma option push -b-
  78. enum TfcOrientation { fcTopLeft, fcTopRight, fcBottomLeft, fcBottomRight, fcTop, fcRight, fcLeft, fcBottom };
  79. #pragma option pop
  81. typedef TfcOrientation TfcDiagonals;
  83. typedef TfcOrientation TfcStraights;
  85. #pragma option push -b-
  86. enum TfcGetWordOption { fcgwSkipLeadingBlanks, fcgwQuotesAsWords, fcgwStripQuotes, fcgwSpacesInWords };
  87. #pragma option pop
  89. typedef Set<TfcGetWordOption, fcgwSkipLeadingBlanks, fcgwSpacesInWords>  TfcGetWordOptions;
  91. typedef Set<char, 0, 255>  fcstrCharSet;
  93. #pragma pack(push, 4)
  94. struct TfcInteger
  95. {
  96. int Value;
  97. } ;
  98. #pragma pack(pop)
  100. class DELPHICLASS TfcAnimateListItem;
  101. class PASCALIMPLEMENTATION TfcAnimateListItem : public System::TObject 
  102. {
  103. typedef System::TObject inherited;
  105. public:
  106. Controls::TWinControl* Control;
  107. Graphics::TBitmap* Bitmap;
  108. #pragma pack(push, 1)
  109. Types::TRect OrigRect;
  110. #pragma pack(pop)
  112. #pragma pack(push, 1)
  113. Types::TRect CurRect;
  114. #pragma pack(pop)
  116. #pragma pack(push, 1)
  117. Types::TRect FinalRect;
  118. #pragma pack(pop)
  120. public:
  121. #pragma option push -w-inl
  122. /* TObject.Create */ inline __fastcall TfcAnimateListItem(void) : System::TObject() { }
  123. #pragma option pop
  124. #pragma option push -w-inl
  125. /* TObject.Destroy */ inline __fastcall virtual ~TfcAnimateListItem(void) { }
  126. #pragma option pop
  128. };
  131. class DELPHICLASS TfcGroupAnimateItem;
  132. class PASCALIMPLEMENTATION TfcGroupAnimateItem : public System::TObject 
  133. {
  134. typedef System::TObject inherited;
  136. public:
  137. TfcAnimateListItem* MainItem;
  138. TfcAnimateListItem* SecondItem;
  139. public:
  140. #pragma option push -w-inl
  141. /* TObject.Create */ inline __fastcall TfcGroupAnimateItem(void) : System::TObject() { }
  142. #pragma option pop
  143. #pragma option push -w-inl
  144. /* TObject.Destroy */ inline __fastcall virtual ~TfcGroupAnimateItem(void) { }
  145. #pragma option pop
  147. };
  150. //-- var, const, procedure ---------------------------------------------------
  151. static const int clNullColor = 0xfffffff;
  152. extern PACKAGE AnsiString fcVersion1stClass;
  153. extern PACKAGE Byte BitMask[8];
  154. static const int fcComCtlVersionIE3 = 0x40046;
  155. static const int fcComCtlVersionIE4 = 0x40047;
  156. static const int fcComCtlVersionIE401 = 0x40048;
  157. #define fcComCtlDllName "comctl32.dll"
  158. extern PACKAGE int __fastcall fcGetComCtlVersion(void);
  159. extern PACKAGE Classes::TShiftState __fastcall fcGetShiftState(void);
  160. extern PACKAGE bool __fastcall fcStrToFloat2(const AnsiString S, Extended &FloatValue, AnsiString DisplayFormat);
  161. extern PACKAGE Extended __fastcall fcStrToFloat(AnsiString str, AnsiString DisplayFormat);
  162. extern PACKAGE double __fastcall fcStrToRealDef(const AnsiString S, Extended Default);
  163. extern PACKAGE bool __fastcall fcIsClass(TMetaClass* ClassType, const AnsiString Name);
  164. extern PACKAGE bool __fastcall fcParentGridFocused(Controls::TControl* AControl);
  165. extern PACKAGE bool __fastcall fcIsInwwGrid(Controls::TControl* AControl);
  166. extern PACKAGE bool __fastcall fcIsInwwObjectView(Controls::TWinControl* control);
  167. extern PACKAGE bool __fastcall fcIsInwwObjectViewPaint(Controls::TWinControl* control);
  168. extern PACKAGE bool __fastcall fcIsInwwGridPaint(Controls::TWinControl* control);
  169. extern PACKAGE TwwDBGridOptions __fastcall fcGetGridOptions(Controls::TControl* AControl);
  170. extern PACKAGE void __fastcall fcStripPreceding(AnsiString &s);
  171. extern PACKAGE void __fastcall fcStripTrailing(AnsiString &s);
  172. extern PACKAGE void __fastcall fcStripWhiteSpace(AnsiString &s);
  173. extern PACKAGE void __fastcall fcColorToByteValues(Graphics::TColor AColor, Byte &Reserved, Byte &Blue, Byte &Green, Byte &Red);
  174. extern PACKAGE AnsiString __fastcall fcRGBToHexString(Byte R, Byte G, Byte B);
  175. extern PACKAGE AnsiString __fastcall fcColorToRGBString(Graphics::TColor AColor);
  176. extern PACKAGE AnsiString __fastcall fcGetItemsFromStringList(Classes::TStrings* SList, int Index);
  177. extern PACKAGE AnsiString __fastcall fcGetNamesFromStringList(Classes::TStrings* AList, int Index);
  178. extern PACKAGE AnsiString __fastcall fcGetValuesFromStringList(Classes::TStrings* AList, int Index);
  179. extern PACKAGE Graphics::TColor __fastcall fcGetColorFromList(Classes::TStrings* AList, int Index);
  180. extern PACKAGE int __fastcall fcValueInList(AnsiString Value, Classes::TStrings* List);
  181. extern PACKAGE int __fastcall fcNameInList(AnsiString Name, Classes::TStrings* List);
  182. extern PACKAGE Classes::TStrings* __fastcall fcSetColorDialogCustomColors(Classes::TStrings* AList);
  183. extern PACKAGE void __fastcall fcQuickSort(Classes::TStrings* SList, int L, int R, TwwListSortCompare SCompare, TwwGetCompareString SGetString);
  184. extern PACKAGE bool __fastcall fcIsTrueColorBitmap(Graphics::TBitmap* Bitmap);
  185. extern PACKAGE int __fastcall fcBytesPerScanline(int PixelsPerScanline, int BitsPerPixel, int Alignment);
  186. extern PACKAGE bool __fastcall fcGetDIBBitsFromBitmap(Graphics::TBitmap* aBitmap, tagBITMAPINFO &BitmapInfo, void * &pixbuf, int &bytespscanline, HBITMAP &Hb);
  187. extern PACKAGE HRGN __fastcall fcCreateRegionFromBitmap(Graphics::TBitmap* ABitmap, Graphics::TColor TransColor);
  188. extern PACKAGE HRGN __fastcall fcRegionFromBitmap(Fcbitmap::TfcBitmap* ABitmap, Graphics::TColor TransColor);
  189. extern PACKAGE void __fastcall fcSetDitherBitmap(Graphics::TBitmap* DitherBitmap, Graphics::TColor Color1, Graphics::TColor Color2);
  190. extern PACKAGE int __fastcall fcMin(int Int1, int Int2)/* overload */;
  191. extern PACKAGE double __fastcall fcMinFloat(double Int1, double Int2)/* overload */;
  192. extern PACKAGE int __fastcall fcMax(int Int1, int Int2)/* overload */;
  193. extern PACKAGE double __fastcall fcMaxFloat(double Int1, double Int2)/* overload */;
  194. extern PACKAGE int __fastcall fcLimit(int Val, int Int1, int Int2);
  195. extern PACKAGE void __fastcall fcPlayKeystroke(HWND Handle, Word VKChar, Word VKShift);
  196. extern PACKAGE int __fastcall fcRectWidth(const Types::TRect &Rect);
  197. extern PACKAGE int __fastcall fcRectHeight(const Types::TRect &Rect);
  198. extern PACKAGE AnsiString __fastcall fcSubstring(AnsiString s, int Start, int Stop);
  199. extern PACKAGE int __fastcall fcIndexOf(AnsiString Substr, AnsiString s, int Index);
  200. extern PACKAGE int __fastcall fcLastIndexOf(AnsiString Substr, AnsiString s, int Index);
  201. extern PACKAGE int __fastcall fcNthIndexOf(AnsiString Substr, AnsiString s, int Index);
  202. extern PACKAGE int __fastcall fcCountTokens(AnsiString s, AnsiString Delimiter);
  203. extern PACKAGE AnsiString __fastcall fcGetToken(AnsiString s, AnsiString Delimiter, int Index);
  204. extern PACKAGE AnsiString __fastcall fcSetToken(AnsiString s, AnsiString Delimiter, AnsiString Token, int Index);
  205. extern PACKAGE int __fastcall fcFindToken(AnsiString s, AnsiString Delimiter, AnsiString Token);
  206. extern PACKAGE Typinfo::PPropInfo __fastcall fcGetPropInfo(Classes::TPersistent* Component, AnsiString PropName);
  207. extern PACKAGE AnsiString __fastcall fcGenerateName(Classes::TComponent* Component, const AnsiString Base);
  208. extern PACKAGE Types::TPoint __fastcall fcGetCursorPos();
  209. extern PACKAGE int __fastcall fcThisThat(const bool Clause, int TrueVal, int FalseVal);
  210. extern PACKAGE tagSIZE __fastcall fcSize(int cx, int cy);
  211. extern PACKAGE bool __fastcall fcSizeEqual(const tagSIZE &Size1, const tagSIZE &Size2);
  212. extern PACKAGE AnsiString __fastcall fcStripAmpersands(AnsiString Value);
  213. extern PACKAGE AnsiString __fastcall fcReplace(AnsiString s, AnsiString Find, AnsiString Replace);
  214. extern PACKAGE int __fastcall fcLineHeight(Graphics::TCanvas* Canvas, int Flags, int MaxWidth, AnsiString Line);
  215. extern PACKAGE tagSIZE __fastcall fcMultiLineTextSize(Graphics::TCanvas* Canvas, AnsiString Text, int LineSpacing, int MaxWidth, int DrawFlags);
  216. extern PACKAGE void __fastcall fcAdjustFlag(bool Condition, unsigned &Flag, unsigned FlagVal);
  217. extern PACKAGE int __fastcall fcSign(Extended Value);
  218. extern PACKAGE void __fastcall fcOffsetBitmap(Fcbitmap::TfcBitmap* Bitmap, Graphics::TColor Transparent, const Types::TPoint &Offset);
  219. extern PACKAGE void __fastcall fcDottedLine(Graphics::TCanvas* Canvas, const Types::TPoint &p1, const Types::TPoint &p2);
  220. extern PACKAGE void __fastcall fcTransparentDraw(Graphics::TCanvas* Canvas, const Types::TRect &ARect, Fcbitmap::TfcBitmap* Bitmap, Graphics::TColor TransparentColor);
  221. extern PACKAGE Graphics::TColor __fastcall fcModifyColor(Graphics::TColor Color, int Amount, bool Percent);
  222. extern PACKAGE void __fastcall fcImageListDraw(Imglist::TCustomImageList* ImageList, int Index, Graphics::TCanvas* Canvas, int X, int Y, unsigned Style, bool Enabled);
  223. extern PACKAGE void __fastcall fcImageListDrawFixBug(Imglist::TCustomImageList* ImageList, int Index, Graphics::TCanvas* Canvas, int X, int Y, unsigned Style, bool Enabled);
  224. extern PACKAGE void __fastcall fcIncSize(tagSIZE &Size, int Amount);
  225. extern PACKAGE Controls::THintWindow* __fastcall fcGetHintWindow(void);
  226. extern PACKAGE Messages::TMessage __fastcall fcMessage(unsigned Msg, int wParam, int lParam, unsigned MsgRslt);
  227. extern PACKAGE TfcFontType __fastcall fcGetFontType(int AFontType);
  228. extern PACKAGE TfcFontType __fastcall fcGetFontIcon(AnsiString FaceName);
  229. extern PACKAGE AnsiString __fastcall fcGetStrProp(Classes::TPersistent* Component, AnsiString PropName);
  230. extern PACKAGE int __fastcall fcGetOrdProp(Classes::TPersistent* Component, AnsiString PropName);
  231. extern PACKAGE void __fastcall fcSetStrProp(Classes::TPersistent* Component, AnsiString PropName, AnsiString Value);
  232. extern PACKAGE void __fastcall fcSetOrdProp(Classes::TPersistent* Component, AnsiString PropName, int Value);
  233. extern PACKAGE void __fastcall fcGetBooleanProps(Classes::TPersistent* Component, Classes::TStrings* List);
  234. extern PACKAGE tagLOGFONTA __fastcall fcLogFont();
  235. extern PACKAGE void __fastcall fcShowHint(AnsiString Hint, const Types::TPoint &Coord);
  236. extern PACKAGE void __fastcall fcPaintGraphic(Graphics::TGraphic* AGraphic, bool Modal);
  237. extern PACKAGE void __fastcall fcPaintCanvas(Graphics::TCanvas* ACanvas, bool Modal);
  238. extern PACKAGE void __fastcall fcPaintDC(HDC DC, bool Modal);
  239. extern PACKAGE void __fastcall fcPaintRegion(HRGN Rgn, bool DoOffset, bool ShowModal);
  240. extern PACKAGE void __fastcall fcGetChildRegions(Controls::TWinControl* Control, bool Transparent, HRGN Rgn, const Types::TPoint &Offset, int Flags);
  241. extern PACKAGE void __fastcall fcAnimateControls(Controls::TWinControl* Control, Graphics::TCanvas* ControlCanvas, Classes::TList* AnimateList, int Interval, int Steps, TfcSetBoundsProc SetBoundsProc);
  242. extern PACKAGE TfcInteger __fastcall fcWithInteger(int Value);
  243. extern PACKAGE Types::TRect __fastcall fcCombineRect(const Types::TRect &r1, const Types::TRect &r2);
  244. extern PACKAGE void __fastcall fcClipBitmapToRegion(Fcbitmap::TfcBitmap* Bitmap, HRGN Rgn);
  245. extern PACKAGE Graphics::TColor __fastcall fcRGBToBGR(Graphics::TColor Color);
  246. extern PACKAGE void __fastcall fcInvalidateChildren(HWND Control);
  247. extern PACKAGE Types::TRect __fastcall fcUnionRect(const Types::TRect &R1, const Types::TRect &R2);
  248. extern PACKAGE bool __fastcall fcRectEmpty(const Types::TRect &r);
  249. extern PACKAGE void __fastcall fcInvalidateOverlappedWindows(HWND ParentHwnd, HWND FirstChild);
  250. extern PACKAGE void __fastcall fcParentInvalidate(Controls::TControl* Control, bool Erase);
  251. extern PACKAGE void __fastcall fcPaintTo(Controls::TWinControl* Control, Graphics::TCanvas* Canvas, int X, int Y);
  252. extern PACKAGE void __fastcall fcBufferredAnimation(Graphics::TCanvas* ControlCanvas, Classes::TList* AnimateList, int Interval, int Steps);
  253. extern PACKAGE Byte __fastcall fcHighestRGBVal(Graphics::TColor Color);
  254. extern PACKAGE void __fastcall fcDrawMask(Graphics::TCanvas* Canvas, const Types::TRect &ARect, Graphics::TBitmap* Bitmap, Graphics::TBitmap* Mask, bool Buffer);
  255. extern PACKAGE Types::TRect __fastcall fcProportionalRect(const Types::TRect &OrigRect, int Width, int Height);
  256. extern PACKAGE Types::TRect __fastcall fcProportionalCenterRect(const Types::TRect &OrigRect, int Width, int Height);
  257. extern PACKAGE bool __fastcall fcUpdatedComCtlVersion(void);
  258. extern PACKAGE void __fastcall fcPatternFill(void * Pattern, int SizeOfPat, void * Dst, int SizeOfDst);
  259. extern PACKAGE void __fastcall fcMakePagesResourceFriendly(Comctrls::TPageControl* PageControl);
  260. extern PACKAGE void __fastcall fcCreateDisabledBitmap(Graphics::TBitmap* SrcBm, Graphics::TBitmap* DstBm);
  261. extern PACKAGE void __fastcall fcDrawEllipsis(Graphics::TCanvas* Canvas, const Types::TRect &R, Buttons::TButtonState State, bool Enabled, bool Transparent, bool FlatButtonTransparent, Controls::TControlState ControlState);
  262. extern PACKAGE void __fastcall fcDrawDropDownArrow(Graphics::TCanvas* Canvas, const Types::TRect &R, Buttons::TButtonState State, bool Enabled, Controls::TControlState ControlState);
  263. extern PACKAGE Graphics::TColor __fastcall fcExecuteColorDialog(Graphics::TColor AColor);
  264. extern PACKAGE Classes::TComponent* __fastcall fcComponentFromString(Classes::TComponent* Root, AnsiString Value);
  265. extern PACKAGE AnsiString __fastcall fcStringFromComponent(Classes::TComponent* Root, Classes::TComponent* Value);
  266. extern PACKAGE void __fastcall fcCalcButtonLayout(const Types::TPoint &TopLeft, Types::PRect TextRect, Types::PRect GlyphRect, const tagSIZE &TextSize, const tagSIZE &GlyphSize, Buttons::TButtonLayout Layout, int Spacing);
  267. extern PACKAGE AnsiString __fastcall fcGetRegionData(HRGN Rgn);
  268. extern PACKAGE HBRUSH __fastcall fcGetDitherBrush(void);
  269. extern PACKAGE void __fastcall fcDither(Graphics::TCanvas* ACanvas, const Types::TRect &Rect, Graphics::TColor Color1, Graphics::TColor Color2);
  270. extern PACKAGE void __fastcall fcTileDraw(Graphics::TGraphic* Source, Graphics::TCanvas* Dest, const Types::TRect &DstRect);
  271. extern PACKAGE Classes::TComponent* __fastcall fcFindGlobalComponent(const AnsiString Name);
  272. extern PACKAGE void __fastcall fcHelp(HWND Handle, char * HelpTopic);
  273. extern PACKAGE bool __fastcall fcIsDesigning(Controls::TControl* control);
  274. extern PACKAGE void __fastcall fcDisableParentClipping(Controls::TWinControl* Parent);
  275. extern PACKAGE bool __fastcall fcIsInGrid(Controls::TWinControl* dtp);
  276. extern PACKAGE AnsiString __fastcall fcstrRemoveChar(AnsiString str, char removeChar);
  277. extern PACKAGE AnsiString __fastcall fcGetWord(AnsiString s, int &APos, TfcGetWordOptions Options, const fcstrCharSet &DelimSet);
  278. extern PACKAGE char __fastcall fcMessageCodeToChar(Word code);
  279. extern PACKAGE bool __fastcall fcUseThemes(Controls::TControl* Control);
  280. extern PACKAGE void __fastcall fcUpdateController(Classes::TComponent* &FController, Classes::TComponent* Value, Controls::TControl* Control);
  281. extern PACKAGE Classes::TList* __fastcall fcGetControlList(Classes::TComponent* Controller);
  283. } /* namespace Fccommon */
  284. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  285. using namespace Fccommon;
  286. #endif
  287. #pragma option pop // -w-
  288. #pragma option pop // -Vx
  290. #pragma delphiheader end.
  291. //-- end unit ----------------------------------------------------------------
  292. #endif // fcCommon