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

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

Delphi控件源码

开发平台：

Delphi

fccombo.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcCombo.pas' rev: 5.00
  7. #ifndef fcComboHPP
  8. #define fcComboHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <fccombobutton.hpp> // Pascal unit
  14. #include <fcframe.hpp> // Pascal unit
  15. #include <DBCtrls.hpp> // Pascal unit
  16. #include <DB.hpp> // Pascal unit
  17. #include <Grids.hpp> // Pascal unit
  18. #include <Dialogs.hpp> // Pascal unit
  19. #include <TypInfo.hpp> // Pascal unit
  20. #include <fcCommon.hpp> // Pascal unit
  21. #include <StdCtrls.hpp> // Pascal unit
  22. #include <Mask.hpp> // Pascal unit
  23. #include <Buttons.hpp> // Pascal unit
  24. #include <Controls.hpp> // Pascal unit
  25. #include <Classes.hpp> // Pascal unit
  26. #include <Messages.hpp> // Pascal unit
  27. #include <Graphics.hpp> // Pascal unit
  28. #include <Windows.hpp> // Pascal unit
  29. #include <SysUtils.hpp> // Pascal unit
  30. #include <Menus.hpp> // Pascal unit
  31. #include <Forms.hpp> // Pascal unit
  32. #include <SysInit.hpp> // Pascal unit
  33. #include <System.hpp> // Pascal unit
  35. //-- user supplied -----------------------------------------------------------
  37. namespace Fccombo
  38. {
  39. //-- type declarations -------------------------------------------------------
  40. #pragma option push -b-
  41. enum TfcComboButtonStyle { cbsEllipsis, cbsDownArrow, cbsCustom };
  42. #pragma option pop
  44. #pragma option push -b-
  45. enum TfcComboStyle { csDropDown, csDropDownList };
  46. #pragma option pop
  48. #pragma option push -b-
  49. enum TfcAlignVertical { fcavTop, fcavCenter };
  50. #pragma option pop
  52. typedef void __fastcall (__closure *TfcComboCloseUpEvent)(System::TObject* Sender, bool Select);
  54. class DELPHICLASS TfcDropDownButton;
  55. class PASCALIMPLEMENTATION TfcDropDownButton : public Fccombobutton::TfcComboButton 
  56. {
  57. typedef Fccombobutton::TfcComboButton inherited;
  59. private:
  60. HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  62. protected:
  63. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  64. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  65. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  66. virtual void __fastcall Paint(void);
  67. public:
  68. #pragma option push -w-inl
  69. /* TfcComboButton.Create */ inline __fastcall virtual TfcDropDownButton(Classes::TComponent* AOwner) : Fccombobutton::TfcComboButton(AOwner) { }
  70. #pragma option pop
  71. #pragma option push -w-inl
  72. /* TfcComboButton.Destroy */ inline __fastcall virtual ~TfcDropDownButton(void) { }
  73. #pragma option pop
  75. };
  78. class DELPHICLASS TfcCustomCombo;
  79. class PASCALIMPLEMENTATION TfcCustomCombo : public Stdctrls::TCustomEdit 
  80. {
  81. typedef Stdctrls::TCustomEdit inherited;
  83. private:
  84. Classes::TComponent* FController;
  85. TfcAlignVertical FAlignmentVertical;
  86. Controls::TWinControl* FBtnParent;
  87. TfcDropDownButton* FButton;
  88. Dbctrls::TFieldDataLink* FDataLink;
  89. int FDropDownCount;
  90. bool FInfoPower;
  91. Classes::TNotifyEvent FOnCustomDlg;
  92. TfcComboCloseUpEvent FOnCloseUp;
  93. Classes::TNotifyEvent FOnDropDown;
  94. Classes::TNotifyEvent FOnAfterDropDown;
  95. TfcComboButtonStyle FButtonStyle;
  96. int FButtonWidth;
  97. Controls::TControlCanvas* FCanvas;
  98. Controls::TControlCanvas* FPaintCanvas;
  99. TfcComboStyle FStyle;
  100. bool FReadOnly;
  101. bool FAllowClearKey;
  102. Classes::TNotifyEvent FOnMouseEnter;
  103. Classes::TNotifyEvent FOnMouseLeave;
  104. Fcframe::TfcEditFrame* FFrame;
  105. Fcframe::TfcButtonEffects* FButtonEffects;
  106. Controls::TCursor FSavedCursor;
  107. bool FIgnoreCursorChange;
  108. bool skipUpdate;
  109. bool FMouseInButtonControl;
  110. bool FDisableThemes;
  111. HIDESBASE MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
  112. MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  113. HIDESBASE MESSAGE void __fastcall CMCursorChanged(Messages::TMessage &Message);
  114. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  115. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  116. HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  117. HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  118. MESSAGE void __fastcall CMGetDataLink(Messages::TMessage &Message);
  119. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  120. HIDESBASE MESSAGE void __fastcall CNKeyDown(Messages::TWMKey &Message);
  121. HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  122. HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message);
  123. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  124. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  125. MESSAGE void __fastcall WMCut(Messages::TMessage &Message);
  126. MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
  127. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  128. HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
  129. HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
  130. void __fastcall SetController(Classes::TComponent* Value);
  131. AnsiString __fastcall GetDataField();
  132. Db::TDataSource* __fastcall GetDataSource(void);
  133. bool __fastcall GetReadOnly(void);
  134. void __fastcall SetButtonStyle(TfcComboButtonStyle Value);
  135. Graphics::TBitmap* __fastcall GetButtonGlyph(void);
  136. void __fastcall SetButtonGlyph(Graphics::TBitmap* Value);
  137. void __fastcall SetButtonWidth(int val);
  138. int __fastcall GetButtonWidth(void);
  139. void __fastcall SetDataField(AnsiString Value);
  140. void __fastcall SetDataSource(Db::TDataSource* Value);
  141. HIDESBASE void __fastcall SetReadOnly(bool Value);
  142. void __fastcall SetStyle(TfcComboStyle Value);
  143. void __fastcall SetAlignmentVertical(TfcAlignVertical Value);
  144. void __fastcall SetFocused(bool Value);
  146. protected:
  147. bool FFocused;
  148. void __fastcall UpdateButtonGlyph(void);
  149. virtual void __fastcall SetDropDownCount(int Value);
  150. virtual Controls::TWinControl* __fastcall GetDropDownControl(void) = 0 ;
  151. virtual Controls::TWinControl* __fastcall GetDropDownContainer(void) = 0 ;
  152. virtual int __fastcall GetItemCount(void) = 0 ;
  153. virtual tagSIZE __fastcall GetItemSize(void) = 0 ;
  154. virtual int __fastcall GetLeftIndent(void);
  155. virtual void __fastcall BtnMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  156. virtual void __fastcall DrawButton(Graphics::TCanvas* Canvas, const Types::TRect &R, Buttons::TButtonState State, Controls::TControlState ControlState, bool &DefaultPaint);
  157. virtual void __fastcall HideCaret(void);
  158. virtual void __fastcall Paint(void);
  159. virtual void __fastcall ShowCaret(void);
  160. virtual bool __fastcall GetShowButton(void);
  161. HIDESBASE virtual void __fastcall SetModified(bool Value);
  162. void __fastcall SetShowButton(bool Value);
  163. virtual bool __fastcall Editable(void);
  164. virtual bool __fastcall EditCanModify(void);
  165. virtual Types::TRect __fastcall GetClientEditRect();
  166. virtual Types::TRect __fastcall GetEditRect();
  167. virtual int __fastcall GetIconIndent(void);
  168. virtual int __fastcall GetIconLeft(void);
  169. virtual void __fastcall DoDropDown(void);
  170. virtual void __fastcall DoAfterDropDown(void);
  171. virtual void __fastcall CloseUp(bool Accept);
  172. virtual void __fastcall DataChange(System::TObject* Sender);
  173. virtual void __fastcall EditingChange(System::TObject* Sender);
  174. virtual void __fastcall HandleDropDownKeys(Word &Key, Classes::TShiftState Shift);
  175. virtual void __fastcall HandleGridKeys(Word &Key, Classes::TShiftState Shift);
  176. virtual void __fastcall Reset(void);
  177. virtual void __fastcall SetEditRect(void);
  178. virtual void __fastcall UpdateButtonPosition(void);
  179. virtual void __fastcall UpdateData(System::TObject* Sender);
  180. virtual bool __fastcall EffectiveReadOnly(void);
  181. virtual void __fastcall DoCloseUp(bool Accept);
  182. DYNAMIC void __fastcall DoEnter(void);
  183. virtual bool __fastcall SkipInheritedPaint(void);
  184. virtual int __fastcall GetRightIndent(const Types::TRect &Rect);
  185. virtual int __fastcall GetTopIndent(void);
  186. DYNAMIC void __fastcall Change(void);
  187. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  188. virtual void __fastcall CreateWnd(void);
  189. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  190. DYNAMIC void __fastcall KeyPress(char &Key);
  191. virtual void __fastcall Loaded(void);
  192. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  193. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  194. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  195. virtual void __fastcall WndProc(Messages::TMessage &Message);
  196. virtual void __fastcall PaintToCanvas(Graphics::TCanvas* Canvas, const Types::TRect &Rect, bool Highlight, bool GridPaint, AnsiString Text) = 0 ;
  197. virtual void __fastcall DrawFrame(Graphics::TCanvas* Canvas);
  198. virtual bool __fastcall IsCustom(void);
  199. void __fastcall InvalidateTransparentButton(void);
  200. virtual void __fastcall DoMouseEnter(void);
  201. virtual void __fastcall DoMouseLeave(void);
  202. __property Controls::TControlCanvas* Canvas = {read=FCanvas};
  203. __property Dbctrls::TFieldDataLink* DataLink = {read=FDataLink};
  204. __property Controls::TWinControl* DropDownContainer = {read=GetDropDownContainer};
  205. __property Controls::TWinControl* BtnParent = {read=FBtnParent};
  207. public:
  208. Variant ComboPatch;
  209. __property Classes::TComponent* Controller = {read=FController, write=SetController};
  210. __fastcall virtual TfcCustomCombo(Classes::TComponent* AOwner);
  211. __fastcall virtual ~TfcCustomCombo(void);
  212. bool __fastcall isTransparentEffective(void);
  213. HIDESBASE virtual void __fastcall SelectAll(void);
  214. virtual bool __fastcall IsDataBound(void);
  215. virtual bool __fastcall IsDroppedDown(void);
  216. virtual void __fastcall CheckCancelMode(void);
  217. virtual void __fastcall DrawInGridCell(Graphics::TCanvas* ACanvas, const Types::TRect &Rect, Grids::TGridDrawState State);
  218. virtual void __fastcall DropDown(void);
  219. __property TfcAlignVertical AlignmentVertical = {read=FAlignmentVertical, write=SetAlignmentVertical, default=0};
  220. __property bool AllowClearKey = {read=FAllowClearKey, write=FAllowClearKey, default=0};
  221. __property TfcDropDownButton* Button = {read=FButton};
  222. __property TfcComboButtonStyle ButtonStyle = {read=FButtonStyle, write=SetButtonStyle, nodefault};
  223. __property Graphics::TBitmap* ButtonGlyph = {read=GetButtonGlyph, write=SetButtonGlyph, stored=IsCustom};
  224. __property int ButtonWidth = {read=GetButtonWidth, write=SetButtonWidth, default=0};
  225. __property AnsiString DataField = {read=GetDataField, write=SetDataField};
  226. __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
  227. __property int DropDownCount = {read=FDropDownCount, write=SetDropDownCount, nodefault};
  228. __property Controls::TWinControl* DropDownControl = {read=GetDropDownControl};
  229. __property bool InfoPower = {read=FInfoPower, nodefault};
  230. __property int ItemCount = {read=GetItemCount, nodefault};
  231. __property tagSIZE ItemSize = {read=GetItemSize};
  232. __property bool ReadOnly = {read=GetReadOnly, write=SetReadOnly, nodefault};
  233. __property bool ShowButton = {read=GetShowButton, write=SetShowButton, default=1};
  234. __property TfcComboStyle Style = {read=FStyle, write=SetStyle, nodefault};
  235. __property Classes::TNotifyEvent OnCustomDlg = {read=FOnCustomDlg, write=FOnCustomDlg};
  236. __property TfcComboCloseUpEvent OnCloseUp = {read=FOnCloseUp, write=FOnCloseUp};
  237. __property Classes::TNotifyEvent OnDropDown = {read=FOnDropDown, write=FOnDropDown};
  238. __property Classes::TNotifyEvent OnAfterDropDown = {read=FOnAfterDropDown, write=FOnAfterDropDown};
  239. __property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
  240. __property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
  241. __property Fcframe::TfcEditFrame* Frame = {read=FFrame, write=FFrame};
  242. __property Fcframe::TfcButtonEffects* ButtonEffects = {read=FButtonEffects, write=FButtonEffects};
  243. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  244. public:
  245. #pragma option push -w-inl
  246. /* TWinControl.CreateParented */ inline __fastcall TfcCustomCombo(HWND ParentWindow) : Stdctrls::TCustomEdit(ParentWindow) { }
  247. #pragma option pop
  249. };
  252. //-- var, const, procedure ---------------------------------------------------
  253. extern PACKAGE TfcCustomCombo* __fastcall fcGetControlInGrid(Classes::TComponent* Form, Classes::TComponent* Grid, AnsiString FieldName);
  255. } /* namespace Fccombo */
  256. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  257. using namespace Fccombo;
  258. #endif
  259. #pragma option pop // -w-
  260. #pragma option pop // -Vx
  262. #pragma delphiheader end.
  263. //-- end unit ----------------------------------------------------------------
  264. #endif // fcCombo