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

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

Delphi控件源码

开发平台：

Delphi

fcbutton.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcButton.pas' rev: 5.00
  7. #ifndef fcButtonHPP
  8. #define fcButtonHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <fctext.hpp> // Pascal unit
  14. #include <Variants.hpp> // Pascal unit
  15. #include <ActnList.hpp> // Pascal unit
  16. #include <ImgList.hpp> // Pascal unit
  17. #include <DB.hpp> // Pascal unit
  18. #include <DBCtrls.hpp> // Pascal unit
  19. #include <TypInfo.hpp> // Pascal unit
  20. #include <fcChangeLink.hpp> // Pascal unit
  21. #include <fcBitmap.hpp> // Pascal unit
  22. #include <fcCommon.hpp> // Pascal unit
  23. #include <SysUtils.hpp> // Pascal unit
  24. #include <Consts.hpp> // Pascal unit
  25. #include <Math.hpp> // Pascal unit
  26. #include <Dialogs.hpp> // Pascal unit
  27. #include <Buttons.hpp> // Pascal unit
  28. #include <CommCtrl.hpp> // Pascal unit
  29. #include <StdCtrls.hpp> // Pascal unit
  30. #include <Graphics.hpp> // Pascal unit
  31. #include <Forms.hpp> // Pascal unit
  32. #include <Controls.hpp> // Pascal unit
  33. #include <Classes.hpp> // Pascal unit
  34. #include <Messages.hpp> // Pascal unit
  35. #include <Windows.hpp> // Pascal unit
  36. #include <SysInit.hpp> // Pascal unit
  37. #include <System.hpp> // Pascal unit
  39. //-- user supplied -----------------------------------------------------------
  41. namespace Fcbutton
  42. {
  43. //-- type declarations -------------------------------------------------------
  44. #pragma option push -b-
  45. enum TfcShadeStyle { fbsNormal, fbsRaised, fbsHighlight, fbsFlat };
  46. #pragma option pop
  48. #pragma option push -b-
  49. enum TfcButtonOption { boFocusable, boOverrideActionGlyph, boToggleOnUp, boFocusRect, boAutoBold };
  50. #pragma option pop
  52. typedef Set<TfcButtonOption, boFocusable, boAutoBold>  TfcButtonOptions;
  54. typedef TMetaClass*TfcCustomBitBtnClass;
  56. #pragma pack(push, 4)
  57. struct TfcRegionData
  58. {
  59. int dwSize;
  60. _RGNDATA *rgnData;
  61. } ;
  62. #pragma pack(pop)
  64. typedef TfcRegionData *PfcRegionData;
  66. class DELPHICLASS TfcOffsets;
  67. class DELPHICLASS TfcCustomBitBtn;
  68. class PASCALIMPLEMENTATION TfcOffsets : public Classes::TPersistent 
  69. {
  70. typedef Classes::TPersistent inherited;
  72. private:
  73. Controls::TWinControl* FControl;
  74. int FGlyphX;
  75. int FGlyphY;
  76. int FTextX;
  77. int FTextY;
  78. int FTextDownX;
  79. int FTextDownY;
  80. void __fastcall SetGlyphX(int Value);
  81. void __fastcall SetGlyphY(int Value);
  82. void __fastcall SetTextX(int Value);
  83. void __fastcall SetTextY(int Value);
  85. protected:
  86. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  87. __property Controls::TWinControl* Control = {read=FControl};
  89. public:
  90. __fastcall TfcOffsets(TfcCustomBitBtn* Button);
  92. __published:
  93. __property int GlyphX = {read=FGlyphX, write=SetGlyphX, default=0};
  94. __property int GlyphY = {read=FGlyphY, write=SetGlyphY, default=0};
  95. __property int TextX = {read=FTextX, write=SetTextX, default=0};
  96. __property int TextY = {read=FTextY, write=SetTextY, default=0};
  97. __property int TextDownX = {read=FTextDownX, write=FTextDownX, default=1};
  98. __property int TextDownY = {read=FTextDownY, write=FTextDownY, default=1};
  99. public:
  100. #pragma option push -w-inl
  101. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcOffsets(void) { }
  102. #pragma option pop
  104. };
  107. class DELPHICLASS TfcShadeColors;
  108. class PASCALIMPLEMENTATION TfcShadeColors : public Classes::TPersistent 
  109. {
  110. typedef Classes::TPersistent inherited;
  112. private:
  113. TfcCustomBitBtn* FButton;
  114. Graphics::TColor FBtnHighlight;
  115. Graphics::TColor FBtn3dLight;
  116. Graphics::TColor FBtnShadow;
  117. Graphics::TColor FBtnBlack;
  118. Graphics::TColor FBtnFocus;
  119. Graphics::TColor FShadow;
  120. void __fastcall SetBtn3DLight(Graphics::TColor Value);
  121. void __fastcall SetBtnBlack(Graphics::TColor Value);
  122. void __fastcall SetBtnHighlight(Graphics::TColor Value);
  123. void __fastcall SetBtnShadow(Graphics::TColor Value);
  124. void __fastcall SetBtnFocus(Graphics::TColor Value);
  125. void __fastcall SetShadow(Graphics::TColor Value);
  127. protected:
  128. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  130. public:
  131. __fastcall TfcShadeColors(TfcCustomBitBtn* Button);
  133. __published:
  134. __property Graphics::TColor Btn3DLight = {read=FBtn3dLight, write=SetBtn3DLight, default=-2147483626};
  135. __property Graphics::TColor BtnHighlight = {read=FBtnHighlight, write=SetBtnHighlight, default=-2147483628};
  136. __property Graphics::TColor BtnShadow = {read=FBtnShadow, write=SetBtnShadow, default=-2147483632};
  137. __property Graphics::TColor BtnBlack = {read=FBtnBlack, write=SetBtnBlack, default=0};
  138. __property Graphics::TColor BtnFocus = {read=FBtnFocus, write=SetBtnFocus, default=0};
  139. __property Graphics::TColor Shadow = {read=FShadow, write=SetShadow, default=0};
  140. public:
  141. #pragma option push -w-inl
  142. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcShadeColors(void) { }
  143. #pragma option pop
  145. };
  148. class PASCALIMPLEMENTATION TfcCustomBitBtn : public Controls::TWinControl 
  149. {
  150. typedef Controls::TWinControl inherited;
  152. private:
  153. bool FActive;
  154. bool FAllowAllUp;
  155. bool FCancel;
  156. bool FDefault;
  157. bool FDown;
  158. Graphics::TBitmap* FGlyph;
  159. int FGroupIndex;
  160. bool FInMouseSendForMouseActivate;
  161. Buttons::TBitBtnKind FKind;
  162. Buttons::TButtonLayout FLayout;
  163. int FMargin;
  164. Controls::TModalResult FModalResult;
  165. Buttons::TNumGlyphs FNumGlyphs;
  166. HRGN FRegion;
  167. HRGN FLastRegion;
  168. TfcShadeColors* FShadeColors;
  169. TfcShadeStyle FShadeStyle;
  170. bool FShowFocusRect;
  171. int FSpacing;
  172. Buttons::TButtonStyle FStyle;
  173. Fctext::TfcCaptionText* FTextOptions;
  174. bool FSmoothFont;
  175. #pragma pack(push, 1)
  176. Types::TRect FGlyphRect;
  177. #pragma pack(pop)
  179. #pragma pack(push, 1)
  180. Types::TRect FTextRect;
  181. #pragma pack(pop)
  183. Classes::TNotifyEvent FOnMouseEnter;
  184. Classes::TNotifyEvent FOnMouseLeave;
  185. Classes::TNotifyEvent FOnSelChange;
  186. Classes::TNotifyEvent FOnSetName;
  187. Graphics::TCanvas* FCanvas;
  188. TfcOffsets* FOffsets;
  189. bool FModifiedGlyph;
  190. TfcButtonOptions FOptions;
  191. Classes::TList* FChangeLinks;
  192. Fcchangelink::TfcChangeLink* FChangeLink;
  193. bool FClicked;
  194. bool FInitialDown;
  195. Classes::TStringList* FEvents;
  196. bool FUseHalftonePalette;
  197. bool FShowDownAsUp;
  198. bool FHot;
  199. Dbctrls::TFieldDataLink* FDataLink;
  200. bool FDisableThemes;
  201. bool FStaticCaption;
  202. Buttons::TBitBtnKind __fastcall GetKind(void);
  203. void __fastcall SetAllowAllUp(bool Value);
  204. void __fastcall SetButtonDown(bool Value, bool CheckAllowAllUp, bool DoUpdateExclusive, bool DoInvalidate);
  205. void __fastcall SetDefault(bool Value);
  206. void __fastcall SetDown(bool Value);
  207. void __fastcall SetGlyph(Graphics::TBitmap* Value);
  208. void __fastcall SetGroupIndex(int Value);
  209. void __fastcall SetKind(Buttons::TBitBtnKind Value);
  210. void __fastcall SetLayout(Buttons::TButtonLayout Value);
  211. void __fastcall SetMargin(int Value);
  212. void __fastcall SetNumGlyphs(Buttons::TNumGlyphs Value);
  213. void __fastcall SetOptions(TfcButtonOptions Value);
  214. void __fastcall SetSpacing(int Value);
  215. void __fastcall SetShadeStyle(TfcShadeStyle Value);
  216. void __fastcall SetStyle(Buttons::TButtonStyle Value);
  217. HIDESBASE MESSAGE void __fastcall WMCancelMode(Messages::TWMNoParams &Message);
  218. MESSAGE void __fastcall CMGetDataLink(Messages::TMessage &Message);
  219. HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  220. MESSAGE void __fastcall CMButtonPressed(Messages::TMessage &Message);
  221. HIDESBASE MESSAGE void __fastcall CMDialogChar(Messages::TWMKey &Message);
  222. HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  223. HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
  224. HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
  225. HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
  226. MESSAGE void __fastcall CNDrawItem(Messages::TWMDrawItem &Message);
  227. MESSAGE void __fastcall CNMeasureItem(Messages::TWMMeasureItem &Message);
  228. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  229. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  230. MESSAGE void __fastcall WMMouseActivate(Messages::TWMMouseActivate &Message);
  231. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  232. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  233. void __fastcall ProcessMouseUp(int X, int Y, bool AMouseInControl, bool AClicked);
  234. void __fastcall ProcessMouseDown(void);
  235. AnsiString __fastcall GetDataField();
  236. Db::TDataSource* __fastcall GetDataSource(void);
  237. void __fastcall SetDataField(const AnsiString Value);
  238. void __fastcall SetDataSource(Db::TDataSource* Value);
  240. protected:
  241. TfcRegionData FDownRegionData;
  242. TfcRegionData FRegionData;
  243. bool FSelected;
  244. bool DisableButton;
  245. Db::TField* __fastcall GetField(void);
  246. virtual AnsiString __fastcall GetDBCaption();
  247. DYNAMIC HPALETTE __fastcall GetPalette(void);
  248. DYNAMIC void __fastcall ActionChange(System::TObject* Sender, bool CheckDefaults);
  249. virtual void __fastcall AssignTo(Classes::TPersistent* Dest);
  250. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  251. virtual void __fastcall CreateWnd(void);
  252. virtual void __fastcall DestroyWnd(void);
  253. virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  254. virtual void __fastcall Loaded(void);
  255. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  256. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  257. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  258. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  259. virtual void __fastcall SetName(const AnsiString Value);
  260. void __fastcall GetEvents(const AnsiString s);
  261. virtual TfcOffsets* __fastcall CreateOffsets(void);
  262. virtual HRGN __fastcall CreateRegion(bool DoImplementation, bool Down);
  263. virtual Types::TRect __fastcall CalcButtonLayout(Graphics::TCanvas* Canvas, const Types::TRect &Client, Types::TRect &TextRect, Types::TRect &GlyphRect, const tagSIZE &TextSize);
  264. virtual int __fastcall GlyphWidth(void);
  265. virtual bool __fastcall IsCustom(void);
  266. virtual bool __fastcall IsCustomCaption(void);
  267. bool __fastcall MouseInControl(int X, int Y, bool AndClicked);
  268. virtual bool __fastcall StoreRegionData(void);
  269. virtual void __fastcall ChangeButtonDown(void);
  270. virtual void __fastcall CleanUp(void);
  271. virtual void __fastcall ClearRegion(PfcRegionData ARgnData);
  272. virtual void __fastcall DrawButtonGlyph(Graphics::TCanvas* Canvas, const Types::TPoint &GlyphPos);
  273. virtual void __fastcall DrawButtonText(Graphics::TCanvas* Canvas, const Types::TRect &TextBounds);
  274. virtual void __fastcall DrawItem(const tagDRAWITEMSTRUCT &DrawItemStruct);
  275. virtual void __fastcall GetDrawBitmap(Fcbitmap::TfcBitmap* DrawBitmap, bool ForRegion, TfcShadeStyle ShadeStyle, bool Down);
  276. virtual void __fastcall GlyphChanged(System::TObject* Sender);
  277. virtual void __fastcall NotifyChange(void);
  278. virtual void __fastcall NotifyChanging(void);
  279. virtual void __fastcall NotifyLoaded(void);
  280. virtual void __fastcall Paint(void);
  281. virtual void __fastcall Redraw(void);
  282. virtual void __fastcall ReadRegionData(Classes::TStream* Stream);
  283. virtual void __fastcall ReadDownRegionData(Classes::TStream* Stream);
  284. virtual void __fastcall SaveRegion(unsigned NewRegion, bool Down);
  285. virtual void __fastcall SelChange(void);
  286. virtual void __fastcall WndProc(Messages::TMessage &Message);
  287. virtual void __fastcall WriteRegionData(Classes::TStream* Stream);
  288. virtual void __fastcall WriteDownRegionData(Classes::TStream* Stream);
  289. virtual void __fastcall UpdateExclusive(void);
  290. virtual bool __fastcall UseRegions(void);
  291. __property bool Active = {read=FActive, nodefault};
  292. __property Graphics::TCanvas* Canvas = {read=FCanvas};
  293. __property Types::TRect GlyphRect = {read=FGlyphRect};
  294. __property Types::TRect TextRect = {read=FTextRect};
  295. __property bool InitalDown = {read=FInitialDown, nodefault};
  296. __property bool Clicked = {read=FClicked, nodefault};
  297. virtual void __fastcall DataChange(System::TObject* Sender);
  298. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  300. public:
  301. Variant BasePatch;
  302. __property HRGN Region = {read=FRegion, nodefault};
  303. __fastcall virtual TfcCustomBitBtn(Classes::TComponent* AOwner);
  304. __fastcall virtual ~TfcCustomBitBtn(void);
  305. virtual void __fastcall ApplyRegion(void);
  306. virtual void __fastcall InvalidateNotRegion(const bool Erase);
  307. virtual Types::TRect __fastcall Draw(Graphics::TCanvas* Canvas);
  308. virtual bool __fastcall IsMultipleRegions(void);
  309. DYNAMIC void __fastcall Click(void);
  310. virtual void __fastcall SizeToDefault(void);
  311. virtual void __fastcall UpdateShadeColors(Graphics::TColor Color);
  312. virtual void __fastcall RegisterChanges(Fcchangelink::TfcChangeLink* Value);
  313. virtual void __fastcall UnRegisterChanges(Fcchangelink::TfcChangeLink* Value);
  314. virtual bool __fastcall GetTextEnabled(void);
  315. virtual void __fastcall AdjustBounds(void);
  316. __property bool ShowDownAsUp = {read=FShowDownAsUp, write=FShowDownAsUp, default=0};
  317. __property bool StaticCaption = {read=FStaticCaption, write=FStaticCaption, default=0};
  318. __property bool AllowAllUp = {read=FAllowAllUp, write=SetAllowAllUp, default=0};
  319. __property bool Cancel = {read=FCancel, write=FCancel, default=0};
  320. __property Caption  = {stored=IsCustomCaption};
  321. __property Color ;
  322. __property bool Default = {read=FDefault, write=SetDefault, default=0};
  323. __property bool Down = {read=FDown, write=SetDown, default=0};
  324. __property Font ;
  325. __property TfcOffsets* Offsets = {read=FOffsets, write=FOffsets};
  326. __property Graphics::TBitmap* Glyph = {read=FGlyph, write=SetGlyph, stored=IsCustom};
  327. __property int GroupIndex = {read=FGroupIndex, write=SetGroupIndex, default=0};
  328. __property Buttons::TBitBtnKind Kind = {read=GetKind, write=SetKind, default=0};
  329. __property Buttons::TButtonLayout Layout = {read=FLayout, write=SetLayout, default=0};
  330. __property int Margin = {read=FMargin, write=SetMargin, default=-1};
  331. __property Controls::TModalResult ModalResult = {read=FModalResult, write=FModalResult, default=0};
  332. __property Buttons::TNumGlyphs NumGlyphs = {read=FNumGlyphs, write=SetNumGlyphs, stored=IsCustom, default=1};
  333. __property TfcButtonOptions Options = {read=FOptions, write=SetOptions, default=0};
  334. __property bool Selected = {read=FSelected, nodefault};
  335. __property TfcShadeColors* ShadeColors = {read=FShadeColors, write=FShadeColors};
  336. __property TfcShadeStyle ShadeStyle = {read=FShadeStyle, write=SetShadeStyle, nodefault};
  337. __property bool SmoothFont = {read=FSmoothFont, write=FSmoothFont, default=0};
  338. __property Buttons::TButtonStyle Style = {read=FStyle, write=SetStyle, default=0};
  339. __property int Spacing = {read=FSpacing, write=SetSpacing, default=4};
  340. __property TabStop ;
  341. __property Fctext::TfcCaptionText* TextOptions = {read=FTextOptions, write=FTextOptions};
  342. __property OnClick ;
  343. __property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
  344. __property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
  345. __property Classes::TNotifyEvent OnSelChange = {read=FOnSelChange, write=FOnSelChange};
  346. __property Classes::TNotifyEvent OnSetName = {read=FOnSetName, write=FOnSetName};
  347. __property bool UseHalftonePalette = {read=FUseHalftonePalette, write=FUseHalftonePalette, nodefault};
  348. __property bool Hot = {read=FHot, write=FHot, nodefault};
  349. __property AnsiString DataField = {read=GetDataField, write=SetDataField};
  350. __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
  351. __property Dbctrls::TFieldDataLink* DataLink = {read=FDataLink};
  352. __property Db::TField* Field = {read=GetField};
  353. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  354. public:
  355. #pragma option push -w-inl
  356. /* TWinControl.CreateParented */ inline __fastcall TfcCustomBitBtn(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
  357. #pragma option pop
  359. };
  362. //-- var, const, procedure ---------------------------------------------------
  363. static const Shortint DESIGN_KEY = 0x12;
  365. } /* namespace Fcbutton */
  366. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  367. using namespace Fcbutton;
  368. #endif
  369. #pragma option pop // -w-
  370. #pragma option pop // -Vx
  372. #pragma delphiheader end.
  373. //-- end unit ----------------------------------------------------------------
  374. #endif // fcButton