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

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

Delphi控件源码

开发平台：

Delphi

fctreecombo.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fctreecombo.pas' rev: 5.00
  7. #ifndef fctreecomboHPP
  8. #define fctreecomboHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <fcframe.hpp> // Pascal unit
  14. #include <StdCtrls.hpp> // Pascal unit
  15. #include <ImgList.hpp> // Pascal unit
  16. #include <Db.hpp> // Pascal unit
  17. #include <Grids.hpp> // Pascal unit
  18. #include <Dialogs.hpp> // Pascal unit
  19. #include <ExtCtrls.hpp> // Pascal unit
  20. #include <fcTreeView.hpp> // Pascal unit
  21. #include <fcCombo.hpp> // Pascal unit
  22. #include <fcCommon.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 <Windows.hpp> // Pascal unit
  28. #include <SysUtils.hpp> // Pascal unit
  29. #include <Menus.hpp> // Pascal unit
  30. #include <Graphics.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 Fctreecombo
  38. {
  39. //-- type declarations -------------------------------------------------------
  40. class DELPHICLASS TfcPopupPanel;
  41. class PASCALIMPLEMENTATION TfcPopupPanel : public Extctrls::TPanel 
  42. {
  43. typedef Extctrls::TPanel inherited;
  45. protected:
  46. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  48. public:
  49. __fastcall virtual TfcPopupPanel(Classes::TComponent* AOwner);
  50. public:
  51. #pragma option push -w-inl
  52. /* TCustomControl.Destroy */ inline __fastcall virtual ~TfcPopupPanel(void) { }
  53. #pragma option pop
  55. public:
  56. #pragma option push -w-inl
  57. /* TWinControl.CreateParented */ inline __fastcall TfcPopupPanel(HWND ParentWindow) : Extctrls::TPanel(
  58. ParentWindow) { }
  59. #pragma option pop
  61. };
  64. class DELPHICLASS TfcTreeComboTreeNode;
  65. class PASCALIMPLEMENTATION TfcTreeComboTreeNode : public Fctreeview::TfcTreeNode 
  66. {
  67. typedef Fctreeview::TfcTreeNode inherited;
  69. private:
  70. bool FSelectable;
  72. protected:
  73. virtual void __fastcall ReadData(Classes::TStream* Stream, Fctreeview::PfcNodeInfo Info);
  74. virtual void __fastcall WriteData(Classes::TStream* Stream, Fctreeview::PfcNodeInfo Info);
  75. virtual int __fastcall GetSizeOfNodeInfo(void);
  77. public:
  78. __fastcall virtual TfcTreeComboTreeNode(Fctreeview::TfcTreeNodes* AOwner);
  80. __published:
  81. __property bool Selectable = {read=FSelectable, write=FSelectable, nodefault};
  82. public:
  83. #pragma option push -w-inl
  84. /* TfcTreeNode.Destroy */ inline __fastcall virtual ~TfcTreeComboTreeNode(void) { }
  85. #pragma option pop
  87. };
  90. class DELPHICLASS TfcPopupTreeView;
  91. class DELPHICLASS TfcCustomTreeCombo;
  92. #pragma option push -b-
  93. enum TfcImgComboOption { icoExpanded, icoEndNodesOnly };
  94. #pragma option pop
  96. typedef Set<TfcImgComboOption, icoExpanded, icoEndNodesOnly>  TfcImgComboOptions;
  98. typedef void __fastcall (__closure *TfcCheckValidItemEvent)(System::TObject* Sender, Fctreeview::TfcTreeNode* 
  99. Node, bool &Accept);
  101. class PASCALIMPLEMENTATION TfcCustomTreeCombo : public Fccombo::TfcCustomCombo 
  102. {
  103. typedef Fccombo::TfcCustomCombo inherited;
  105. private:
  106. Fctreeview::TfcTreeNode* FOriginalNode;
  107. AnsiString FOriginalText;
  108. Fctreeview::TfcTreeNode* FSelectedNode;
  109. TfcPopupPanel* FPanel;
  110. bool FShowMatchText;
  111. TfcImgComboOptions FOptions;
  112. TfcPopupTreeView* FTreeView;
  113. int FDropDownWidth;
  114. TfcCheckValidItemEvent FOnCheckValidItem;
  115. Classes::TNotifyEvent FOnSelectionChange;
  116. Classes::TStringList* FItemsList;
  117. int LastItemIndex;
  118. AnsiString LastItemText;
  119. bool SetModifiedInChangeEvent;
  120. Fctreeview::TwwStoreData FStoreDataUsing;
  121. Fctreeview::TfcCalcNodeAttributesEvent __fastcall GetCalcNodeAttributes(void);
  122. Imglist::TCustomImageList* __fastcall GetImageList(void);
  123. Imglist::TCustomImageList* __fastcall GetStateImageList(void);
  124. Fctreeview::TfcTreeNodes* __fastcall GetItems(void);
  125. bool __fastcall GetSorted(void);
  126. Fctreeview::TfcTreeViewOptions __fastcall GetTreeOptions(void);
  127. void __fastcall SetCalcNodeAttributes(Fctreeview::TfcCalcNodeAttributesEvent Value);
  128. void __fastcall SetItems(Fctreeview::TfcTreeNodes* Value);
  129. void __fastcall SetImageList(Imglist::TCustomImageList* Value);
  130. void __fastcall SetStateImageList(Imglist::TCustomImageList* Value);
  131. void __fastcall SetSorted(bool Value);
  132. void __fastcall SetTreeOptions(Fctreeview::TfcTreeViewOptions Value);
  133. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  134. void __fastcall InvalidateImage(void);
  135. Windows::TRect __fastcall CalcImageRect(const Windows::TRect &Rect);
  137. protected:
  138. virtual TfcPopupTreeView* __fastcall CreatePopupTreeView(void);
  139. virtual Fctreeview::TfcTreeNode* __fastcall GetStartingNode(void);
  140. DYNAMIC void __fastcall Change(void);
  141. virtual void __fastcall ItemsChange(Fctreeview::TfcCustomTreeView* TreeView, Fctreeview::TfcTreeNode* 
  142. Node, Fctreeview::TfcItemChangeAction Action, const Variant &NewValue);
  143. virtual void __fastcall PaintToCanvas(Graphics::TCanvas* Canvas, const Windows::TRect &Rect, bool Highlight
  144. , bool GridPaint, AnsiString Text);
  145. virtual void __fastcall ResyncTreeSelected(AnsiString LookupText);
  146. virtual void __fastcall SelectionChange(void);
  147. virtual void __fastcall SelectionChanging(void);
  148. virtual void __fastcall DataChange(System::TObject* Sender);
  149. virtual void __fastcall UpdateData(System::TObject* Sender);
  150. virtual Controls::TWinControl* __fastcall GetDropDownControl(void);
  151. virtual Controls::TWinControl* __fastcall GetDropDownContainer(void);
  152. virtual int __fastcall GetItemCount(void);
  153. virtual tagSIZE __fastcall GetItemSize(void);
  154. virtual int __fastcall GetLeftIndent(void);
  155. virtual Windows::TRect __fastcall GetEditRect(void);
  156. virtual void __fastcall CreateWnd(void);
  157. DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
  158. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  159. DYNAMIC void __fastcall KeyPress(char &Key);
  160. virtual void __fastcall Loaded(void);
  161. virtual void __fastcall Paint(void);
  162. virtual void __fastcall WndProc(Messages::TMessage &Message);
  163. virtual bool __fastcall Editable(void);
  164. virtual void __fastcall HideCaret(void);
  165. __property Classes::TStringList* ItemsList = {read=FItemsList};
  167. public:
  168. Variant BasePatch;
  169. __fastcall virtual TfcCustomTreeCombo(Classes::TComponent* AOwner);
  170. __fastcall virtual ~TfcCustomTreeCombo(void);
  171. virtual bool __fastcall IsValidNode(Fctreeview::TfcTreeNode* Node);
  172. virtual void __fastcall CloseUp(bool Accept);
  173. virtual void __fastcall DrawInGridCell(Graphics::TCanvas* ACanvas, const Windows::TRect &Rect, Grids::TGridDrawState 
  174. State);
  175. virtual void __fastcall DropDown(void);
  176. virtual bool __fastcall IsDroppedDown(void);
  177. virtual void __fastcall SetSelectedNode(Fctreeview::TfcTreeNode* Node);
  178. __property int DropDownWidth = {read=FDropDownWidth, write=FDropDownWidth, default=0};
  179. __property bool Sorted = {read=GetSorted, write=SetSorted, nodefault};
  180. __property TfcPopupTreeView* TreeView = {read=FTreeView};
  181. __property Imglist::TCustomImageList* Images = {read=GetImageList, write=SetImageList};
  182. __property Imglist::TCustomImageList* StateImages = {read=GetStateImageList, write=SetStateImageList
  183. };
  184. __property Fctreeview::TfcTreeNodes* Items = {read=GetItems, write=SetItems};
  185. __property TfcImgComboOptions Options = {read=FOptions, write=FOptions, nodefault};
  186. __property Fctreeview::TfcTreeNode* SelectedNode = {read=FSelectedNode};
  187. __property bool ShowMatchText = {read=FShowMatchText, write=FShowMatchText, nodefault};
  188. __property Fctreeview::TfcTreeViewOptions TreeOptions = {read=GetTreeOptions, write=SetTreeOptions, 
  189. default=1256};
  190. __property Fctreeview::TwwStoreData StoreDataUsing = {read=FStoreDataUsing, write=FStoreDataUsing, 
  191. default=0};
  192. __property TfcCheckValidItemEvent OnCheckValidItem = {read=FOnCheckValidItem, write=FOnCheckValidItem
  193. };
  194. __property Fctreeview::TfcCalcNodeAttributesEvent OnCalcNodeAttributes = {read=GetCalcNodeAttributes
  195. , write=SetCalcNodeAttributes};
  196. __property Classes::TNotifyEvent OnSelectionChange = {read=FOnSelectionChange, write=FOnSelectionChange
  197. };
  198. public:
  199. #pragma option push -w-inl
  200. /* TWinControl.CreateParented */ inline __fastcall TfcCustomTreeCombo(HWND ParentWindow) : Fccombo::TfcCustomCombo(
  201. ParentWindow) { }
  202. #pragma option pop
  204. };
  207. class PASCALIMPLEMENTATION TfcPopupTreeView : public Fctreeview::TfcTreeView 
  208. {
  209. typedef Fctreeview::TfcTreeView inherited;
  211. private:
  212. Windows::TPoint FLastPoint;
  213. bool FTimerOn;
  214. bool FCheckChange;
  215. TfcCustomTreeCombo* FTreeCombo;
  216. bool FCloseOnUp;
  217. bool FClickedInControl;
  218. MESSAGE void __fastcall WMMouseActivate(Messages::TMessage &Message);
  219. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  220. MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
  222. protected:
  223. virtual void __fastcall CalcNodeAttributes(Fctreeview::TfcTreeNode* Node, Fctreeview::TfcItemStates 
  224. AItemState);
  225. DYNAMIC void __fastcall Change(Fctreeview::TfcTreeNode* Node);
  226. virtual void __fastcall KillTimer(void);
  227. virtual void __fastcall SetTimer(void);
  228. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  229. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int 
  230. Y);
  231. virtual void __fastcall WndProc(Messages::TMessage &Message);
  232. DYNAMIC void __fastcall Collapse(Fctreeview::TfcTreeNode* Node);
  233. __property TfcCustomTreeCombo* TreeCombo = {read=FTreeCombo};
  235. public:
  236. __fastcall virtual TfcPopupTreeView(Classes::TComponent* AOwner);
  237. bool __fastcall ValidNode(Fctreeview::TfcTreeNode* Node);
  238. Fctreeview::TfcTreeNode* __fastcall MovePage(Fctreeview::TfcTreeNode* Node, bool Down);
  239. Fctreeview::TfcTreeNode* __fastcall GetLastVisible(void);
  240. Fctreeview::TfcTreeNode* __fastcall GetLastNode(void);
  241. bool __fastcall SelectValidNode(Fctreeview::TfcTreeNode* StartingNode, Fctreeview::TfcTreeNode* SelectedNode
  242. , Word Key);
  243. __property Items ;
  244. public:
  245. #pragma option push -w-inl
  246. /* TfcCustomTreeView.Destroy */ inline __fastcall virtual ~TfcPopupTreeView(void) { }
  247. #pragma option pop
  249. public:
  250. #pragma option push -w-inl
  251. /* TWinControl.CreateParented */ inline __fastcall TfcPopupTreeView(HWND ParentWindow) : Fctreeview::TfcTreeView(
  252. ParentWindow) { }
  253. #pragma option pop
  255. };
  258. class DELPHICLASS TfcTreeCombo;
  259. class PASCALIMPLEMENTATION TfcTreeCombo : public TfcCustomTreeCombo 
  260. {
  261. typedef TfcCustomTreeCombo inherited;
  263. __published:
  264. __property Controller ;
  265. __property DisableThemes ;
  266. __property AlignmentVertical ;
  267. __property Anchors ;
  268. __property Constraints ;
  269. __property AllowClearKey ;
  270. __property AutoSelect ;
  271. __property AutoSize ;
  272. __property BorderStyle ;
  273. __property ButtonStyle ;
  274. __property ButtonEffects ;
  275. __property ButtonGlyph ;
  276. __property ButtonWidth ;
  277. __property CharCase ;
  278. __property Color ;
  279. __property Text ;
  280. __property Frame ;
  281. __property DataField ;
  282. __property DataSource ;
  283. __property DropDownCount ;
  284. __property DropDownWidth ;
  285. __property Enabled ;
  286. __property Font ;
  287. __property HideSelection ;
  288. __property Images ;
  289. __property InfoPower ;
  290. __property MaxLength ;
  291. __property Items ;
  292. __property Options ;
  293. __property PopupMenu ;
  294. __property ReadOnly ;
  295. __property ShowButton ;
  296. __property ShowHint ;
  297. __property ShowMatchText ;
  298. __property Sorted ;
  299. __property StateImages ;
  300. __property StoreDataUsing ;
  301. __property Style ;
  302. __property TabOrder ;
  303. __property TreeOptions ;
  304. __property Visible ;
  305. __property OnCalcNodeAttributes ;
  306. __property OnClick ;
  307. __property OnChange ;
  308. __property OnCheckValidItem ;
  309. __property OnCloseUp ;
  310. __property OnContextPopup ;
  311. __property OnDblClick ;
  312. __property OnDragDrop ;
  313. __property OnDragOver ;
  314. __property OnDropDown ;
  315. __property OnAfterDropDown ;
  316. __property OnEndDock ;
  317. __property OnStartDock ;
  318. __property OnEndDrag ;
  319. __property OnEnter ;
  320. __property OnExit ;
  321. __property OnKeyDown ;
  322. __property OnKeyPress ;
  323. __property OnKeyUp ;
  324. __property OnMouseEnter ;
  325. __property OnMouseLeave ;
  326. __property OnMouseDown ;
  327. __property OnMouseMove ;
  328. __property OnMouseUp ;
  329. __property OnSelectionChange ;
  330. __property OnStartDrag ;
  331. public:
  332. #pragma option push -w-inl
  333. /* TfcCustomTreeCombo.Create */ inline __fastcall virtual TfcTreeCombo(Classes::TComponent* AOwner)
  334.  : TfcCustomTreeCombo(AOwner) { }
  335. #pragma option pop
  336. #pragma option push -w-inl
  337. /* TfcCustomTreeCombo.Destroy */ inline __fastcall virtual ~TfcTreeCombo(void) { }
  338. #pragma option pop
  340. public:
  341. #pragma option push -w-inl
  342. /* TWinControl.CreateParented */ inline __fastcall TfcTreeCombo(HWND ParentWindow) : TfcCustomTreeCombo(
  343. ParentWindow) { }
  344. #pragma option pop
  346. };
  349. //-- var, const, procedure ---------------------------------------------------
  350. static const Word FCPOPUPTIMERID = 0x3e8;
  351. static const Shortint FCPOPUPINTERVAL = 0x32;
  353. } /* namespace Fctreecombo */
  354. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  355. using namespace Fctreecombo;
  356. #endif
  357. #pragma option pop // -w-
  358. #pragma option pop // -Vx
  360. #pragma delphiheader end.
  361. //-- end unit ----------------------------------------------------------------
  362. #endif // fctreecombo