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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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, nodefault};
  65. __property int ButtonMargin = {read=FMargin, write=SetMargin, default=3};
  66. __property Fccalculator::TfcCalcOptions Options = {read=FOptions, write=SetOptions, default=8};
  67. __property Graphics::TColor PanelColor = {read=FPanelColor, write=SetPanelColor, default=-2147483633};
  68. };
  71. class DELPHICLASS TfcCalcPanel;
  72. class DELPHICLASS TfcCustomCalcEdit;
  73. typedef void __fastcall (__closure *TfcCalcAttributesEvent)(TfcCustomCalcEdit* Sender, Fccalculator::TfcCalcButtonType &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString &AHint);
  75. class PASCALIMPLEMENTATION TfcCustomCalcEdit : public Fccombo::TfcCustomCombo 
  76. {
  77. typedef Fccombo::TfcCustomCombo inherited;
  79. private:
  80. Classes::TAlignment FAlignment;
  81. AnsiString FDisplayFormat;
  82. int FDecimalPlacesStored;
  83. TfcCalcPanel* FDropDownCalc;
  84. bool FClearOnNextKey;
  85. bool FAllowNull;
  86. TfcPopupCalcOptions* FCalcOptions;
  87. TfcCalcAttributesEvent FOnCalcButtonAttributes;
  88. Classes::TNotifyEvent FOnBeforeDropDown;
  89. bool FSkipTextChangedFlag;
  90. bool FDecimalEntered;
  91. HIDESBASE MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  92. HIDESBASE MESSAGE void __fastcall WMCut(Messages::TMessage &Message);
  93. HIDESBASE MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
  94. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  95. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  97. protected:
  98. virtual double __fastcall GetValue(void);
  99. virtual void __fastcall SetValue(double Value);
  100. virtual void __fastcall Paint(void);
  101. virtual Types::TRect __fastcall GetEditRect();
  102. virtual bool __fastcall IsValidOperator(char Key);
  103. virtual bool __fastcall IsUnaryOperator(char Key);
  104. virtual bool __fastcall IsBinaryOperator(char Key);
  105. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  106. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  107. DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
  108. DYNAMIC void __fastcall KeyPress(char &Key);
  109. DYNAMIC void __fastcall DoEnter(void);
  110. DYNAMIC void __fastcall DoExit(void);
  111. virtual void __fastcall DoBeforeDropDown(void);
  112. virtual void __fastcall UpdateData(System::TObject* Sender);
  113. virtual void __fastcall DataChange(System::TObject* Sender);
  114. virtual bool __fastcall SkipInheritedPaint(void);
  115. virtual Classes::TAlignment __fastcall GetAlignment(void);
  116. virtual Controls::TWinControl* __fastcall GetDropDownControl(void);
  117. virtual Controls::TWinControl* __fastcall GetDropDownContainer(void);
  118. virtual int __fastcall GetItemCount(void);
  119. virtual tagSIZE __fastcall GetItemSize();
  120. virtual void __fastcall PaintToCanvas(Graphics::TCanvas* Canvas, const Types::TRect &Rect, bool Highlight, bool GridPaint, AnsiString aText);
  121. __property bool DecimalEntered = {read=FDecimalEntered, write=FDecimalEntered, nodefault};
  122. __property bool SkipTextChangedFlag = {read=FSkipTextChangedFlag, write=FSkipTextChangedFlag, nodefault};
  124. public:
  125. __property TfcCalcPanel* Panel = {read=FDropDownCalc, write=FDropDownCalc};
  126. __fastcall virtual TfcCustomCalcEdit(Classes::TComponent* AOwner);
  127. __fastcall virtual ~TfcCustomCalcEdit(void);
  128. virtual void __fastcall Loaded(void);
  129. virtual void __fastcall CreateWnd(void);
  130. virtual void __fastcall CloseUp(bool Accept);
  131. virtual void __fastcall DropDown(void);
  132. virtual bool __fastcall IsDroppedDown(void);
  133. virtual void __fastcall DoCalcButtonAttributes(Fccalculator::TfcCalculator* Calc, Fccalculator::TfcCalcButtonType &AType, AnsiString &ACaption, Graphics::TColor &AFontColor, Graphics::TColor &AButtonColor, AnsiString &AHint);
  134. virtual AnsiString __fastcall GetDisplayText(AnsiString AText);
  135. virtual void __fastcall ResetCalculator(void);
  136. __property Classes::TAlignment Alignment = {read=GetAlignment, write=FAlignment, default=1};
  137. __property AnsiString DisplayFormat = {read=FDisplayFormat, write=FDisplayFormat};
  138. __property int DecimalPlacesStored = {read=FDecimalPlacesStored, write=FDecimalPlacesStored, nodefault};
  139. __property double Value = {read=GetValue, write=SetValue};
  140. __property TfcPopupCalcOptions* CalcOptions = {read=FCalcOptions, write=FCalcOptions};
  141. __property bool AllowNull = {read=FAllowNull, write=FAllowNull, default=0};
  142. __property TfcCalcAttributesEvent OnSetCalcButtonAttributes = {read=FOnCalcButtonAttributes, write=FOnCalcButtonAttributes};
  143. __property Classes::TNotifyEvent OnBeforeDropDown = {read=FOnBeforeDropDown, write=FOnBeforeDropDown};
  144. public:
  145. #pragma option push -w-inl
  146. /* TWinControl.CreateParented */ inline __fastcall TfcCustomCalcEdit(HWND ParentWindow) : Fccombo::TfcCustomCombo(ParentWindow) { }
  147. #pragma option pop
  149. };
  152. class PASCALIMPLEMENTATION TfcCalcPanel : public Fccalculator::TfcCalculator 
  153. {
  154. typedef Fccalculator::TfcCalculator inherited;
  156. private:
  157. TfcCustomCalcEdit* FAssociatedEdit;
  159. protected:
  160. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  161. virtual void __fastcall CreateWnd(void);
  162. DYNAMIC void __fastcall Keypress(char &Key);
  164. public:
  165. virtual void __fastcall DoCalc(Fccalculator::TfcCalcButtonType ButtonType);
  166. __fastcall virtual TfcCalcPanel(Classes::TComponent* AOwner);
  167. __property TfcCustomCalcEdit* AssociatedEdit = {read=FAssociatedEdit, write=FAssociatedEdit};
  168. public:
  169. #pragma option push -w-inl
  170. /* TfcCalculator.Destroy */ inline __fastcall virtual ~TfcCalcPanel(void) { }
  171. #pragma option pop
  173. public:
  174. #pragma option push -w-inl
  175. /* TWinControl.CreateParented */ inline __fastcall TfcCalcPanel(HWND ParentWindow) : Fccalculator::TfcCalculator(ParentWindow) { }
  176. #pragma option pop
  178. };
  181. class DELPHICLASS TfcCalcEdit;
  182. class PASCALIMPLEMENTATION TfcCalcEdit : public TfcCustomCalcEdit 
  183. {
  184. typedef TfcCustomCalcEdit inherited;
  186. __published:
  187. __property DisableThemes ;
  188. __property CalcOptions ;
  189. __property AutoSelect ;
  190. __property AutoSize ;
  191. __property BorderStyle ;
  192. __property ButtonEffects ;
  193. __property ButtonGlyph ;
  194. __property ButtonStyle ;
  195. __property ButtonWidth ;
  196. __property Color ;
  197. __property Ctl3D ;
  198. __property DataField ;
  199. __property DataSource ;
  200. __property DisplayFormat ;
  201. __property DragCursor ;
  202. __property DragMode ;
  203. __property Enabled ;
  204. __property Font ;
  205. __property Frame ;
  206. __property ImeMode ;
  207. __property ImeName ;
  208. __property InfoPower ;
  209. __property MaxLength ;
  210. __property ParentColor ;
  211. __property ParentCtl3D ;
  212. __property ParentFont ;
  213. __property ParentShowHint ;
  214. __property PopupMenu ;
  215. __property ReadOnly ;
  216. __property OnSetCalcButtonAttributes ;
  217. __property ShowButton ;
  218. __property ShowHint ;
  219. __property TabOrder ;
  220. __property TabStop ;
  221. __property Text ;
  222. __property Visible ;
  223. __property OnBeforeDropDown ;
  224. __property OnChange ;
  225. __property OnClick ;
  226. __property OnDblClick ;
  227. __property OnDragDrop ;
  228. __property OnDragOver ;
  229. __property OnDropDown ;
  230. __property OnEndDrag ;
  231. __property OnEnter ;
  232. __property OnExit ;
  233. __property OnKeyDown ;
  234. __property OnKeyPress ;
  235. __property OnKeyUp ;
  236. __property OnMouseEnter ;
  237. __property OnMouseLeave ;
  238. __property OnMouseDown ;
  239. __property OnMouseMove ;
  240. __property OnMouseUp ;
  241. __property OnStartDrag ;
  242. public:
  243. #pragma option push -w-inl
  244. /* TfcCustomCalcEdit.Create */ inline __fastcall virtual TfcCalcEdit(Classes::TComponent* AOwner) : TfcCustomCalcEdit(AOwner) { }
  245. #pragma option pop
  246. #pragma option push -w-inl
  247. /* TfcCustomCalcEdit.Destroy */ inline __fastcall virtual ~TfcCalcEdit(void) { }
  248. #pragma option pop
  250. public:
  251. #pragma option push -w-inl
  252. /* TWinControl.CreateParented */ inline __fastcall TfcCalcEdit(HWND ParentWindow) : TfcCustomCalcEdit(ParentWindow) { }
  253. #pragma option pop
  255. };
  258. //-- var, const, procedure ---------------------------------------------------
  260. } /* namespace Fccalcedit */
  261. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  262. using namespace Fccalcedit;
  263. #endif
  264. #pragma option pop // -w-
  265. #pragma option pop // -Vx
  267. #pragma delphiheader end.
  268. //-- end unit ----------------------------------------------------------------
  269. #endif // fcCalcEdit