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

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

Delphi控件源码

开发平台：

Delphi

fcCalcEdit.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcCalcEdit.pas' rev: 5.00
  7. #ifndef fcCalcEditHPP
  8. #define fcCalcEditHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <fcframe.hpp> // Pascal unit
  15. #include <Db.hpp> // Pascal unit
  16. #include <fcCalculator.hpp> // Pascal unit
  17. #include <fcCommon.hpp> // Pascal unit
  18. #include <fcCombo.hpp> // Pascal unit
  19. #include <ExtCtrls.hpp> // Pascal unit
  20. #include <Math.hpp> // Pascal unit
  21. #include <StdCtrls.hpp> // Pascal unit
  22. #include <Dialogs.hpp> // Pascal unit
  23. #include <Forms.hpp> // Pascal unit
  24. #include <Buttons.hpp> // Pascal unit
  25. #include <Controls.hpp> // Pascal unit
  26. #include <Graphics.hpp> // Pascal unit
  27. #include <Classes.hpp> // Pascal unit
  28. #include <SysUtils.hpp> // Pascal unit
  29. #include <Messages.hpp> // Pascal unit
  30. #include <Windows.hpp> // Pascal unit
  31. #include <SysInit.hpp> // Pascal unit
  32. #include <System.hpp> // Pascal unit
  34. //-- user supplied -----------------------------------------------------------
  36. namespace Fccalcedit
  37. {
  38. //-- type declarations -------------------------------------------------------
  39. class DELPHICLASS TfcPopupCalcOptions;
  40. class PASCALIMPLEMENTATION TfcPopupCalcOptions : public Classes::TPersistent 
  41. {
  42. typedef Classes::TPersistent inherited;
  44. private:
  45. Graphics::TPicture* FBackground;
  46. Fccalculator::TfcCalcBitmapDrawStyle FBackGroundStyle;
  47. int FMargin;
  48. Fccalculator::TfcCalcOptions FOptions;
  49. Graphics::TColor FPanelColor;
  50. void __fastcall SetBackgroundStyle(Fccalculator::TfcCalcBitmapDrawStyle Value);
  51. void __fastcall SetOptions(Fccalculator::TfcCalcOptions Value);
  52. void __fastcall SetMargin(int Value);
  53. void __fastcall SetPanelColor(Graphics::TColor Value);
  55. public:
  56. __fastcall TfcPopupCalcOptions(Classes::TComponent* AOwner);
  57. __fastcall virtual ~TfcPopupCalcOptions(void);
  59. protected:
  60. virtual void __fastcall SetBackgroundBitmap(Graphics::TPicture* Value);
  62. __published:
  63. __property Graphics::TPicture* Background = {read=FBackground, write=SetBackgroundBitmap};
  64. __property Fccalculator::TfcCalcBitmapDrawStyle BackgroundStyle = {read=FBackGroundStyle, write=SetBackgroundStyle
  65. , nodefault};
  66. __property int ButtonMargin = {read=FMargin, write=SetMargin, default=3};
  67. __property Fccalculator::TfcCalcOptions Options = {read=FOptions, write=SetOptions, default=8};
  68. __property Graphics::TColor PanelColor = {read=FPanelColor, write=SetPanelColor, default=-2147483633
  69. };
  70. };
  73. class DELPHICLASS TfcCalcPanel;
  74. class DELPHICLASS TfcCustomCalcEdit;
  75. typedef void __fastcall (__closure *TfcCalcAttributesEvent)(TfcCustomCalcEdit* Sender, Fccalculator::TfcCalcButtonType 
  76. &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString 
  77. &AHint);
  79. class PASCALIMPLEMENTATION TfcCustomCalcEdit : public Fccombo::TfcCustomCombo 
  80. {
  81. typedef Fccombo::TfcCustomCombo inherited;
  83. private:
  84. Classes::TAlignment FAlignment;
  85. AnsiString FDisplayFormat;
  86. int FDecimalPlacesStored;
  87. TfcCalcPanel* FDropDownCalc;
  88. bool FClearOnNextKey;
  89. bool FAllowNull;
  90. TfcPopupCalcOptions* FCalcOptions;
  91. TfcCalcAttributesEvent FOnCalcButtonAttributes;
  92. Classes::TNotifyEvent FOnBeforeDropDown;
  93. bool FSkipTextChangedFlag;
  94. bool FDecimalEntered;
  95. HIDESBASE MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  96. HIDESBASE MESSAGE void __fastcall WMCut(Messages::TMessage &Message);
  97. HIDESBASE MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
  98. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  99. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  101. protected:
  102. virtual double __fastcall GetValue(void);
  103. virtual void __fastcall SetValue(double Value);
  104. virtual void __fastcall Paint(void);
  105. virtual Windows::TRect __fastcall GetEditRect(void);
  106. virtual bool __fastcall IsValidOperator(char Key);
  107. virtual bool __fastcall IsUnaryOperator(char Key);
  108. virtual bool __fastcall IsBinaryOperator(char Key);
  109. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  110. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  111. DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
  112. DYNAMIC void __fastcall KeyPress(char &Key);
  113. DYNAMIC void __fastcall DoEnter(void);
  114. DYNAMIC void __fastcall DoExit(void);
  115. virtual void __fastcall DoBeforeDropDown(void);
  116. virtual void __fastcall UpdateData(System::TObject* Sender);
  117. virtual void __fastcall DataChange(System::TObject* Sender);
  118. virtual bool __fastcall SkipInheritedPaint(void);
  119. virtual Classes::TAlignment __fastcall GetAlignment(void);
  120. virtual Controls::TWinControl* __fastcall GetDropDownControl(void);
  121. virtual Controls::TWinControl* __fastcall GetDropDownContainer(void);
  122. virtual int __fastcall GetItemCount(void);
  123. virtual tagSIZE __fastcall GetItemSize(void);
  124. virtual void __fastcall PaintToCanvas(Graphics::TCanvas* Canvas, const Windows::TRect &Rect, bool Highlight
  125. , bool GridPaint, AnsiString aText);
  126. __property bool DecimalEntered = {read=FDecimalEntered, write=FDecimalEntered, nodefault};
  127. __property bool SkipTextChangedFlag = {read=FSkipTextChangedFlag, write=FSkipTextChangedFlag, nodefault
  128. };
  130. public:
  131. __property TfcCalcPanel* Panel = {read=FDropDownCalc, write=FDropDownCalc};
  132. __fastcall virtual TfcCustomCalcEdit(Classes::TComponent* AOwner);
  133. __fastcall virtual ~TfcCustomCalcEdit(void);
  134. virtual void __fastcall Loaded(void);
  135. virtual void __fastcall CreateWnd(void);
  136. virtual void __fastcall CloseUp(bool Accept);
  137. virtual void __fastcall DropDown(void);
  138. virtual bool __fastcall IsDroppedDown(void);
  139. virtual void __fastcall DoCalcButtonAttributes(Fccalculator::TfcCalculator* Calc, Fccalculator::TfcCalcButtonType 
  140. &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString 
  141. &AHint);
  142. virtual AnsiString __fastcall GetDisplayText(AnsiString AText);
  143. virtual void __fastcall ResetCalculator(void);
  144. __property Classes::TAlignment Alignment = {read=GetAlignment, write=FAlignment, default=1};
  145. __property AnsiString DisplayFormat = {read=FDisplayFormat, write=FDisplayFormat};
  146. __property int DecimalPlacesStored = {read=FDecimalPlacesStored, write=FDecimalPlacesStored, nodefault
  147. };
  148. __property double Value = {read=GetValue, write=SetValue};
  149. __property TfcPopupCalcOptions* CalcOptions = {read=FCalcOptions, write=FCalcOptions};
  150. __property bool AllowNull = {read=FAllowNull, write=FAllowNull, default=0};
  151. __property TfcCalcAttributesEvent OnSetCalcButtonAttributes = {read=FOnCalcButtonAttributes, write=
  152. FOnCalcButtonAttributes};
  153. __property Classes::TNotifyEvent OnBeforeDropDown = {read=FOnBeforeDropDown, write=FOnBeforeDropDown
  154. };
  155. public:
  156. #pragma option push -w-inl
  157. /* TWinControl.CreateParented */ inline __fastcall TfcCustomCalcEdit(HWND ParentWindow) : Fccombo::TfcCustomCombo(
  158. ParentWindow) { }
  159. #pragma option pop
  161. };
  164. class PASCALIMPLEMENTATION TfcCalcPanel : public Fccalculator::TfcCalculator 
  165. {
  166. typedef Fccalculator::TfcCalculator inherited;
  168. private:
  169. TfcCustomCalcEdit* FAssociatedEdit;
  171. protected:
  172. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  173. virtual void __fastcall CreateWnd(void);
  174. DYNAMIC void __fastcall Keypress(char &Key);
  176. public:
  177. virtual void __fastcall DoCalc(Fccalculator::TfcCalcButtonType ButtonType);
  178. __fastcall virtual TfcCalcPanel(Classes::TComponent* AOwner);
  179. __property TfcCustomCalcEdit* AssociatedEdit = {read=FAssociatedEdit, write=FAssociatedEdit};
  180. public:
  182. #pragma option push -w-inl
  183. /* TfcCalculator.Destroy */ inline __fastcall virtual ~TfcCalcPanel(void) { }
  184. #pragma option pop
  186. public:
  187. #pragma option push -w-inl
  188. /* TWinControl.CreateParented */ inline __fastcall TfcCalcPanel(HWND ParentWindow) : Fccalculator::TfcCalculator(
  189. ParentWindow) { }
  190. #pragma option pop
  192. };
  195. class DELPHICLASS TfcCalcEdit;
  196. class PASCALIMPLEMENTATION TfcCalcEdit : public TfcCustomCalcEdit 
  197. {
  198. typedef TfcCustomCalcEdit inherited;
  200. __published:
  201. __property DisableThemes ;
  202. __property CalcOptions ;
  203. __property AutoSelect ;
  204. __property AutoSize ;
  205. __property BorderStyle ;
  206. __property ButtonEffects ;
  207. __property ButtonGlyph ;
  208. __property ButtonStyle ;
  209. __property ButtonWidth ;
  210. __property Color ;
  211. __property Ctl3D ;
  212. __property DataField ;
  213. __property DataSource ;
  214. __property DisplayFormat ;
  215. __property DragCursor ;
  216. __property DragMode ;
  217. __property Enabled ;
  218. __property Font ;
  219. __property Frame ;
  220. __property ImeMode ;
  221. __property ImeName ;
  222. __property InfoPower ;
  223. __property MaxLength ;
  224. __property ParentColor ;
  225. __property ParentCtl3D ;
  226. __property ParentFont ;
  227. __property ParentShowHint ;
  228. __property PopupMenu ;
  229. __property ReadOnly ;
  230. __property OnSetCalcButtonAttributes ;
  231. __property ShowButton ;
  232. __property ShowHint ;
  233. __property TabOrder ;
  234. __property TabStop ;
  235. __property Text ;
  236. __property Visible ;
  237. __property OnBeforeDropDown ;
  238. __property OnChange ;
  239. __property OnClick ;
  240. __property OnDblClick ;
  241. __property OnDragDrop ;
  242. __property OnDragOver ;
  243. __property OnDropDown ;
  244. __property OnEndDrag ;
  245. __property OnEnter ;
  246. __property OnExit ;
  247. __property OnKeyDown ;
  248. __property OnKeyPress ;
  249. __property OnKeyUp ;
  250. __property OnMouseEnter ;
  251. __property OnMouseLeave ;
  252. __property OnMouseDown ;
  253. __property OnMouseMove ;
  254. __property OnMouseUp ;
  255. __property OnStartDrag ;
  256. public:
  257. #pragma option push -w-inl
  258. /* TfcCustomCalcEdit.Create */ inline __fastcall virtual TfcCalcEdit(Classes::TComponent* AOwner) : 
  259. TfcCustomCalcEdit(AOwner) { }
  260. #pragma option pop
  261. #pragma option push -w-inl
  262. /* TfcCustomCalcEdit.Destroy */ inline __fastcall virtual ~TfcCalcEdit(void) { }
  263. #pragma option pop
  265. public:
  266. #pragma option push -w-inl
  267. /* TWinControl.CreateParented */ inline __fastcall TfcCalcEdit(HWND ParentWindow) : TfcCustomCalcEdit(
  268. ParentWindow) { }
  269. #pragma option pop
  271. };
  274. //-- var, const, procedure ---------------------------------------------------
  276. } /* namespace Fccalcedit */
  277. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  278. using namespace Fccalcedit;
  279. #endif
  280. #pragma option pop // -w-
  281. #pragma option pop // -Vx
  283. #pragma delphiheader end.
  284. //-- end unit ----------------------------------------------------------------
  285. #endif // fcCalcEdit