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

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

Delphi控件源码

开发平台：

Delphi

fcCalculator.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcCalculator.pas' rev: 5.00
  7. #ifndef fcCalculatorHPP
  8. #define fcCalculatorHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Dialogs.hpp> // Pascal unit
  14. #include <fcCommon.hpp> // Pascal unit
  15. #include <fcframe.hpp> // Pascal unit
  16. #include <fcCombo.hpp> // Pascal unit
  17. #include <Buttons.hpp> // Pascal unit
  18. #include <Graphics.hpp> // Pascal unit
  19. #include <ComCtrls.hpp> // Pascal unit
  20. #include <ExtCtrls.hpp> // Pascal unit
  21. #include <StdCtrls.hpp> // Pascal unit
  22. #include <Controls.hpp> // Pascal unit
  23. #include <Classes.hpp> // Pascal unit
  24. #include <Forms.hpp> // Pascal unit
  25. #include <SysUtils.hpp> // Pascal unit
  26. #include <Messages.hpp> // Pascal unit
  27. #include <Windows.hpp> // Pascal unit
  28. #include <SysInit.hpp> // Pascal unit
  29. #include <System.hpp> // Pascal unit
  31. //-- user supplied -----------------------------------------------------------
  33. namespace Fccalculator
  34. {
  35. //-- type declarations -------------------------------------------------------
  36. #pragma option push -b-
  37. enum TfcCalcButtonType { btNone, bt0, bt1, bt2, bt3, bt4, bt5, bt6, bt7, bt8, bt9, btDecimal, btPlusMinus, btMultiply, btDivide, btAdd, btSubtract, btEquals, btSqrt, btPercent, btInverse, btBackspace, btClear, btClearAll, btMRecall, btMStore, btMClear, btMAdd };
  38. #pragma option pop
  40. class DELPHICLASS TfcCalculator;
  41. typedef void __fastcall (__closure *TfcSetButtonAttributesEvent)(TfcCalculator* Calc, TfcCalcButtonType &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString &AHint);
  43. #pragma option push -b-
  44. enum TCalcState { csNone, csAdd, csSubtract, csMultiply, csDivide };
  45. #pragma option pop
  47. #pragma option push -b-
  48. enum TfcCalcOption { cboHotTrackButtons, cboFlatButtons, cboHideBorder, cboHideEditor, cboShowStatus, cboHideMemory, cboSelectOnEquals, cboShowDecimal, cboSimpleCalc, cboFlatDrawStyle, cboRoundedButtons, cboDigitGrouping, cboCloseOnEquals };
  49. #pragma option pop
  51. typedef Set<TfcCalcOption, cboHotTrackButtons, cboCloseOnEquals>  TfcCalcOptions;
  53. #pragma option push -b-
  54. enum TfcCalcBitmapDrawStyle { cbdStretch, cbdTile, cbdTopLeft, cbdCenter };
  55. #pragma option pop
  57. class DELPHICLASS TfcCalcBevel;
  58. class PASCALIMPLEMENTATION TfcCalcBevel : public Extctrls::TBevel 
  59. {
  60. typedef Extctrls::TBevel inherited;
  62. public:
  63. Graphics::TColor FColor;
  65. protected:
  66. virtual void __fastcall Paint(void);
  67. public:
  68. #pragma option push -w-inl
  69. /* TBevel.Create */ inline __fastcall virtual TfcCalcBevel(Classes::TComponent* AOwner) : Extctrls::TBevel(AOwner) { }
  70. #pragma option pop
  72. public:
  73. #pragma option push -w-inl
  74. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TfcCalcBevel(void) { }
  75. #pragma option pop
  77. };
  80. class DELPHICLASS TfcCalcLabel;
  81. class PASCALIMPLEMENTATION TfcCalcLabel : public Stdctrls::TLabel 
  82. {
  83. typedef Stdctrls::TLabel inherited;
  85. private:
  86. TfcCalculator* FCalc;
  87. HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
  88. HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
  90. public:
  91. __fastcall virtual TfcCalcLabel(Classes::TComponent* AOwner);
  92. public:
  93. #pragma option push -w-inl
  94. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TfcCalcLabel(void) { }
  95. #pragma option pop
  97. };
  100. class DELPHICLASS TfcCalcStatusLabel;
  101. class PASCALIMPLEMENTATION TfcCalcStatusLabel : public Stdctrls::TLabel 
  102. {
  103. typedef Stdctrls::TLabel inherited;
  105. __published:
  106. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  107. public:
  108. #pragma option push -w-inl
  109. /* TCustomLabel.Create */ inline __fastcall virtual TfcCalcStatusLabel(Classes::TComponent* AOwner) : Stdctrls::TLabel(AOwner) { }
  110. #pragma option pop
  112. public:
  113. #pragma option push -w-inl
  114. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TfcCalcStatusLabel(void) { }
  115. #pragma option pop
  117. };
  120. class DELPHICLASS TfcCalcButton;
  121. class PASCALIMPLEMENTATION TfcCalcButton : public Buttons::TSpeedButton 
  122. {
  123. typedef Buttons::TSpeedButton inherited;
  125. private:
  126. bool FDrawKeyDown;
  127. TfcCalculator* FCalc;
  128. Graphics::TColor ButtonColor;
  129. Graphics::TColor ButtonFontColor;
  130. bool FTransparent;
  131. TfcCalcButtonType FBtnType;
  132. HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  133. HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
  134. HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
  135. MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  136. HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
  137. HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
  138. TfcCalcOptions __fastcall GetCalcOptions(void);
  140. protected:
  141. virtual void __fastcall Paint(void);
  142. __property bool DrawKeyDown = {read=FDrawKeyDown, write=FDrawKeyDown, nodefault};
  144. public:
  145. __property TfcCalcOptions CalcOptions = {read=GetCalcOptions, nodefault};
  146. __fastcall virtual TfcCalcButton(Classes::TComponent* AOwner);
  147. __fastcall virtual ~TfcCalcButton(void);
  148. };
  151. #pragma pack(push, 4)
  152. struct TButtonRecord
  153. {
  154. int Top;
  155. int Left;
  156. int Width;
  157. int Height;
  158. AnsiString Caption;
  159. AnsiString Hint;
  160. Graphics::TColor Color;
  161. Graphics::TColor ButtonColor;
  162. TfcCalcButtonType BtnType;
  163. } ;
  164. #pragma pack(pop)
  166. typedef TButtonRecord fcCalculator__6[28];
  168. class PASCALIMPLEMENTATION TfcCalculator : public Extctrls::TCustomPanel 
  169. {
  170. typedef Extctrls::TCustomPanel inherited;
  172. private:
  173. Stdctrls::TEdit* FResultEdit;
  174. Stdctrls::TCustomEdit* FCalcEdit;
  175. Stdctrls::TLabel* FStatusLabel;
  176. double FMemoryValue;
  177. double FLastValue;
  178. double FCurrentValue;
  179. double FResultValue;
  180. double FLastOperand;
  181. TfcCalcButtonType FLastOP;
  182. TfcCalcButtonType FNextToLastOp;
  183. bool FDecimalEntered;
  184. bool FClearOnNextKey;
  185. bool FLastOperatorEquals;
  186. AnsiString FLastStatus;
  187. bool FClearStatus;
  188. int FDecimalPlaces;
  189. TfcCalcButtonType FLastButtonType;
  190. bool F3D;
  191. TfcCalcBevel* FStatusBevel;
  192. TfcCalcBevel* FMemoryBevel;
  193. TfcCalcLabel* FMemoryStatus;
  194. Graphics::TColor FPanelColor;
  195. bool FBackSpaceValid;
  196. TfcCalcOptions FOptions;
  197. Graphics::TPicture* FBackgroundBitmap;
  198. Graphics::TBitmap* FPaintBitmap;
  199. TfcSetButtonAttributesEvent FOnSetButtonAttributes;
  200. #pragma pack(push, 1)
  201. Types::TRect OldBoundsRect;
  202. #pragma pack(pop)
  204. int FMargin;
  205. TfcCalcBitmapDrawStyle FBackgroundBitmapDrawStyle;
  206. int FCalcPrecision;
  207. bool InitBitmapsFlag;
  208. bool OpPressedWithShiftFlag;
  209. void __fastcall SetOptions(TfcCalcOptions Value);
  210. void __fastcall SetPanelColor(Graphics::TColor Value);
  211. void __fastcall SetMargin(int Value);
  212. void __fastcall SetBackgroundBitmapDrawStyle(TfcCalcBitmapDrawStyle Value);
  213. void __fastcall SetBackgroundBitmap(Graphics::TPicture* Value);
  214. void __fastcall SetBorder3D(const bool Value);
  215. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  216. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  218. protected:
  219. TButtonRecord Btns[28];
  220. virtual void __fastcall CalcButtons(void);
  221. virtual void __fastcall Compute(System::TObject* Sender);
  222. HIDESBASE virtual AnsiString __fastcall GetText();
  223. HIDESBASE virtual void __fastcall SetText(const AnsiString Value);
  224. virtual Stdctrls::TCustomEdit* __fastcall GetCalcEdit(void);
  225. virtual void __fastcall SetCalcEdit(const Stdctrls::TCustomEdit* Value);
  226. virtual TButtonRecord __fastcall ButtonRecord(TfcCalcButtonType btnType, int aTop, int aLeft, int aWidth, int aHeight, AnsiString aCaption, Graphics::TColor aFontColor, AnsiString aHint);
  227. virtual void __fastcall Loaded(void);
  228. __property int CalcPrecision = {read=FCalcPrecision, write=FCalcPrecision, nodefault};
  230. public:
  231. __fastcall virtual TfcCalculator(Classes::TComponent* AOwner);
  232. __fastcall virtual ~TfcCalculator(void);
  233. HIDESBASE virtual void __fastcall FullRepaint(void);
  234. virtual void __fastcall RefreshSummary(void);
  235. virtual void __fastcall Paint(void);
  236. virtual bool __fastcall IsBinaryOperator(TfcCalcButtonType ButtonType);
  237. virtual void __fastcall Reset(void);
  238. virtual char __fastcall OpToChar(TfcCalcButtonType aOp);
  239. TfcCalcButton* __fastcall CharToButton(char c, bool Ctrl);
  240. TfcCalcButton* __fastcall OpToButton(TfcCalcButtonType op);
  241. virtual TfcCalcButtonType __fastcall CharToOp(char c, bool Ctrl);
  242. virtual void __fastcall ResultKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
  243. virtual void __fastcall ResultKeyUp(System::TObject* Sender, Word &Key, Classes::TShiftState Shift);
  244. virtual void __fastcall DoCalc(TfcCalcButtonType ButtonType);
  245. virtual void __fastcall DoCreateButton(TfcCalculator* Calc, TfcCalcButtonType &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString &AHint);
  246. __property double Value = {read=FCurrentValue, write=FCurrentValue};
  247. __property Graphics::TBitmap* PaintBitmap = {read=FPaintBitmap, write=FPaintBitmap};
  248. __property Stdctrls::TEdit* ResultEdit = {read=FResultEdit, write=FResultEdit};
  249. __property Stdctrls::TLabel* StatusLabel = {read=FStatusLabel, write=FStatusLabel};
  250. __property TfcCalcLabel* MemoryStatus = {read=FMemoryStatus, write=FMemoryStatus};
  251. __property double MemoryValue = {read=FMemoryValue, write=FMemoryValue};
  252. __property Stdctrls::TCustomEdit* CalcEdit = {read=GetCalcEdit, write=SetCalcEdit};
  253. __property TfcCalcButtonType LastOp = {read=FLastOP, nodefault};
  254. __property bool LastOperatorEquals = {read=FLastOperatorEquals, nodefault};
  256. __published:
  257. __property Align ;
  258. __property Graphics::TPicture* BackgroundBitmap = {read=FBackgroundBitmap, write=SetBackgroundBitmap};
  259. __property TfcCalcBitmapDrawStyle BackgroundBitmapDrawStyle = {read=FBackgroundBitmapDrawStyle, write=SetBackgroundBitmapDrawStyle, nodefault};
  260. __property bool Border3D = {read=F3D, write=SetBorder3D, default=0};
  261. __property int ButtonMargin = {read=FMargin, write=SetMargin, default=3};
  262. __property int FixedDecimalPlaces = {read=FDecimalPlaces, write=FDecimalPlaces, default=-1};
  263. __property Font ;
  264. __property TfcCalcOptions Options = {read=FOptions, write=SetOptions, default=0};
  265. __property Graphics::TColor PanelColor = {read=FPanelColor, write=SetPanelColor, default=-2147483633};
  266. __property AnsiString Text = {read=GetText, write=SetText};
  267. __property TfcSetButtonAttributesEvent OnSetButtonAttributes = {read=FOnSetButtonAttributes, write=FOnSetButtonAttributes};
  268. __property Visible ;
  269. public:
  270. #pragma option push -w-inl
  271. /* TWinControl.CreateParented */ inline __fastcall TfcCalculator(HWND ParentWindow) : Extctrls::TCustomPanel(ParentWindow) { }
  272. #pragma option pop
  274. };
  277. //-- var, const, procedure ---------------------------------------------------
  279. } /* namespace Fccalculator */
  280. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  281. using namespace Fccalculator;
  282. #endif
  283. #pragma option pop // -w-
  284. #pragma option pop // -Vx
  286. #pragma delphiheader end.
  287. //-- end unit ----------------------------------------------------------------
  288. #endif // fcCalculator