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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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 Windows::TRect 
  52. &Rect);
  54. #pragma option push -b-
  55. enum TfcLayout { loVertical, loHorizontal };
  56. #pragma option pop
  58. #pragma option push -b-
  59. enum TfcFontType { ftPrinter, ftTrueType, ftOther };
  60. #pragma option pop
  62. typedef TfcFontType *PfcFontType;
  64. typedef Windows::TPoint TfcPolyGonPoints[21];
  66. typedef Windows::TPoint *PfcPolyGonPoints;
  68. #pragma option push -b-
  69. enum TwwDBGridOption { dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, 
  70. dgRowLines, dgRowFixedLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, 
  71. dgWordWrap, dgPerfectRowFit, dgMultiSelect };
  72. #pragma option pop
  74. typedef Set<TwwDBGridOption, dgEditing, dgMultiSelect>  TwwDBGridOptions;
  76. typedef int __fastcall (*TwwListSortCompare)(AnsiString Item1, AnsiString Item2);
  78. typedef AnsiString __fastcall (*TwwGetCompareString)(Classes::TStrings* SList, int Index);
  80. #pragma option push -b-
  81. enum TfcOrientation { fcTopLeft, fcTopRight, fcBottomLeft, fcBottomRight, fcTop, fcRight, fcLeft, fcBottom 
  82. };
  83. #pragma option pop
  85. typedef TfcOrientation TfcDiagonals;
  87. typedef TfcOrientation TfcStraights;
  89. #pragma option push -b-
  90. enum TfcGetWordOption { fcgwSkipLeadingBlanks, fcgwQuotesAsWords, fcgwStripQuotes, fcgwSpacesInWords 
  91. };
  92. #pragma option pop
  94. typedef Set<TfcGetWordOption, fcgwSkipLeadingBlanks, fcgwSpacesInWords>  TfcGetWordOptions;
  96. typedef Set<char, 0, 255>  fcstrCharSet;
  98. struct TfcInteger
  99. {
  100. int Value;
  101. } ;
  103. class DELPHICLASS TfcAnimateListItem;
  104. class PASCALIMPLEMENTATION TfcAnimateListItem : public System::TObject 
  105. {
  106. typedef System::TObject inherited;
  108. public:
  109. Controls::TWinControl* Control;
  110. Graphics::TBitmap* Bitmap;
  111. Windows::TRect OrigRect;
  112. Windows::TRect CurRect;
  113. Windows::TRect FinalRect;
  114. public:
  115. #pragma option push -w-inl
  116. /* TObject.Create */ inline __fastcall TfcAnimateListItem(void) : System::TObject() { }
  117. #pragma option pop
  118. #pragma option push -w-inl
  119. /* TObject.Destroy */ inline __fastcall virtual ~TfcAnimateListItem(void) { }
  120. #pragma option pop
  122. };
  125. class DELPHICLASS TfcGroupAnimateItem;
  126. class PASCALIMPLEMENTATION TfcGroupAnimateItem : public System::TObject 
  127. {
  128. typedef System::TObject inherited;
  130. public:
  131. TfcAnimateListItem* MainItem;
  132. TfcAnimateListItem* SecondItem;
  133. public:
  134. #pragma option push -w-inl
  135. /* TObject.Create */ inline __fastcall TfcGroupAnimateItem(void) : System::TObject() { }
  136. #pragma option pop
  137. #pragma option push -w-inl
  138. /* TObject.Destroy */ inline __fastcall virtual ~TfcGroupAnimateItem(void) { }
  139. #pragma option pop
  141. };
  144. //-- var, const, procedure ---------------------------------------------------
  145. static const int clNullColor = 0xfffffff;
  146. extern PACKAGE AnsiString fcVersion1stClass;
  147. extern PACKAGE Byte BitMask[8];
  148. static const int fcComCtlVersionIE3 = 0x40046;
  149. static const int fcComCtlVersionIE4 = 0x40047;
  150. static const int fcComCtlVersionIE401 = 0x40048;
  151. #define fcComCtlDllName "comctl32.dll"
  152. extern PACKAGE int __fastcall fcGetComCtlVersion(void);
  153. extern PACKAGE Classes::TShiftState __fastcall fcGetShiftState(void);
  154. extern PACKAGE bool __fastcall fcStrToFloat2(const AnsiString S, Extended &FloatValue, AnsiString DisplayFormat
  155. );
  156. extern PACKAGE Extended __fastcall fcStrToFloat(AnsiString str, AnsiString DisplayFormat);
  157. extern PACKAGE double __fastcall fcStrToRealDef(const AnsiString S, Extended Default);
  158. extern PACKAGE bool __fastcall fcIsClass(TMetaClass* ClassType, const AnsiString Name);
  159. extern PACKAGE bool __fastcall fcParentGridFocused(Controls::TControl* AControl);
  160. extern PACKAGE bool __fastcall fcIsInwwGrid(Controls::TControl* AControl);
  161. extern PACKAGE bool __fastcall fcIsInwwObjectView(Controls::TWinControl* control);
  162. extern PACKAGE bool __fastcall fcIsInwwObjectViewPaint(Controls::TWinControl* control);
  163. extern PACKAGE bool __fastcall fcIsInwwGridPaint(Controls::TWinControl* control);
  164. extern PACKAGE TwwDBGridOptions __fastcall fcGetGridOptions(Controls::TControl* AControl);
  165. extern PACKAGE void __fastcall fcStripPreceding(AnsiString &s);
  166. extern PACKAGE void __fastcall fcStripTrailing(AnsiString &s);
  167. extern PACKAGE void __fastcall fcStripWhiteSpace(AnsiString &s);
  168. extern PACKAGE void __fastcall fcColorToByteValues(Graphics::TColor AColor, Byte &Reserved, Byte &Blue
  169. , Byte &Green, Byte &Red);
  170. extern PACKAGE AnsiString __fastcall fcRGBToHexString(Byte R, Byte G, Byte B);
  171. extern PACKAGE AnsiString __fastcall fcColorToRGBString(Graphics::TColor AColor);
  172. extern PACKAGE AnsiString __fastcall fcGetItemsFromStringList(Classes::TStrings* SList, int Index);
  173. extern PACKAGE AnsiString __fastcall fcGetNamesFromStringList(Classes::TStrings* AList, int Index);
  174. extern PACKAGE AnsiString __fastcall fcGetValuesFromStringList(Classes::TStrings* AList, int Index);
  176. extern PACKAGE Graphics::TColor __fastcall fcGetColorFromList(Classes::TStrings* AList, int Index);
  177. extern PACKAGE int __fastcall fcValueInList(AnsiString Value, Classes::TStrings* List);
  178. extern PACKAGE int __fastcall fcNameInList(AnsiString Name, Classes::TStrings* List);
  179. extern PACKAGE Classes::TStrings* __fastcall fcSetColorDialogCustomColors(Classes::TStrings* AList);
  181. extern PACKAGE void __fastcall fcQuickSort(Classes::TStrings* SList, int L, int R, TwwListSortCompare 
  182. SCompare, TwwGetCompareString SGetString);
  183. extern PACKAGE bool __fastcall fcIsTrueColorBitmap(Graphics::TBitmap* Bitmap);
  184. extern PACKAGE int __fastcall fcBytesPerScanline(int PixelsPerScanline, int BitsPerPixel, int Alignment
  185. );
  186. extern PACKAGE bool __fastcall fcGetDIBBitsFromBitmap(Graphics::TBitmap* aBitmap, tagBITMAPINFO &BitmapInfo
  187. , void * &pixbuf, int &bytespscanline, HBITMAP &Hb);
  188. extern PACKAGE HRGN __fastcall fcCreateRegionFromBitmap(Graphics::TBitmap* ABitmap, Graphics::TColor 
  189. TransColor);
  190. extern PACKAGE HRGN __fastcall fcRegionFromBitmap(Fcbitmap::TfcBitmap* ABitmap, Graphics::TColor TransColor
  191. );
  192. extern PACKAGE void __fastcall fcSetDitherBitmap(Graphics::TBitmap* DitherBitmap, Graphics::TColor Color1
  193. , Graphics::TColor Color2);
  194. extern PACKAGE int __fastcall fcMin(int Int1, int Int2)/* overload */;
  195. extern PACKAGE double __fastcall fcMinFloat(double Int1, double Int2)/* overload */;
  196. extern PACKAGE int __fastcall fcMax(int Int1, int Int2)/* overload */;
  197. extern PACKAGE double __fastcall fcMaxFloat(double Int1, double Int2)/* overload */;
  198. extern PACKAGE int __fastcall fcLimit(int Val, int Int1, int Int2);
  199. extern PACKAGE void __fastcall fcPlayKeystroke(HWND Handle, Word VKChar, Word VKShift);
  200. extern PACKAGE int __fastcall fcRectWidth(const Windows::TRect &Rect);
  201. extern PACKAGE int __fastcall fcRectHeight(const Windows::TRect &Rect);
  202. extern PACKAGE AnsiString __fastcall fcSubstring(AnsiString s, int Start, int Stop);
  203. extern PACKAGE int __fastcall fcIndexOf(AnsiString Substr, AnsiString s, int Index);
  204. extern PACKAGE int __fastcall fcLastIndexOf(AnsiString Substr, AnsiString s, int Index);
  205. extern PACKAGE int __fastcall fcNthIndexOf(AnsiString Substr, AnsiString s, int Index);
  206. extern PACKAGE int __fastcall fcCountTokens(AnsiString s, AnsiString Delimiter);
  207. extern PACKAGE AnsiString __fastcall fcGetToken(AnsiString s, AnsiString Delimiter, int Index);
  208. extern PACKAGE AnsiString __fastcall fcSetToken(AnsiString s, AnsiString Delimiter, AnsiString Token
  209. , int Index);
  210. extern PACKAGE int __fastcall fcFindToken(AnsiString s, AnsiString Delimiter, AnsiString Token);
  211. extern PACKAGE Typinfo::PPropInfo __fastcall fcGetPropInfo(Classes::TPersistent* Component, AnsiString 
  212. PropName);
  213. extern PACKAGE AnsiString __fastcall fcGenerateName(Classes::TComponent* Component, const AnsiString 
  214. Base);
  215. extern PACKAGE Windows::TPoint __fastcall fcGetCursorPos(void);
  216. extern PACKAGE int __fastcall fcThisThat(const bool Clause, int TrueVal, int FalseVal);
  217. extern PACKAGE tagSIZE __fastcall fcSize(int cx, int cy);
  218. extern PACKAGE bool __fastcall fcSizeEqual(const tagSIZE &Size1, const tagSIZE &Size2);
  219. extern PACKAGE AnsiString __fastcall fcStripAmpersands(AnsiString Value);
  220. extern PACKAGE AnsiString __fastcall fcReplace(AnsiString s, AnsiString Find, AnsiString Replace);
  221. extern PACKAGE int __fastcall fcLineHeight(Graphics::TCanvas* Canvas, int Flags, int MaxWidth, AnsiString 
  222. Line);
  223. extern PACKAGE tagSIZE __fastcall fcMultiLineTextSize(Graphics::TCanvas* Canvas, AnsiString Text, int 
  224. LineSpacing, int MaxWidth, int DrawFlags);
  225. extern PACKAGE void __fastcall fcAdjustFlag(bool Condition, unsigned &Flag, unsigned FlagVal);
  226. extern PACKAGE int __fastcall fcSign(Extended Value);
  227. extern PACKAGE void __fastcall fcOffsetBitmap(Fcbitmap::TfcBitmap* Bitmap, Graphics::TColor Transparent
  228. , const Windows::TPoint &Offset);
  229. extern PACKAGE void __fastcall fcDottedLine(Graphics::TCanvas* Canvas, const Windows::TPoint &p1, const 
  230. Windows::TPoint &p2);
  231. extern PACKAGE void __fastcall fcTransparentDraw(Graphics::TCanvas* Canvas, const Windows::TRect &ARect
  232. , Fcbitmap::TfcBitmap* Bitmap, Graphics::TColor TransparentColor);
  233. extern PACKAGE Graphics::TColor __fastcall fcModifyColor(Graphics::TColor Color, int Amount, bool Percent
  234. );
  235. extern PACKAGE void __fastcall fcImageListDraw(Imglist::TCustomImageList* ImageList, int Index, Graphics::TCanvas* 
  236. Canvas, int X, int Y, unsigned Style, bool Enabled);
  237. extern PACKAGE void __fastcall fcImageListDrawFixBug(Imglist::TCustomImageList* ImageList, int Index
  238. , Graphics::TCanvas* Canvas, int X, int Y, unsigned Style, bool Enabled);
  239. extern PACKAGE void __fastcall fcIncSize(tagSIZE &Size, int Amount);
  240. extern PACKAGE Controls::THintWindow* __fastcall fcGetHintWindow(void);
  241. extern PACKAGE Messages::TMessage __fastcall fcMessage(unsigned Msg, int wParam, int lParam, unsigned 
  242. MsgRslt);
  243. extern PACKAGE TfcFontType __fastcall fcGetFontType(int AFontType);
  244. extern PACKAGE TfcFontType __fastcall fcGetFontIcon(AnsiString FaceName);
  245. extern PACKAGE AnsiString __fastcall fcGetStrProp(Classes::TPersistent* Component, AnsiString PropName
  246. );
  247. extern PACKAGE int __fastcall fcGetOrdProp(Classes::TPersistent* Component, AnsiString PropName);
  248. extern PACKAGE void __fastcall fcSetStrProp(Classes::TPersistent* Component, AnsiString PropName, AnsiString 
  249. Value);
  250. extern PACKAGE void __fastcall fcSetOrdProp(Classes::TPersistent* Component, AnsiString PropName, int 
  251. Value);
  252. extern PACKAGE void __fastcall fcGetBooleanProps(Classes::TPersistent* Component, Classes::TStrings* 
  253. List);
  254. extern PACKAGE tagLOGFONTA __fastcall fcLogFont(void);
  255. extern PACKAGE void __fastcall fcShowHint(AnsiString Hint, const Windows::TPoint &Coord);
  256. extern PACKAGE void __fastcall fcPaintGraphic(Graphics::TGraphic* AGraphic, bool Modal);
  257. extern PACKAGE void __fastcall fcPaintCanvas(Graphics::TCanvas* ACanvas, bool Modal);
  258. extern PACKAGE void __fastcall fcPaintDC(HDC DC, bool Modal);
  259. extern PACKAGE void __fastcall fcPaintRegion(HRGN Rgn, bool DoOffset, bool ShowModal);
  260. extern PACKAGE void __fastcall fcGetChildRegions(Controls::TWinControl* Control, bool Transparent, HRGN 
  261. Rgn, const Windows::TPoint &Offset, int Flags);
  262. extern PACKAGE void __fastcall fcAnimateControls(Controls::TWinControl* Control, Graphics::TCanvas* 
  263. ControlCanvas, Classes::TList* AnimateList, int Interval, int Steps, TfcSetBoundsProc SetBoundsProc
  264. );
  265. extern PACKAGE TfcInteger __fastcall fcWithInteger(int Value);
  266. extern PACKAGE Windows::TRect __fastcall fcCombineRect(const Windows::TRect &r1, const Windows::TRect 
  267. &r2);
  268. extern PACKAGE void __fastcall fcClipBitmapToRegion(Fcbitmap::TfcBitmap* Bitmap, HRGN Rgn);
  269. extern PACKAGE Graphics::TColor __fastcall fcRGBToBGR(Graphics::TColor Color);
  270. extern PACKAGE void __fastcall fcInvalidateChildren(HWND Control);
  271. extern PACKAGE Windows::TRect __fastcall fcUnionRect(const Windows::TRect &R1, const Windows::TRect 
  272. &R2);
  273. extern PACKAGE bool __fastcall fcRectEmpty(const Windows::TRect &r);
  274. extern PACKAGE void __fastcall fcInvalidateOverlappedWindows(HWND ParentHwnd, HWND FirstChild);
  275. extern PACKAGE void __fastcall fcParentInvalidate(Controls::TControl* Control, bool Erase);
  276. extern PACKAGE void __fastcall fcPaintTo(Controls::TWinControl* Control, Graphics::TCanvas* Canvas, 
  277. int X, int Y);
  278. extern PACKAGE void __fastcall fcBufferredAnimation(Graphics::TCanvas* ControlCanvas, Classes::TList* 
  279. AnimateList, int Interval, int Steps);
  280. extern PACKAGE Byte __fastcall fcHighestRGBVal(Graphics::TColor Color);
  281. extern PACKAGE void __fastcall fcDrawMask(Graphics::TCanvas* Canvas, const Windows::TRect &ARect, Graphics::TBitmap* 
  282. Bitmap, Graphics::TBitmap* Mask, bool Buffer);
  283. extern PACKAGE Windows::TRect __fastcall fcProportionalRect(const Windows::TRect &OrigRect, int Width
  284. , int Height);
  285. extern PACKAGE Windows::TRect __fastcall fcProportionalCenterRect(const Windows::TRect &OrigRect, int 
  286. Width, int Height);
  287. extern PACKAGE bool __fastcall fcUpdatedComCtlVersion(void);
  288. extern PACKAGE void __fastcall fcPatternFill(void * Pattern, int SizeOfPat, void * Dst, int SizeOfDst
  289. );
  290. extern PACKAGE void __fastcall fcMakePagesResourceFriendly(Comctrls::TPageControl* PageControl);
  291. extern PACKAGE void __fastcall fcCreateDisabledBitmap(Graphics::TBitmap* SrcBm, Graphics::TBitmap* DstBm
  292. );
  293. extern PACKAGE void __fastcall fcDrawEllipsis(Graphics::TCanvas* Canvas, const Windows::TRect &R, Buttons::TButtonState 
  294. State, bool Enabled, bool Transparent, bool FlatButtonTransparent, Controls::TControlState ControlState
  295. );
  296. extern PACKAGE void __fastcall fcDrawDropDownArrow(Graphics::TCanvas* Canvas, const Windows::TRect &
  297. R, Buttons::TButtonState State, bool Enabled, Controls::TControlState ControlState);
  298. extern PACKAGE Graphics::TColor __fastcall fcExecuteColorDialog(Graphics::TColor AColor);
  299. extern PACKAGE Classes::TComponent* __fastcall fcComponentFromString(Classes::TComponent* Root, AnsiString 
  300. Value);
  301. extern PACKAGE AnsiString __fastcall fcStringFromComponent(Classes::TComponent* Root, Classes::TComponent* 
  302. Value);
  303. extern PACKAGE void __fastcall fcCalcButtonLayout(const Windows::TPoint &TopLeft, Windows::PRect TextRect
  304. , Windows::PRect GlyphRect, const tagSIZE &TextSize, const tagSIZE &GlyphSize, Buttons::TButtonLayout 
  305. Layout, int Spacing);
  306. extern PACKAGE AnsiString __fastcall fcGetRegionData(HRGN Rgn);
  307. extern PACKAGE HBRUSH __fastcall fcGetDitherBrush(void);
  308. extern PACKAGE void __fastcall fcDither(Graphics::TCanvas* ACanvas, const Windows::TRect &Rect, Graphics::TColor 
  309. Color1, Graphics::TColor Color2);
  310. extern PACKAGE void __fastcall fcTileDraw(Graphics::TGraphic* Source, Graphics::TCanvas* Dest, const 
  311. Windows::TRect &DstRect);
  312. extern PACKAGE Classes::TComponent* __fastcall fcFindGlobalComponent(const AnsiString Name);
  313. extern PACKAGE void __fastcall fcHelp(HWND Handle, char * HelpTopic);
  314. extern PACKAGE bool __fastcall fcIsDesigning(Controls::TControl* control);
  315. extern PACKAGE void __fastcall fcDisableParentClipping(Controls::TWinControl* Parent);
  316. extern PACKAGE bool __fastcall fcIsInGrid(Controls::TWinControl* dtp);
  317. extern PACKAGE AnsiString __fastcall fcstrRemoveChar(AnsiString str, char removeChar);
  318. extern PACKAGE AnsiString __fastcall fcGetWord(AnsiString s, int &APos, TfcGetWordOptions Options, const 
  319. fcstrCharSet &DelimSet);
  320. extern PACKAGE char __fastcall fcMessageCodeToChar(Word code);
  321. extern PACKAGE bool __fastcall fcUseThemes(Controls::TControl* Control);
  322. extern PACKAGE void __fastcall fcUpdateController(Classes::TComponent* &FController, Classes::TComponent* 
  323. Value, Controls::TControl* Control);
  324. extern PACKAGE Classes::TList* __fastcall fcGetControlList(Classes::TComponent* Controller);
  326. } /* namespace Fccommon */
  327. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  328. using namespace Fccommon;
  329. #endif
  330. #pragma option pop // -w-
  331. #pragma option pop // -Vx
  333. #pragma delphiheader end.
  334. //-- end unit ----------------------------------------------------------------
  335. #endif // fcCommon