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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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, 
  38. btMultiply, btDivide, btAdd, btSubtract, btEquals, btSqrt, btPercent, btInverse, btBackspace, btClear, 
  39. btClearAll, btMRecall, btMStore, btMClear, btMAdd };
  40. #pragma option pop
  42. class DELPHICLASS TfcCalculator;
  43. typedef void __fastcall (__closure *TfcSetButtonAttributesEvent)(TfcCalculator* Calc, TfcCalcButtonType 
  44. &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString 
  45. &AHint);
  47. #pragma option push -b-
  48. enum TCalcState { csNone, csAdd, csSubtract, csMultiply, csDivide };
  49. #pragma option pop
  51. #pragma option push -b-
  52. enum TfcCalcOption { cboHotTrackButtons, cboFlatButtons, cboHideBorder, cboHideEditor, cboShowStatus, 
  53. cboHideMemory, cboSelectOnEquals, cboShowDecimal, cboSimpleCalc, cboFlatDrawStyle, cboRoundedButtons, 
  54. cboDigitGrouping, cboCloseOnEquals };
  55. #pragma option pop
  57. typedef Set<TfcCalcOption, cboHotTrackButtons, cboCloseOnEquals>  TfcCalcOptions;
  59. #pragma option push -b-
  60. enum TfcCalcBitmapDrawStyle { cbdStretch, cbdTile, cbdTopLeft, cbdCenter };
  61. #pragma option pop
  63. class DELPHICLASS TfcCalcBevel;
  64. class PASCALIMPLEMENTATION TfcCalcBevel : public Extctrls::TBevel 
  65. {
  66. typedef Extctrls::TBevel inherited;
  68. public:
  69. Graphics::TColor FColor;
  71. protected:
  72. virtual void __fastcall Paint(void);
  73. public:
  74. #pragma option push -w-inl
  75. /* TBevel.Create */ inline __fastcall virtual TfcCalcBevel(Classes::TComponent* AOwner) : Extctrls::TBevel(
  76. AOwner) { }
  77. #pragma option pop
  79. public:
  80. #pragma option push -w-inl
  81. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TfcCalcBevel(void) { }
  82. #pragma option pop
  84. };
  87. class DELPHICLASS TfcCalcLabel;
  88. class PASCALIMPLEMENTATION TfcCalcLabel : public Stdctrls::TLabel 
  89. {
  90. typedef Stdctrls::TLabel inherited;
  92. private:
  93. TfcCalculator* FCalc;
  94. HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
  95. HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
  97. public:
  98. __fastcall virtual TfcCalcLabel(Classes::TComponent* AOwner);
  99. public:
  100. #pragma option push -w-inl
  101. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TfcCalcLabel(void) { }
  102. #pragma option pop
  104. };
  107. class DELPHICLASS TfcCalcStatusLabel;
  108. class PASCALIMPLEMENTATION TfcCalcStatusLabel : public Stdctrls::TLabel 
  109. {
  110. typedef Stdctrls::TLabel inherited;
  112. __published:
  113. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  114. public:
  115. #pragma option push -w-inl
  116. /* TCustomLabel.Create */ inline __fastcall virtual TfcCalcStatusLabel(Classes::TComponent* AOwner)
  117.  : Stdctrls::TLabel(AOwner) { }
  118. #pragma option pop
  120. public:
  121. #pragma option push -w-inl
  122. /* TGraphicControl.Destroy */ inline __fastcall virtual ~TfcCalcStatusLabel(void) { }
  123. #pragma option pop
  125. };
  128. class DELPHICLASS TfcCalcButton;
  129. class PASCALIMPLEMENTATION TfcCalcButton : public Buttons::TSpeedButton 
  130. {
  131. typedef Buttons::TSpeedButton inherited;
  133. private:
  134. bool FDrawKeyDown;
  135. TfcCalculator* FCalc;
  136. Graphics::TColor ButtonColor;
  137. Graphics::TColor ButtonFontColor;
  138. bool FTransparent;
  139. TfcCalcButtonType FBtnType;
  140. HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  141. HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
  142. HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
  143. MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  144. HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
  145. HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
  146. TfcCalcOptions __fastcall GetCalcOptions(void);
  148. protected:
  149. virtual void __fastcall Paint(void);
  150. __property bool DrawKeyDown = {read=FDrawKeyDown, write=FDrawKeyDown, nodefault};
  152. public:
  153. __property TfcCalcOptions CalcOptions = {read=GetCalcOptions, nodefault};
  154. __fastcall virtual TfcCalcButton(Classes::TComponent* AOwner);
  155. __fastcall virtual ~TfcCalcButton(void);
  156. };
  159. struct TButtonRecord
  160. {
  161. int Top;
  162. int Left;
  163. int Width;
  164. int Height;
  165. AnsiString Caption;
  166. AnsiString Hint;
  167. Graphics::TColor Color;
  168. Graphics::TColor ButtonColor;
  169. TfcCalcButtonType BtnType;
  170. } ;
  172. typedef TButtonRecord fcCalculator__6[28];
  174. class PASCALIMPLEMENTATION TfcCalculator : public Extctrls::TCustomPanel 
  175. {
  176. typedef Extctrls::TCustomPanel inherited;
  178. private:
  179. Stdctrls::TEdit* FResultEdit;
  180. Stdctrls::TCustomEdit* FCalcEdit;
  181. Stdctrls::TLabel* FStatusLabel;
  182. double FMemoryValue;
  183. double FLastValue;
  184. double FCurrentValue;
  185. double FResultValue;
  186. double FLastOperand;
  187. TfcCalcButtonType FLastOP;
  188. TfcCalcButtonType FNextToLastOp;
  189. bool FDecimalEntered;
  190. bool FClearOnNextKey;
  191. bool FLastOperatorEquals;
  192. AnsiString FLastStatus;
  193. bool FClearStatus;
  194. int FDecimalPlaces;
  195. TfcCalcButtonType FLastButtonType;
  196. bool F3D;
  197. TfcCalcBevel* FStatusBevel;
  198. TfcCalcBevel* FMemoryBevel;
  199. TfcCalcLabel* FMemoryStatus;
  200. Graphics::TColor FPanelColor;
  201. bool FBackSpaceValid;
  202. TfcCalcOptions FOptions;
  203. Graphics::TPicture* FBackgroundBitmap;
  204. Graphics::TBitmap* FPaintBitmap;
  205. TfcSetButtonAttributesEvent FOnSetButtonAttributes;
  206. Windows::TRect OldBoundsRect;
  207. int FMargin;
  208. TfcCalcBitmapDrawStyle FBackgroundBitmapDrawStyle;
  209. int FCalcPrecision;
  210. bool InitBitmapsFlag;
  211. bool OpPressedWithShiftFlag;
  212. void __fastcall SetOptions(TfcCalcOptions Value);
  213. void __fastcall SetPanelColor(Graphics::TColor Value);
  214. void __fastcall SetMargin(int Value);
  215. void __fastcall SetBackgroundBitmapDrawStyle(TfcCalcBitmapDrawStyle Value);
  216. void __fastcall SetBackgroundBitmap(Graphics::TPicture* Value);
  217. void __fastcall SetBorder3D(const bool Value);
  218. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  219. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  221. protected:
  222. TButtonRecord Btns[28];
  223. virtual void __fastcall CalcButtons(void);
  224. virtual void __fastcall Compute(System::TObject* Sender);
  225. HIDESBASE virtual AnsiString __fastcall GetText(void);
  226. HIDESBASE virtual void __fastcall SetText(const AnsiString Value);
  227. virtual Stdctrls::TCustomEdit* __fastcall GetCalcEdit(void);
  228. virtual void __fastcall SetCalcEdit(const Stdctrls::TCustomEdit* Value);
  229. virtual TButtonRecord __fastcall ButtonRecord(TfcCalcButtonType btnType, int aTop, int aLeft, int aWidth
  230. , int aHeight, AnsiString aCaption, Graphics::TColor aFontColor, AnsiString aHint);
  231. virtual void __fastcall Loaded(void);
  232. __property int CalcPrecision = {read=FCalcPrecision, write=FCalcPrecision, nodefault};
  234. public:
  235. __fastcall virtual TfcCalculator(Classes::TComponent* AOwner);
  236. __fastcall virtual ~TfcCalculator(void);
  237. HIDESBASE virtual void __fastcall FullRepaint(void);
  238. virtual void __fastcall RefreshSummary(void);
  239. virtual void __fastcall Paint(void);
  240. virtual bool __fastcall IsBinaryOperator(TfcCalcButtonType ButtonType);
  241. virtual void __fastcall Reset(void);
  242. virtual char __fastcall OpToChar(TfcCalcButtonType aOp);
  243. TfcCalcButton* __fastcall CharToButton(char c, bool Ctrl);
  244. TfcCalcButton* __fastcall OpToButton(TfcCalcButtonType op);
  245. virtual TfcCalcButtonType __fastcall CharToOp(char c, bool Ctrl);
  246. virtual void __fastcall ResultKeyDown(System::TObject* Sender, Word &Key, Classes::TShiftState Shift
  247. );
  248. virtual void __fastcall ResultKeyUp(System::TObject* Sender, Word &Key, Classes::TShiftState Shift)
  249. ;
  250. virtual void __fastcall DoCalc(TfcCalcButtonType ButtonType);
  251. virtual void __fastcall DoCreateButton(TfcCalculator* Calc, TfcCalcButtonType &AType, AnsiString &ACaption
  252. , Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString &AHint);
  253. __property double Value = {read=FCurrentValue, write=FCurrentValue};
  254. __property Graphics::TBitmap* PaintBitmap = {read=FPaintBitmap, write=FPaintBitmap};
  255. __property Stdctrls::TEdit* ResultEdit = {read=FResultEdit, write=FResultEdit};
  256. __property Stdctrls::TLabel* StatusLabel = {read=FStatusLabel, write=FStatusLabel};
  257. __property TfcCalcLabel* MemoryStatus = {read=FMemoryStatus, write=FMemoryStatus};
  258. __property double MemoryValue = {read=FMemoryValue, write=FMemoryValue};
  259. __property Stdctrls::TCustomEdit* CalcEdit = {read=GetCalcEdit, write=SetCalcEdit};
  260. __property TfcCalcButtonType LastOp = {read=FLastOP, nodefault};
  261. __property bool LastOperatorEquals = {read=FLastOperatorEquals, nodefault};
  263. __published:
  264. __property Align ;
  265. __property Graphics::TPicture* BackgroundBitmap = {read=FBackgroundBitmap, write=SetBackgroundBitmap
  266. };
  267. __property TfcCalcBitmapDrawStyle BackgroundBitmapDrawStyle = {read=FBackgroundBitmapDrawStyle, write=
  268. SetBackgroundBitmapDrawStyle, nodefault};
  269. __property bool Border3D = {read=F3D, write=SetBorder3D, default=0};
  270. __property int ButtonMargin = {read=FMargin, write=SetMargin, default=3};
  271. __property int FixedDecimalPlaces = {read=FDecimalPlaces, write=FDecimalPlaces, default=-1};
  272. __property Font ;
  273. __property TfcCalcOptions Options = {read=FOptions, write=SetOptions, default=0};
  274. __property Graphics::TColor PanelColor = {read=FPanelColor, write=SetPanelColor, default=-2147483633
  275. };
  276. __property AnsiString Text = {read=GetText, write=SetText};
  277. __property TfcSetButtonAttributesEvent OnSetButtonAttributes = {read=FOnSetButtonAttributes, write=
  278. FOnSetButtonAttributes};
  279. __property Visible ;
  280. public:
  281. #pragma option push -w-inl
  282. /* TWinControl.CreateParented */ inline __fastcall TfcCalculator(HWND ParentWindow) : Extctrls::TCustomPanel(
  283. ParentWindow) { }
  284. #pragma option pop
  286. };
  289. //-- var, const, procedure ---------------------------------------------------
  291. } /* namespace Fccalculator */
  292. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  293. using namespace Fccalculator;
  294. #endif
  295. #pragma option pop // -w-
  296. #pragma option pop // -Vx
  298. #pragma delphiheader end.
  299. //-- end unit ----------------------------------------------------------------
  300. #endif // fcCalculator