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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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(ParentWindow) { }
  58. #pragma option pop
  60. };
  63. class DELPHICLASS TfcTreeComboTreeNode;
  64. class PASCALIMPLEMENTATION TfcTreeComboTreeNode : public Fctreeview::TfcTreeNode 
  65. {
  66. typedef Fctreeview::TfcTreeNode inherited;
  68. private:
  69. bool FSelectable;
  71. protected:
  72. virtual void __fastcall ReadData(Classes::TStream* Stream, Fctreeview::PfcNodeInfo Info);
  73. virtual void __fastcall WriteData(Classes::TStream* Stream, Fctreeview::PfcNodeInfo Info);
  74. virtual int __fastcall GetSizeOfNodeInfo(void);
  76. public:
  77. __fastcall virtual TfcTreeComboTreeNode(Fctreeview::TfcTreeNodes* AOwner);
  79. __published:
  80. __property bool Selectable = {read=FSelectable, write=FSelectable, nodefault};
  81. public:
  82. #pragma option push -w-inl
  83. /* TfcTreeNode.Destroy */ inline __fastcall virtual ~TfcTreeComboTreeNode(void) { }
  84. #pragma option pop
  86. };
  89. class DELPHICLASS TfcPopupTreeView;
  90. class DELPHICLASS TfcCustomTreeCombo;
  91. #pragma option push -b-
  92. enum TfcImgComboOption { icoExpanded, icoEndNodesOnly };
  93. #pragma option pop
  95. typedef Set<TfcImgComboOption, icoExpanded, icoEndNodesOnly>  TfcImgComboOptions;
  97. typedef void __fastcall (__closure *TfcCheckValidItemEvent)(System::TObject* Sender, Fctreeview::TfcTreeNode* Node, bool &Accept);
  99. class PASCALIMPLEMENTATION TfcCustomTreeCombo : public Fccombo::TfcCustomCombo 
  100. {
  101. typedef Fccombo::TfcCustomCombo inherited;
  103. private:
  104. Fctreeview::TfcTreeNode* FOriginalNode;
  105. AnsiString FOriginalText;
  106. Fctreeview::TfcTreeNode* FSelectedNode;
  107. TfcPopupPanel* FPanel;
  108. bool FShowMatchText;
  109. TfcImgComboOptions FOptions;
  110. TfcPopupTreeView* FTreeView;
  111. int FDropDownWidth;
  112. TfcCheckValidItemEvent FOnCheckValidItem;
  113. Classes::TNotifyEvent FOnSelectionChange;
  114. Classes::TStringList* FItemsList;
  115. int LastItemIndex;
  116. AnsiString LastItemText;
  117. bool SetModifiedInChangeEvent;
  118. Fctreeview::TwwStoreData FStoreDataUsing;
  119. Fctreeview::TfcCalcNodeAttributesEvent __fastcall GetCalcNodeAttributes();
  120. Imglist::TCustomImageList* __fastcall GetImageList(void);
  121. Imglist::TCustomImageList* __fastcall GetStateImageList(void);
  122. Fctreeview::TfcTreeNodes* __fastcall GetItems(void);
  123. bool __fastcall GetSorted(void);
  124. Fctreeview::TfcTreeViewOptions __fastcall GetTreeOptions(void);
  125. void __fastcall SetCalcNodeAttributes(Fctreeview::TfcCalcNodeAttributesEvent Value);
  126. void __fastcall SetItems(Fctreeview::TfcTreeNodes* Value);
  127. void __fastcall SetImageList(Imglist::TCustomImageList* Value);
  128. void __fastcall SetStateImageList(Imglist::TCustomImageList* Value);
  129. void __fastcall SetSorted(bool Value);
  130. void __fastcall SetTreeOptions(Fctreeview::TfcTreeViewOptions Value);
  131. HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  132. void __fastcall InvalidateImage(void);
  133. Types::TRect __fastcall CalcImageRect(const Types::TRect &Rect);
  135. protected:
  136. virtual TfcPopupTreeView* __fastcall CreatePopupTreeView(void);
  137. virtual Fctreeview::TfcTreeNode* __fastcall GetStartingNode(void);
  138. DYNAMIC void __fastcall Change(void);
  139. virtual void __fastcall ItemsChange(Fctreeview::TfcCustomTreeView* TreeView, Fctreeview::TfcTreeNode* Node, Fctreeview::TfcItemChangeAction Action, const Variant &NewValue);
  140. virtual void __fastcall PaintToCanvas(Graphics::TCanvas* Canvas, const Types::TRect &Rect, bool Highlight, bool GridPaint, AnsiString Text);
  141. virtual void __fastcall ResyncTreeSelected(AnsiString LookupText);
  142. virtual void __fastcall SelectionChange(void);
  143. virtual void __fastcall SelectionChanging(void);
  144. virtual void __fastcall DataChange(System::TObject* Sender);
  145. virtual void __fastcall UpdateData(System::TObject* Sender);
  146. virtual Controls::TWinControl* __fastcall GetDropDownControl(void);
  147. virtual Controls::TWinControl* __fastcall GetDropDownContainer(void);
  148. virtual int __fastcall GetItemCount(void);
  149. virtual tagSIZE __fastcall GetItemSize();
  150. virtual int __fastcall GetLeftIndent(void);
  151. virtual Types::TRect __fastcall GetEditRect();
  152. virtual void __fastcall CreateWnd(void);
  153. DYNAMIC void __fastcall KeyUp(Word &Key, Classes::TShiftState Shift);
  154. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  155. DYNAMIC void __fastcall KeyPress(char &Key);
  156. virtual void __fastcall Loaded(void);
  157. virtual void __fastcall Paint(void);
  158. virtual void __fastcall WndProc(Messages::TMessage &Message);
  159. virtual bool __fastcall Editable(void);
  160. virtual void __fastcall HideCaret(void);
  161. __property Classes::TStringList* ItemsList = {read=FItemsList};
  163. public:
  164. Variant BasePatch;
  165. __fastcall virtual TfcCustomTreeCombo(Classes::TComponent* AOwner);
  166. __fastcall virtual ~TfcCustomTreeCombo(void);
  167. virtual bool __fastcall IsValidNode(Fctreeview::TfcTreeNode* Node);
  168. virtual void __fastcall CloseUp(bool Accept);
  169. virtual void __fastcall DrawInGridCell(Graphics::TCanvas* ACanvas, const Types::TRect &Rect, Grids::TGridDrawState State);
  170. virtual void __fastcall DropDown(void);
  171. virtual bool __fastcall IsDroppedDown(void);
  172. virtual void __fastcall SetSelectedNode(Fctreeview::TfcTreeNode* Node);
  173. __property int DropDownWidth = {read=FDropDownWidth, write=FDropDownWidth, default=0};
  174. __property bool Sorted = {read=GetSorted, write=SetSorted, nodefault};
  175. __property TfcPopupTreeView* TreeView = {read=FTreeView};
  176. __property Imglist::TCustomImageList* Images = {read=GetImageList, write=SetImageList};
  177. __property Imglist::TCustomImageList* StateImages = {read=GetStateImageList, write=SetStateImageList};
  178. __property Fctreeview::TfcTreeNodes* Items = {read=GetItems, write=SetItems};
  179. __property TfcImgComboOptions Options = {read=FOptions, write=FOptions, nodefault};
  180. __property Fctreeview::TfcTreeNode* SelectedNode = {read=FSelectedNode};
  181. __property bool ShowMatchText = {read=FShowMatchText, write=FShowMatchText, nodefault};
  182. __property Fctreeview::TfcTreeViewOptions TreeOptions = {read=GetTreeOptions, write=SetTreeOptions, default=1256};
  183. __property Fctreeview::TwwStoreData StoreDataUsing = {read=FStoreDataUsing, write=FStoreDataUsing, default=0};
  184. __property TfcCheckValidItemEvent OnCheckValidItem = {read=FOnCheckValidItem, write=FOnCheckValidItem};
  185. __property Fctreeview::TfcCalcNodeAttributesEvent OnCalcNodeAttributes = {read=GetCalcNodeAttributes, write=SetCalcNodeAttributes};
  186. __property Classes::TNotifyEvent OnSelectionChange = {read=FOnSelectionChange, write=FOnSelectionChange};
  187. public:
  188. #pragma option push -w-inl
  189. /* TWinControl.CreateParented */ inline __fastcall TfcCustomTreeCombo(HWND ParentWindow) : Fccombo::TfcCustomCombo(ParentWindow) { }
  190. #pragma option pop
  192. };
  195. class PASCALIMPLEMENTATION TfcPopupTreeView : public Fctreeview::TfcTreeView 
  196. {
  197. typedef Fctreeview::TfcTreeView inherited;
  199. private:
  200. #pragma pack(push, 1)
  201. Types::TPoint FLastPoint;
  202. #pragma pack(pop)
  204. bool FTimerOn;
  205. bool FCheckChange;
  206. TfcCustomTreeCombo* FTreeCombo;
  207. bool FCloseOnUp;
  208. bool FClickedInControl;
  209. MESSAGE void __fastcall WMMouseActivate(Messages::TMessage &Message);
  210. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  211. MESSAGE void __fastcall WMTimer(Messages::TWMTimer &Message);
  213. protected:
  214. virtual void __fastcall CalcNodeAttributes(Fctreeview::TfcTreeNode* Node, Fctreeview::TfcItemStates AItemState);
  215. DYNAMIC void __fastcall Change(Fctreeview::TfcTreeNode* Node);
  216. virtual void __fastcall KillTimer(void);
  217. virtual void __fastcall SetTimer(void);
  218. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  219. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  220. virtual void __fastcall WndProc(Messages::TMessage &Message);
  221. DYNAMIC void __fastcall Collapse(Fctreeview::TfcTreeNode* Node);
  222. __property TfcCustomTreeCombo* TreeCombo = {read=FTreeCombo};
  224. public:
  225. __fastcall virtual TfcPopupTreeView(Classes::TComponent* AOwner);
  226. bool __fastcall ValidNode(Fctreeview::TfcTreeNode* Node);
  227. Fctreeview::TfcTreeNode* __fastcall MovePage(Fctreeview::TfcTreeNode* Node, bool Down);
  228. Fctreeview::TfcTreeNode* __fastcall GetLastVisible(void);
  229. Fctreeview::TfcTreeNode* __fastcall GetLastNode(void);
  230. bool __fastcall SelectValidNode(Fctreeview::TfcTreeNode* StartingNode, Fctreeview::TfcTreeNode* SelectedNode, Word Key);
  231. __property Items ;
  232. public:
  233. #pragma option push -w-inl
  234. /* TfcCustomTreeView.Destroy */ inline __fastcall virtual ~TfcPopupTreeView(void) { }
  235. #pragma option pop
  237. public:
  238. #pragma option push -w-inl
  239. /* TWinControl.CreateParented */ inline __fastcall TfcPopupTreeView(HWND ParentWindow) : Fctreeview::TfcTreeView(ParentWindow) { }
  240. #pragma option pop
  242. };
  245. class DELPHICLASS TfcTreeCombo;
  246. class PASCALIMPLEMENTATION TfcTreeCombo : public TfcCustomTreeCombo 
  247. {
  248. typedef TfcCustomTreeCombo inherited;
  250. __published:
  251. __property Controller ;
  252. __property DisableThemes ;
  253. __property AlignmentVertical ;
  254. __property Anchors ;
  255. __property Constraints ;
  256. __property AllowClearKey ;
  257. __property AutoSelect ;
  258. __property AutoSize ;
  259. __property BorderStyle ;
  260. __property ButtonStyle ;
  261. __property ButtonEffects ;
  262. __property ButtonGlyph ;
  263. __property ButtonWidth ;
  264. __property CharCase ;
  265. __property Color ;
  266. __property Text ;
  267. __property Frame ;
  268. __property DataField ;
  269. __property DataSource ;
  270. __property DropDownCount ;
  271. __property DropDownWidth ;
  272. __property Enabled ;
  273. __property Font ;
  274. __property HideSelection ;
  275. __property Images ;
  276. __property InfoPower ;
  277. __property MaxLength ;
  278. __property Items ;
  279. __property Options ;
  280. __property PopupMenu ;
  281. __property ReadOnly ;
  282. __property ShowButton ;
  283. __property ShowHint ;
  284. __property ShowMatchText ;
  285. __property Sorted ;
  286. __property StateImages ;
  287. __property StoreDataUsing ;
  288. __property Style ;
  289. __property TabOrder ;
  290. __property TreeOptions ;
  291. __property Visible ;
  292. __property OnCalcNodeAttributes ;
  293. __property OnClick ;
  294. __property OnChange ;
  295. __property OnCheckValidItem ;
  296. __property OnCloseUp ;
  297. __property OnContextPopup ;
  298. __property OnDblClick ;
  299. __property OnDragDrop ;
  300. __property OnDragOver ;
  301. __property OnDropDown ;
  302. __property OnAfterDropDown ;
  303. __property OnEndDock ;
  304. __property OnStartDock ;
  305. __property OnEndDrag ;
  306. __property OnEnter ;
  307. __property OnExit ;
  308. __property OnKeyDown ;
  309. __property OnKeyPress ;
  310. __property OnKeyUp ;
  311. __property OnMouseEnter ;
  312. __property OnMouseLeave ;
  313. __property OnMouseDown ;
  314. __property OnMouseMove ;
  315. __property OnMouseUp ;
  316. __property OnSelectionChange ;
  317. __property OnStartDrag ;
  318. public:
  319. #pragma option push -w-inl
  320. /* TfcCustomTreeCombo.Create */ inline __fastcall virtual TfcTreeCombo(Classes::TComponent* AOwner) : TfcCustomTreeCombo(AOwner) { }
  321. #pragma option pop
  322. #pragma option push -w-inl
  323. /* TfcCustomTreeCombo.Destroy */ inline __fastcall virtual ~TfcTreeCombo(void) { }
  324. #pragma option pop
  326. public:
  327. #pragma option push -w-inl
  328. /* TWinControl.CreateParented */ inline __fastcall TfcTreeCombo(HWND ParentWindow) : TfcCustomTreeCombo(ParentWindow) { }
  329. #pragma option pop
  331. };
  334. //-- var, const, procedure ---------------------------------------------------
  335. static const Word FCPOPUPTIMERID = 0x3e8;
  336. static const Shortint FCPOPUPINTERVAL = 0x32;
  338. } /* namespace Fctreecombo */
  339. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  340. using namespace Fctreecombo;
  341. #endif
  342. #pragma option pop // -w-
  343. #pragma option pop // -Vx
  345. #pragma delphiheader end.
  346. //-- end unit ----------------------------------------------------------------
  347. #endif // fctreecombo