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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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, 
  64. int Y);
  65. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  66. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  67. Y);
  68. virtual void __fastcall Paint(void);
  69. public:
  70. #pragma option push -w-inl
  71. /* TfcComboButton.Create */ inline __fastcall virtual TfcDropDownButton(Classes::TComponent* AOwner
  72. ) : Fccombobutton::TfcComboButton(AOwner) { }
  73. #pragma option pop
  74. #pragma option push -w-inl
  75. /* TfcComboButton.Destroy */ inline __fastcall virtual ~TfcDropDownButton(void) { }
  76. #pragma option pop
  78. };
  81. class DELPHICLASS TfcCustomCombo;
  82. class PASCALIMPLEMENTATION TfcCustomCombo : public Stdctrls::TCustomEdit 
  83. {
  84. typedef Stdctrls::TCustomEdit inherited;
  86. private:
  87. Classes::TComponent* FController;
  88. TfcAlignVertical FAlignmentVertical;
  89. Controls::TWinControl* FBtnParent;
  90. TfcDropDownButton* FButton;
  91. Dbctrls::TFieldDataLink* FDataLink;
  92. int FDropDownCount;
  93. bool FInfoPower;
  94. Classes::TNotifyEvent FOnCustomDlg;
  95. TfcComboCloseUpEvent FOnCloseUp;
  96. Classes::TNotifyEvent FOnDropDown;
  97. Classes::TNotifyEvent FOnAfterDropDown;
  98. TfcComboButtonStyle FButtonStyle;
  99. int FButtonWidth;
  100. Controls::TControlCanvas* FCanvas;
  101. Controls::TControlCanvas* FPaintCanvas;
  102. TfcComboStyle FStyle;
  103. bool FReadOnly;
  104. bool FAllowClearKey;
  105. Classes::TNotifyEvent FOnMouseEnter;
  106. Classes::TNotifyEvent FOnMouseLeave;
  107. Fcframe::TfcEditFrame* FFrame;
  108. Fcframe::TfcButtonEffects* FButtonEffects;
  109. Controls::TCursor FSavedCursor;
  110. bool FIgnoreCursorChange;
  111. bool skipUpdate;
  112. bool FMouseInButtonControl;
  113. bool FDisableThemes;
  114. HIDESBASE MESSAGE void __fastcall WMSetFont(Messages::TWMSetFont &Message);
  115. MESSAGE void __fastcall CMCancelMode(Controls::TCMCancelMode &Message);
  116. HIDESBASE MESSAGE void __fastcall CMCursorChanged(Messages::TMessage &Message);
  117. HIDESBASE MESSAGE void __fastcall CMEnter(Messages::TWMNoParams &Message);
  118. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TWMNoParams &Message);
  119. HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  120. HIDESBASE MESSAGE void __fastcall CMEnabledChanged(Messages::TMessage &Message);
  121. MESSAGE void __fastcall CMGetDataLink(Messages::TMessage &Message);
  122. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  123. HIDESBASE MESSAGE void __fastcall CNKeyDown(Messages::TWMKey &Message);
  124. HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  125. HIDESBASE MESSAGE void __fastcall WMKillFocus(Messages::TWMKillFocus &Message);
  126. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  127. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  128. MESSAGE void __fastcall WMCut(Messages::TMessage &Message);
  129. MESSAGE void __fastcall WMPaste(Messages::TMessage &Message);
  130. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  131. HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &Message);
  132. HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &Message);
  133. void __fastcall SetController(Classes::TComponent* Value);
  134. AnsiString __fastcall GetDataField(void);
  135. Db::TDataSource* __fastcall GetDataSource(void);
  136. bool __fastcall GetReadOnly(void);
  137. void __fastcall SetButtonStyle(TfcComboButtonStyle Value);
  138. Graphics::TBitmap* __fastcall GetButtonGlyph(void);
  139. void __fastcall SetButtonGlyph(Graphics::TBitmap* Value);
  140. void __fastcall SetButtonWidth(int val);
  141. int __fastcall GetButtonWidth(void);
  142. void __fastcall SetDataField(AnsiString Value);
  143. void __fastcall SetDataSource(Db::TDataSource* Value);
  144. HIDESBASE void __fastcall SetReadOnly(bool Value);
  145. void __fastcall SetStyle(TfcComboStyle Value);
  146. void __fastcall SetAlignmentVertical(TfcAlignVertical Value);
  147. void __fastcall SetFocused(bool Value);
  149. protected:
  150. bool FFocused;
  151. void __fastcall UpdateButtonGlyph(void);
  152. virtual void __fastcall SetDropDownCount(int Value);
  153. virtual Controls::TWinControl* __fastcall GetDropDownControl(void) = 0 ;
  154. virtual Controls::TWinControl* __fastcall GetDropDownContainer(void) = 0 ;
  155. virtual int __fastcall GetItemCount(void) = 0 ;
  156. virtual tagSIZE __fastcall GetItemSize(void) = 0 ;
  157. virtual int __fastcall GetLeftIndent(void);
  158. virtual void __fastcall BtnMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState 
  159. Shift, int X, int Y);
  160. virtual void __fastcall DrawButton(Graphics::TCanvas* Canvas, const Windows::TRect &R, Buttons::TButtonState 
  161. State, Controls::TControlState ControlState, bool &DefaultPaint);
  162. virtual void __fastcall HideCaret(void);
  163. virtual void __fastcall Paint(void);
  164. virtual void __fastcall ShowCaret(void);
  165. virtual bool __fastcall GetShowButton(void);
  166. HIDESBASE virtual void __fastcall SetModified(bool Value);
  167. void __fastcall SetShowButton(bool Value);
  168. virtual bool __fastcall Editable(void);
  169. virtual bool __fastcall EditCanModify(void);
  170. virtual Windows::TRect __fastcall GetClientEditRect(void);
  171. virtual Windows::TRect __fastcall GetEditRect(void);
  172. virtual int __fastcall GetIconIndent(void);
  173. virtual int __fastcall GetIconLeft(void);
  174. virtual void __fastcall DoDropDown(void);
  175. virtual void __fastcall DoAfterDropDown(void);
  176. virtual void __fastcall CloseUp(bool Accept);
  177. virtual void __fastcall DataChange(System::TObject* Sender);
  178. virtual void __fastcall EditingChange(System::TObject* Sender);
  179. virtual void __fastcall HandleDropDownKeys(Word &Key, Classes::TShiftState Shift);
  180. virtual void __fastcall HandleGridKeys(Word &Key, Classes::TShiftState Shift);
  181. virtual void __fastcall Reset(void);
  182. virtual void __fastcall SetEditRect(void);
  183. virtual void __fastcall UpdateButtonPosition(void);
  184. virtual void __fastcall UpdateData(System::TObject* Sender);
  185. virtual bool __fastcall EffectiveReadOnly(void);
  186. virtual void __fastcall DoCloseUp(bool Accept);
  187. DYNAMIC void __fastcall DoEnter(void);
  188. virtual bool __fastcall SkipInheritedPaint(void);
  189. virtual int __fastcall GetRightIndent(const Windows::TRect &Rect);
  190. virtual int __fastcall GetTopIndent(void);
  191. DYNAMIC void __fastcall Change(void);
  192. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  193. virtual void __fastcall CreateWnd(void);
  194. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  195. DYNAMIC void __fastcall KeyPress(char &Key);
  196. virtual void __fastcall Loaded(void);
  197. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, 
  198. int Y);
  199. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  200. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  201. );
  202. virtual void __fastcall WndProc(Messages::TMessage &Message);
  203. virtual void __fastcall PaintToCanvas(Graphics::TCanvas* Canvas, const Windows::TRect &Rect, bool Highlight
  204. , bool GridPaint, AnsiString Text) = 0 ;
  205. virtual void __fastcall DrawFrame(Graphics::TCanvas* Canvas);
  206. virtual bool __fastcall IsCustom(void);
  207. void __fastcall InvalidateTransparentButton(void);
  208. virtual void __fastcall DoMouseEnter(void);
  209. virtual void __fastcall DoMouseLeave(void);
  210. __property Controls::TControlCanvas* Canvas = {read=FCanvas};
  211. __property Dbctrls::TFieldDataLink* DataLink = {read=FDataLink};
  212. __property Controls::TWinControl* DropDownContainer = {read=GetDropDownContainer};
  213. __property Controls::TWinControl* BtnParent = {read=FBtnParent};
  215. public:
  216. Variant ComboPatch;
  217. __property Classes::TComponent* Controller = {read=FController, write=SetController};
  218. __fastcall virtual TfcCustomCombo(Classes::TComponent* AOwner);
  219. __fastcall virtual ~TfcCustomCombo(void);
  220. bool __fastcall isTransparentEffective(void);
  221. HIDESBASE virtual void __fastcall SelectAll(void);
  222. virtual bool __fastcall IsDataBound(void);
  223. virtual bool __fastcall IsDroppedDown(void);
  224. virtual void __fastcall CheckCancelMode(void);
  225. virtual void __fastcall DrawInGridCell(Graphics::TCanvas* ACanvas, const Windows::TRect &Rect, Grids::TGridDrawState 
  226. State);
  227. virtual void __fastcall DropDown(void);
  228. __property TfcAlignVertical AlignmentVertical = {read=FAlignmentVertical, write=SetAlignmentVertical
  229. , default=0};
  230. __property bool AllowClearKey = {read=FAllowClearKey, write=FAllowClearKey, default=0};
  231. __property TfcDropDownButton* Button = {read=FButton};
  232. __property TfcComboButtonStyle ButtonStyle = {read=FButtonStyle, write=SetButtonStyle, nodefault};
  233. __property Graphics::TBitmap* ButtonGlyph = {read=GetButtonGlyph, write=SetButtonGlyph, stored=IsCustom
  234. };
  235. __property int ButtonWidth = {read=GetButtonWidth, write=SetButtonWidth, default=0};
  236. __property AnsiString DataField = {read=GetDataField, write=SetDataField};
  237. __property Db::TDataSource* DataSource = {read=GetDataSource, write=SetDataSource};
  238. __property int DropDownCount = {read=FDropDownCount, write=SetDropDownCount, nodefault};
  239. __property Controls::TWinControl* DropDownControl = {read=GetDropDownControl};
  240. __property bool InfoPower = {read=FInfoPower, nodefault};
  241. __property int ItemCount = {read=GetItemCount, nodefault};
  242. __property tagSIZE ItemSize = {read=GetItemSize};
  243. __property bool ReadOnly = {read=GetReadOnly, write=SetReadOnly, nodefault};
  244. __property bool ShowButton = {read=GetShowButton, write=SetShowButton, default=1};
  245. __property TfcComboStyle Style = {read=FStyle, write=SetStyle, nodefault};
  246. __property Classes::TNotifyEvent OnCustomDlg = {read=FOnCustomDlg, write=FOnCustomDlg};
  247. __property TfcComboCloseUpEvent OnCloseUp = {read=FOnCloseUp, write=FOnCloseUp};
  248. __property Classes::TNotifyEvent OnDropDown = {read=FOnDropDown, write=FOnDropDown};
  249. __property Classes::TNotifyEvent OnAfterDropDown = {read=FOnAfterDropDown, write=FOnAfterDropDown};
  251. __property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
  252. __property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
  253. __property Fcframe::TfcEditFrame* Frame = {read=FFrame, write=FFrame};
  254. __property Fcframe::TfcButtonEffects* ButtonEffects = {read=FButtonEffects, write=FButtonEffects};
  255. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  256. public:
  257. #pragma option push -w-inl
  258. /* TWinControl.CreateParented */ inline __fastcall TfcCustomCombo(HWND ParentWindow) : Stdctrls::TCustomEdit(
  259. ParentWindow) { }
  260. #pragma option pop
  262. };
  265. //-- var, const, procedure ---------------------------------------------------
  266. extern PACKAGE TfcCustomCombo* __fastcall fcGetControlInGrid(Classes::TComponent* Form, Classes::TComponent* 
  267. Grid, AnsiString FieldName);
  269. } /* namespace Fccombo */
  270. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  271. using namespace Fccombo;
  272. #endif
  273. #pragma option pop // -w-
  274. #pragma option pop // -Vx
  276. #pragma delphiheader end.
  277. //-- end unit ----------------------------------------------------------------
  278. #endif // fcCombo