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

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

Delphi控件源码

开发平台：

Delphi

fctreeview.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcTreeView.pas' rev: 5.00
  7. #ifndef fcTreeViewHPP
  8. #define fcTreeViewHPP
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Menus.hpp> // Pascal unit
  14. #include <ImgList.hpp> // Pascal unit
  15. #include <ShellAPI.hpp> // Pascal unit
  16. #include <Variants.hpp> // Pascal unit
  17. #include <fcCommon.hpp> // Pascal unit
  18. #include <ExtCtrls.hpp> // Pascal unit
  19. #include <fcCanvas.hpp> // Pascal unit
  20. #include <fccustomdraw.hpp> // Pascal unit
  21. #include <ComCtrls.hpp> // Pascal unit
  22. #include <Consts.hpp> // Pascal unit
  23. #include <ComStrs.hpp> // Pascal unit
  24. #include <CommCtrl.hpp> // Pascal unit
  25. #include <Dialogs.hpp> // Pascal unit
  26. #include <Forms.hpp> // Pascal unit
  27. #include <Controls.hpp> // Pascal unit
  28. #include <Graphics.hpp> // Pascal unit
  29. #include <Classes.hpp> // Pascal unit
  30. #include <SysUtils.hpp> // Pascal unit
  31. #include <Messages.hpp> // Pascal unit
  32. #include <Windows.hpp> // Pascal unit
  33. #include <SysInit.hpp> // Pascal unit
  34. #include <System.hpp> // Pascal unit
  36. //-- user supplied -----------------------------------------------------------
  38. namespace Fctreeview
  39. {
  40. //-- type declarations -------------------------------------------------------
  41. #pragma option push -b-
  42. enum TfcItemState { fcisSelected, fcisGrayed, fcisDisabled, fcisChecked, fcisFocused, fcisDefault, fcisHot, fcisMarked, fcisIndeterminate };
  43. #pragma option pop
  45. typedef Set<TfcItemState, fcisSelected, fcisIndeterminate>  TfcItemStates;
  47. class DELPHICLASS TfcCustomTreeView;
  48. class DELPHICLASS TfcTreeNode;
  49. typedef void __fastcall (__closure *TfcTVDrawTextEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, const Types::TRect &ARect, TfcItemStates AItemState, bool &DefaultDrawing);
  51. typedef void __fastcall (__closure *TfcTreeMouseMoveEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, Classes::TShiftState Shift, int X, int Y);
  53. typedef void __fastcall (__closure *TfcTreeMouseEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  55. #pragma option push -b-
  56. enum TfcNodeState { fcnsCut, fcnsDropHilited, fcnsFocused, fcnsSelected, fcnsExpanded };
  57. #pragma option pop
  59. #pragma option push -b-
  60. enum TfcNodeAttachMode { fcnaAdd, fcnaAddFirst, fcnaAddChild, fcnaAddChildFirst, fcnaInsert, fcnaInsertAfter };
  61. #pragma option pop
  63. #pragma option push -b-
  64. enum TfcAddMode { fctaAddFirst, fctaAdd, fctaInsert };
  65. #pragma option pop
  67. #pragma option push -b-
  68. enum TfcTreeViewCheckboxType { tvctNone, tvctCheckbox, tvctRadioGroup };
  69. #pragma option pop
  71. #pragma option push -b-
  72. enum TfcTreeViewOption { tvoExpandOnDblClk, tvoExpandButtons3D, tvoFlatCheckBoxes, tvoHideSelection, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoHotTrack, tvoAutoURL, tvoToolTips, tvoEditText, tvo3StateCheckbox };
  73. #pragma option pop
  75. typedef Set<TfcTreeViewOption, tvoExpandOnDblClk, tvo3StateCheckbox>  TfcTreeViewOptions;
  77. struct TfcNodeInfo;
  78. typedef TfcNodeInfo *PfcNodeInfo;
  80. #pragma pack(push, 1)
  81. struct TfcNodeInfo
  82. {
  83. int ImageIndex;
  84. int SelectedIndex;
  85. int StateIndex;
  86. int OverlayIndex;
  87. TfcTreeViewCheckboxType CheckboxType;
  88. Byte Checked;
  89. bool Expanded;
  90. char DummyPad[3];
  91. void *Data;
  92. int StringDataSize1;
  93. int StringDataSize2;
  94. int Count;
  95. System::SmallString<255>  Text;
  96. } ;
  97. #pragma pack(pop)
  99. class DELPHICLASS TfcTreeNodes;
  100. #pragma pack(push, 4)
  101. struct TfcNodeCache
  102. {
  103. TfcTreeNode* CacheNode;
  104. int CacheIndex;
  105. } ;
  106. #pragma pack(pop)
  108. #pragma option push -b-
  109. enum TwwStoreData { sdStoreText, sdStoreData1, sdStoreData2 };
  110. #pragma option pop
  112. class PASCALIMPLEMENTATION TfcTreeNodes : public Classes::TPersistent 
  113. {
  114. typedef Classes::TPersistent inherited;
  116. private:
  117. TfcCustomTreeView* FOwner;
  118. int FUpdateCount;
  119. TfcNodeCache FNodeCache;
  120. bool InDestroy;
  121. void __fastcall AddedNode(TfcTreeNode* Value);
  122. HWND __fastcall GetHandle(void);
  123. TfcTreeNode* __fastcall GetNodeFromIndex(int Index);
  124. void __fastcall ReadData(Classes::TStream* Stream);
  125. void __fastcall Repaint(TfcTreeNode* Node);
  126. void __fastcall WriteData(Classes::TStream* Stream);
  127. void __fastcall ClearCache(void);
  128. void __fastcall ReadStreamVersion(Classes::TReader* Reader);
  129. void __fastcall WriteStreamVersion(Classes::TWriter* Writer);
  131. protected:
  132. HTREEITEM __fastcall AddItem(HTREEITEM Parent, HTREEITEM Target, const tagTVITEMA &Item, TfcAddMode AddMode);
  133. TfcTreeNode* __fastcall InternalAddObject(TfcTreeNode* Node, const AnsiString S, void * Ptr, TfcAddMode AddMode);
  134. virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  135. tagTVITEMA __fastcall CreateItem(TfcTreeNode* Node);
  136. int __fastcall GetCount(void);
  137. void __fastcall SetItem(int Index, TfcTreeNode* Value);
  138. void __fastcall SetUpdateState(bool Updating);
  140. public:
  141. __fastcall TfcTreeNodes(TfcCustomTreeView* AOwner);
  142. __fastcall virtual ~TfcTreeNodes(void);
  143. TfcTreeNode* __fastcall AddChildFirst(TfcTreeNode* Node, const AnsiString S);
  144. TfcTreeNode* __fastcall AddChild(TfcTreeNode* Node, const AnsiString S);
  145. TfcTreeNode* __fastcall AddChildObjectFirst(TfcTreeNode* Node, const AnsiString S, void * Ptr);
  146. TfcTreeNode* __fastcall AddChildObject(TfcTreeNode* Node, const AnsiString S, void * Ptr);
  147. TfcTreeNode* __fastcall AddFirst(TfcTreeNode* Node, const AnsiString S);
  148. TfcTreeNode* __fastcall Add(TfcTreeNode* Node, const AnsiString S);
  149. TfcTreeNode* __fastcall AddObjectFirst(TfcTreeNode* Node, const AnsiString S, void * Ptr);
  150. TfcTreeNode* __fastcall AddObject(TfcTreeNode* Node, const AnsiString S, void * Ptr);
  151. virtual void __fastcall Assign(Classes::TPersistent* Source);
  152. void __fastcall BeginUpdate(void);
  153. void __fastcall Clear(void);
  154. void __fastcall Delete(TfcTreeNode* Node);
  155. void __fastcall EndUpdate(void);
  156. TfcTreeNode* __fastcall GetFirstNode(void);
  157. TfcTreeNode* __fastcall GetNode(HTREEITEM ItemId);
  158. TfcTreeNode* __fastcall Insert(TfcTreeNode* Node, const AnsiString S);
  159. TfcTreeNode* __fastcall InsertObject(TfcTreeNode* Node, const AnsiString S, void * Ptr);
  160. TfcTreeNode* __fastcall FindNode(AnsiString SearchText, bool VisibleOnly);
  161. TfcTreeNode* __fastcall FindNodeInfo(AnsiString SearchText, bool VisibleOnly, TwwStoreData StoreDataUsing);
  162. __property int Count = {read=GetCount, nodefault};
  163. __property HWND Handle = {read=GetHandle, nodefault};
  164. __property TfcTreeNode* Item[int Index] = {read=GetNodeFromIndex/*, default*/};
  165. __property TfcCustomTreeView* Owner = {read=FOwner};
  166. };
  169. class PASCALIMPLEMENTATION TfcTreeNode : public Classes::TPersistent 
  170. {
  171. typedef Classes::TPersistent inherited;
  173. private:
  174. bool FMultiSelected;
  175. TfcTreeViewCheckboxType FCheckboxType;
  176. bool FChecked;
  177. TfcTreeNodes* FOwner;
  178. AnsiString FText;
  179. AnsiString FStringData1;
  180. AnsiString FStringData2;
  181. void *FData;
  182. _TREEITEM *FItemId;
  183. int FImageIndex;
  184. int FSelectedIndex;
  185. int FOverlayIndex;
  186. int FStateIndex;
  187. bool FDeleting;
  188. bool FInTree;
  189. bool FGrayed;
  190. void __fastcall SetCheckboxType(TfcTreeViewCheckboxType val);
  191. bool __fastcall CompareCount(int CompareMe);
  192. bool __fastcall DoCanExpand(bool Expand);
  193. void __fastcall DoExpand(bool Expand);
  194. void __fastcall ExpandItem(bool Expand, bool Recurse);
  195. int __fastcall GetAbsoluteIndex(void);
  196. bool __fastcall GetExpanded(void);
  197. int __fastcall GetLevel(void);
  198. TfcTreeNode* __fastcall GetParent(void);
  199. bool __fastcall GetChildren(void);
  200. bool __fastcall GetCut(void);
  201. bool __fastcall GetDropTarget(void);
  202. bool __fastcall GetFocused(void);
  203. int __fastcall GetIndex(void);
  204. TfcTreeNode* __fastcall GetItem(int Index);
  205. bool __fastcall GetSelected(void);
  206. bool __fastcall GetState(TfcNodeState NodeState);
  207. int __fastcall GetCount(void);
  208. TfcCustomTreeView* __fastcall GetTreeView(void);
  209. void __fastcall InternalMove(TfcTreeNode* ParentNode, TfcTreeNode* Node, HTREEITEM HItem, TfcAddMode AddMode);
  210. bool __fastcall IsNodeVisible(void);
  211. void __fastcall SetChildren(bool Value);
  212. void __fastcall SetCut(bool Value);
  213. void __fastcall SetData(void * Value);
  214. void __fastcall SetDropTarget(bool Value);
  215. void __fastcall SetItem(int Index, TfcTreeNode* Value);
  216. void __fastcall SetExpanded(bool Value);
  217. void __fastcall SetFocused(bool Value);
  218. void __fastcall SetImageIndex(int Value);
  219. void __fastcall SetOverlayIndex(int Value);
  220. void __fastcall SetSelectedIndex(int Value);
  221. void __fastcall SetSelected(bool Value);
  222. void __fastcall SetStateIndex(int Value);
  223. void __fastcall SetText(const AnsiString S);
  224. bool __fastcall GetMultiSelected(void);
  225. void __fastcall SetMultiSelected(bool Value);
  226. void __fastcall SetChecked(bool val);
  227. void __fastcall SetGrayed(bool val);
  229. protected:
  230. int ReadDataSize;
  231. virtual void __fastcall Invalidate(void);
  232. virtual int __fastcall GetSizeOfNodeInfo(void);
  233. virtual void __fastcall ReadData(Classes::TStream* Stream, PfcNodeInfo Info);
  234. virtual void __fastcall WriteData(Classes::TStream* Stream, PfcNodeInfo Info);
  236. public:
  237. Variant Patch;
  238. int __fastcall GetStateIndex(void);
  239. bool __fastcall IsRadioGroup(void);
  240. virtual AnsiString __fastcall GetSortText();
  241. __fastcall virtual TfcTreeNode(TfcTreeNodes* AOwner);
  242. __fastcall virtual ~TfcTreeNode(void);
  243. bool __fastcall AlphaSort(void);
  244. virtual void __fastcall Assign(Classes::TPersistent* Source);
  245. void __fastcall Collapse(bool Recurse);
  246. bool __fastcall CustomSort(PFNTVCOMPARE SortProc, int Data);
  247. void __fastcall Delete(void);
  248. void __fastcall DeleteChildren(void);
  249. Types::TRect __fastcall DisplayRect(bool TextOnly);
  250. bool __fastcall EditText(void);
  251. void __fastcall EndEdit(bool Cancel);
  252. void __fastcall Expand(bool Recurse);
  253. TfcTreeNode* __fastcall GetFirstChild(void);
  254. HWND __fastcall GetHandle(void);
  255. TfcTreeNode* __fastcall GetLastChild(void);
  256. TfcTreeNode* __fastcall GetNext(void);
  257. TfcTreeNode* __fastcall GetNextChild(TfcTreeNode* Value);
  258. TfcTreeNode* __fastcall GetNextSibling(void);
  259. TfcTreeNode* __fastcall GetNextVisible(void);
  260. TfcTreeNode* __fastcall GetPrev(void);
  261. TfcTreeNode* __fastcall GetPrevChild(TfcTreeNode* Value);
  262. TfcTreeNode* __fastcall GetPrevSibling(void);
  263. TfcTreeNode* __fastcall GetPrevVisible(void);
  264. bool __fastcall HasAsParent(TfcTreeNode* Value);
  265. int __fastcall IndexOf(TfcTreeNode* Value);
  266. void __fastcall MakeVisible(void);
  267. virtual void __fastcall MoveTo(TfcTreeNode* Destination, TfcNodeAttachMode Mode);
  268. __property int AbsoluteIndex = {read=GetAbsoluteIndex, nodefault};
  269. __property int Count = {read=GetCount, nodefault};
  270. __property bool Cut = {read=GetCut, write=SetCut, nodefault};
  271. __property void * Data = {read=FData, write=SetData};
  272. __property bool Deleting = {read=FDeleting, nodefault};
  273. __property bool Focused = {read=GetFocused, write=SetFocused, nodefault};
  274. __property bool DropTarget = {read=GetDropTarget, write=SetDropTarget, nodefault};
  275. __property bool Selected = {read=GetSelected, write=SetSelected, nodefault};
  276. __property bool Expanded = {read=GetExpanded, write=SetExpanded, nodefault};
  277. __property HWND Handle = {read=GetHandle, nodefault};
  278. __property bool HasChildren = {read=GetChildren, write=SetChildren, nodefault};
  279. __property int ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
  280. __property int Index = {read=GetIndex, nodefault};
  281. __property bool IsVisible = {read=IsNodeVisible, nodefault};
  282. __property TfcTreeNode* Item[int Index] = {read=GetItem, write=SetItem/*, default*/};
  283. __property HTREEITEM ItemId = {read=FItemId};
  284. __property int Level = {read=GetLevel, nodefault};
  285. __property int OverlayIndex = {read=FOverlayIndex, write=SetOverlayIndex, nodefault};
  286. __property TfcTreeNodes* Owner = {read=FOwner};
  287. __property TfcTreeNode* Parent = {read=GetParent};
  288. __property int SelectedIndex = {read=FSelectedIndex, write=SetSelectedIndex, nodefault};
  289. __property int StateIndex = {read=FStateIndex, write=SetStateIndex, nodefault};
  290. __property AnsiString Text = {read=FText, write=SetText};
  291. __property AnsiString StringData = {read=FStringData1, write=FStringData1};
  292. __property AnsiString StringData2 = {read=FStringData2, write=FStringData2};
  293. __property TfcCustomTreeView* TreeView = {read=GetTreeView};
  294. __property bool Checked = {read=FChecked, write=SetChecked, nodefault};
  295. __property bool Grayed = {read=FGrayed, write=SetGrayed, nodefault};
  296. __property TfcTreeViewCheckboxType CheckboxType = {read=FCheckboxType, write=SetCheckboxType, nodefault};
  297. __property bool MultiSelected = {read=GetMultiSelected, write=SetMultiSelected, nodefault};
  298. };
  301. typedef TfcNodeCache *PfcNodeCache;
  303. class DELPHICLASS TfcTVMultiSelectAttributes;
  304. class PASCALIMPLEMENTATION TfcTVMultiSelectAttributes : public Classes::TPersistent 
  305. {
  306. typedef Classes::TPersistent inherited;
  308. private:
  309. bool FEnabled;
  310. bool FAutoUnselect;
  311. int FMultiSelectLevel;
  312. bool FMultiSelectCheckbox;
  313. TfcCustomTreeView* TreeView;
  314. void __fastcall SetEnabled(bool val);
  315. void __fastcall SetMultiSelectLevel(int val);
  316. void __fastcall SetMultiSelectCheckBox(bool val);
  318. public:
  319. __fastcall TfcTVMultiSelectAttributes(Classes::TComponent* Owner);
  320. virtual void __fastcall Assign(Classes::TPersistent* Source);
  322. __published:
  323. __property bool AutoUnselect = {read=FAutoUnselect, write=FAutoUnselect, default=1};
  324. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
  325. __property int MultiSelectLevel = {read=FMultiSelectLevel, write=SetMultiSelectLevel, default=0};
  326. __property bool MultiSelectCheckbox = {read=FMultiSelectCheckbox, write=SetMultiSelectCheckBox, default=1};
  327. public:
  328. #pragma option push -w-inl
  329. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcTVMultiSelectAttributes(void) { }
  330. #pragma option pop
  332. };
  335. #pragma option push -b-
  336. enum TfcHitTest { fchtAbove, fchtBelow, fchtNowhere, fchtOnItem, fchtOnButton, fchtOnIcon, fchtOnIndent, fchtOnLabel, fchtOnRight, fchtOnStateIcon, fchtToLeft, fchtToRight };
  337. #pragma option pop
  339. typedef Set<TfcHitTest, fchtAbove, fchtToRight>  TfcHitTests;
  341. #pragma option push -b-
  342. enum TfcSortType { fcstNone, fcstData, fcstText, fcstBoth };
  343. #pragma option pop
  345. class DELPHICLASS EfcTreeViewError;
  346. class PASCALIMPLEMENTATION EfcTreeViewError : public Sysutils::Exception 
  347. {
  348. typedef Sysutils::Exception inherited;
  350. public:
  351. #pragma option push -w-inl
  352. /* Exception.Create */ inline __fastcall EfcTreeViewError(const AnsiString Msg) : Sysutils::Exception(Msg) { }
  353. #pragma option pop
  354. #pragma option push -w-inl
  355. /* Exception.CreateFmt */ inline __fastcall EfcTreeViewError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  356. #pragma option pop
  357. #pragma option push -w-inl
  358. /* Exception.CreateRes */ inline __fastcall EfcTreeViewError(int Ident)/* overload */ : Sysutils::Exception(Ident) { }
  359. #pragma option pop
  360. #pragma option push -w-inl
  361. /* Exception.CreateResFmt */ inline __fastcall EfcTreeViewError(int Ident, const System::TVarRec * Args, const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
  362. #pragma option pop
  363. #pragma option push -w-inl
  364. /* Exception.CreateHelp */ inline __fastcall EfcTreeViewError(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  365. #pragma option pop
  366. #pragma option push -w-inl
  367. /* Exception.CreateFmtHelp */ inline __fastcall EfcTreeViewError(const AnsiString Msg, const System::TVarRec * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext) { }
  368. #pragma option pop
  369. #pragma option push -w-inl
  370. /* Exception.CreateResHelp */ inline __fastcall EfcTreeViewError(int Ident, int AHelpContext)/* overload */ : Sysutils::Exception(Ident, AHelpContext) { }
  371. #pragma option pop
  372. #pragma option push -w-inl
  373. /* Exception.CreateResFmtHelp */ inline __fastcall EfcTreeViewError(System::PResStringRec ResStringRec, const System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(ResStringRec, Args, Args_Size, AHelpContext) { }
  374. #pragma option pop
  376. public:
  377. #pragma option push -w-inl
  378. /* TObject.Destroy */ inline __fastcall virtual ~EfcTreeViewError(void) { }
  379. #pragma option pop
  381. };
  384. typedef void __fastcall (__closure *TfcTVChangingEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, bool &AllowChange);
  386. typedef void __fastcall (__closure *TfcTVChangedEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node);
  388. typedef void __fastcall (__closure *TfcTVEditingEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, bool &AllowEdit);
  390. typedef void __fastcall (__closure *TfcTVEditedEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, AnsiString &S);
  392. typedef void __fastcall (__closure *TfcTVExpandingEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, bool &AllowExpansion);
  394. typedef void __fastcall (__closure *TfcTVCollapsingEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, bool &AllowCollapse);
  396. typedef void __fastcall (__closure *TfcTVExpandedEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node);
  398. typedef void __fastcall (__closure *TfcTVCompareEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node1, TfcTreeNode* Node2, int Data, int &Compare);
  400. typedef void __fastcall (__closure *TfcTVCustomDrawEvent)(TfcCustomTreeView* TreeView, const Types::TRect &ARect, bool &DefaultDraw);
  402. typedef void __fastcall (__closure *TfcCalcNodeAttributesEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, TfcItemStates State);
  404. #pragma option push -b-
  405. enum TfcItemChangeAction { icaAdd, icaDelete, icaText, icaImageIndex };
  406. #pragma option pop
  408. typedef void __fastcall (__closure *TfcItemChangeEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node, TfcItemChangeAction Action, const Variant &NewValue);
  410. typedef void __fastcall (__closure *TfcToggleCheckboxEvent)(TfcCustomTreeView* TreeView, TfcTreeNode* Node);
  412. typedef TMetaClass*TfcTreeNodeClass;
  414. class PASCALIMPLEMENTATION TfcCustomTreeView : public Controls::TWinControl 
  415. {
  416. typedef Controls::TWinControl inherited;
  418. private:
  419. TfcItemChangeEvent FOnItemChange;
  420. bool FAutoExpand;
  421. Forms::TFormBorderStyle FBorderStyle;
  422. Fccanvas::TfcCanvas* FCanvas;
  423. Fccanvas::TfcCanvas* FPaintCanvas;
  424. bool FCanvasChanged;
  425. void *FDefEditProc;
  426. bool FDragged;
  427. Controls::TDragImageList* FDragImage;
  428. TfcTreeNode* FDragNode;
  429. HWND FEditHandle;
  430. void *FEditInstance;
  431. Imglist::TChangeLink* FImageChangeLink;
  432. Imglist::TCustomImageList* FImages;
  433. TfcTreeNode* FLastDropTarget;
  434. bool FManualNotify;
  435. Classes::TMemoryStream* FMemStream;
  436. TfcTreeNode* FRClickNode;
  437. bool FRightClickSelects;
  438. bool FReadOnly;
  439. int FSaveIndex;
  440. int FSaveIndent;
  441. Classes::TStringList* FSaveItems;
  442. int FSaveTopIndex;
  443. TfcSortType FSortType;
  444. bool FStateChanging;
  445. Imglist::TCustomImageList* FStateImages;
  446. Imglist::TChangeLink* FStateChangeLink;
  447. bool FStreamExpandedNode;
  448. TfcTreeNodes* FTreeNodes;
  449. WideString FWideText;
  450. TfcTVEditingEvent FOnEditing;
  451. TfcTVEditedEvent FOnEdited;
  452. TfcTVExpandedEvent FOnExpanded;
  453. TfcTVExpandingEvent FOnExpanding;
  454. TfcTVExpandedEvent FOnCollapsed;
  455. TfcTVCollapsingEvent FOnCollapsing;
  456. TfcTVChangingEvent FOnChanging;
  457. TfcTVChangedEvent FOnChange;
  458. TfcTVCompareEvent FOnCompare;
  459. TfcTVExpandedEvent FOnDeletion;
  460. TfcTVExpandedEvent FOnGetImageIndex;
  461. TfcTVExpandedEvent FOnGetSelectedIndex;
  462. Graphics::TColor FLineColor;
  463. Graphics::TColor FInactiveFocusColor;
  464. TfcTreeMouseEvent FOnMouseDown;
  465. TfcTreeMouseEvent FOnMouseUp;
  466. TfcTreeMouseEvent FOnDblClick;
  467. TfcTreeMouseMoveEvent FOnMouseMove;
  468. TfcToggleCheckboxEvent FOnToggleCheckbox;
  469. TMetaClass*FNodeClass;
  470. TfcTVMultiSelectAttributes* FMultiSelectAttributes;
  471. TfcCalcNodeAttributesEvent FOnCalcNodeAttributes;
  472. int FBorderWidth;
  473. TfcTVDrawTextEvent FOnDrawText;
  474. TfcTreeViewOptions FOptions;
  475. bool FDisableThemes;
  476. Graphics::TBitmap* FPaintBitmap;
  477. int FIndent;
  478. TfcTreeNode* LastSelectedNode;
  479. TfcTreeNode* MouseNode;
  480. TfcTreeNode* LastMouseMoveNode;
  481. TfcHitTests LastMouseHitTest;
  482. TfcTreeNode* ClickedNode;
  483. bool Down;
  484. TfcTreeNode* EditNode;
  485. TfcTreeNode* BeforeMouseDownNode;
  486. int FStreamVersion;
  487. bool FUsePaintBuffering;
  488. void __fastcall CanvasChanged(System::TObject* Sender);
  489. HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  490. HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  491. HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  492. HIDESBASE MESSAGE void __fastcall CMDrag(Controls::TCMDrag &Message);
  493. MESSAGE void __fastcall CNNotify(Messages::TWMNotify &Message);
  494. HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  495. void __fastcall EditWndProc(Messages::TMessage &Message);
  496. void __fastcall DoDragOver(Controls::TDragObject* Source, int X, int Y, bool CanDrop);
  497. int __fastcall GetChangeDelay(void);
  498. TfcTreeNode* __fastcall GetDropTarget(void);
  499. int __fastcall GetIndent(void);
  500. TfcTreeNode* __fastcall GetNodeFromItem(const tagTVITEMA &Item);
  501. TfcTreeNode* __fastcall GetSelection(void);
  502. TfcTreeNode* __fastcall GetTopItem(void);
  503. void __fastcall ImageListChange(System::TObject* Sender);
  504. void __fastcall SetAutoExpand(bool Value);
  505. void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  506. void __fastcall SetChangeDelay(int Value);
  507. void __fastcall SetDropTarget(TfcTreeNode* Value);
  508. void __fastcall SetImageList(unsigned Value, int Flags);
  509. void __fastcall SetIndent(int Value);
  510. void __fastcall SetImages(Imglist::TCustomImageList* Value);
  511. void __fastcall SetReadOnly(bool Value);
  512. void __fastcall SetSelection(TfcTreeNode* Value);
  513. void __fastcall SetSortType(TfcSortType Value);
  514. void __fastcall SetStateImages(Imglist::TCustomImageList* Value);
  515. void __fastcall SeTfcTreeNodes(TfcTreeNodes* Value);
  516. void __fastcall SetTopItem(TfcTreeNode* Value);
  517. void __fastcall OnChangeTimer(System::TObject* Sender);
  518. HIDESBASE MESSAGE void __fastcall WMLButtonDown(Messages::TWMMouse &Message);
  519. HIDESBASE MESSAGE void __fastcall WMRButtonDown(Messages::TWMMouse &Message);
  520. HIDESBASE MESSAGE void __fastcall WMRButtonUp(Messages::TWMMouse &Message);
  521. HIDESBASE MESSAGE void __fastcall WMLButtonDblClk(Messages::TWMMouse &Message);
  522. HIDESBASE MESSAGE void __fastcall WMNotify(Messages::TWMNotify &Message);
  523. HIDESBASE MESSAGE void __fastcall CMSysColorChange(Messages::TMessage &Message);
  524. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  525. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  526. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TMessage &Message);
  527. HIDESBASE MESSAGE void __fastcall CMDesignHitTest(Messages::TWMMouse &Message);
  528. HIDESBASE MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  529. bool __fastcall ValidMultiSelectLevel(int ALevel);
  530. bool __fastcall CheckboxNeeded(TfcTreeNode* Node);
  531. Types::TPoint __fastcall GetCenterPoint(const Types::TRect &ARect);
  532. void __fastcall SetOptions(TfcTreeViewOptions Value);
  533. void __fastcall SetLineColor(Graphics::TColor Value);
  534. void __fastcall SetInactiveFocusColor(Graphics::TColor Value);
  535. Shortint __fastcall GetItemHeight(void);
  536. void __fastcall SetItemHeight(Shortint Value);
  537. int __fastcall GetScrollTime(void);
  538. void __fastcall SetScrollTime(int Value);
  539. int __fastcall GetMultiSelectListCount(void);
  540. TfcTreeNode* __fastcall GetMultiSelectItem(int Index);
  541. void __fastcall HintTimerEvent(System::TObject* Sender);
  542. Fccanvas::TfcCanvas* __fastcall GetPaintCanvas(void);
  544. protected:
  545. Classes::TList* FMultiSelectList;
  546. bool SkipErase;
  547. bool SkipChangeMessages;
  548. bool InLoading;
  549. Extctrls::TTimer* FChangeTimer;
  550. int DisplayedItems;
  551. bool FMouseInControl;
  552. Controls::THintWindow* HintWindow;
  553. Extctrls::TTimer* HintTimer;
  554. int HintTimerCount;
  555. TfcTreeNode* LastHintNode;
  556. DYNAMIC bool __fastcall CanEdit(TfcTreeNode* Node);
  557. DYNAMIC bool __fastcall CanChange(TfcTreeNode* Node);
  558. DYNAMIC bool __fastcall CanCollapse(TfcTreeNode* Node);
  559. DYNAMIC bool __fastcall CanExpand(TfcTreeNode* Node);
  560. DYNAMIC void __fastcall Change(TfcTreeNode* Node);
  561. DYNAMIC void __fastcall Collapse(TfcTreeNode* Node);
  562. virtual TfcTreeNode* __fastcall CreateNode(void);
  563. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  564. virtual void __fastcall CreateWnd(void);
  565. DYNAMIC void __fastcall Delete(TfcTreeNode* Node);
  566. virtual void __fastcall DestroyWnd(void);
  567. DYNAMIC void __fastcall DoEndDrag(System::TObject* Target, int X, int Y);
  568. DYNAMIC void __fastcall DoStartDrag(Controls::TDragObject* &DragObject);
  569. DYNAMIC void __fastcall Edit(const tagTVITEMA &Item);
  570. DYNAMIC void __fastcall Expand(TfcTreeNode* Node);
  571. virtual Controls::TDragImageList* __fastcall GetDragImages(void);
  572. virtual void __fastcall GetImageIndex(TfcTreeNode* Node);
  573. virtual void __fastcall GetSelectedIndex(TfcTreeNode* Node);
  574. virtual void __fastcall Loaded(void);
  575. DYNAMIC void __fastcall KeyPress(char &Key);
  576. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  577. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  578. virtual void __fastcall SetDragMode(Controls::TDragMode Value);
  579. virtual void __fastcall WndProc(Messages::TMessage &Message);
  580. __property bool AutoExpand = {read=FAutoExpand, write=SetAutoExpand, default=0};
  581. __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  582. __property int ChangeDelay = {read=GetChangeDelay, write=SetChangeDelay, default=0};
  583. __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  584. __property int Indent = {read=GetIndent, write=SetIndent, nodefault};
  585. __property bool ReadOnly = {read=FReadOnly, write=SetReadOnly, default=0};
  586. __property bool RightClickSelects = {read=FRightClickSelects, write=FRightClickSelects, default=0};
  587. __property TfcSortType SortType = {read=FSortType, write=SetSortType, default=0};
  588. __property Imglist::TCustomImageList* StateImages = {read=FStateImages, write=SetStateImages};
  589. __property bool StreamExpandedNode = {read=FStreamExpandedNode, write=FStreamExpandedNode, default=0};
  590. __property TfcTVEditingEvent OnEditing = {read=FOnEditing, write=FOnEditing};
  591. __property TfcTVEditedEvent OnEdited = {read=FOnEdited, write=FOnEdited};
  592. __property TfcTVExpandingEvent OnExpanding = {read=FOnExpanding, write=FOnExpanding};
  593. __property TfcTVExpandedEvent OnExpanded = {read=FOnExpanded, write=FOnExpanded};
  594. __property TfcTVCollapsingEvent OnCollapsing = {read=FOnCollapsing, write=FOnCollapsing};
  595. __property TfcTVExpandedEvent OnCollapsed = {read=FOnCollapsed, write=FOnCollapsed};
  596. __property TfcTVChangingEvent OnChanging = {read=FOnChanging, write=FOnChanging};
  597. __property TfcTVChangedEvent OnChange = {read=FOnChange, write=FOnChange};
  598. __property TfcTVCompareEvent OnCompare = {read=FOnCompare, write=FOnCompare};
  599. __property TfcTVExpandedEvent OnDeletion = {read=FOnDeletion, write=FOnDeletion};
  600. __property TfcTVExpandedEvent OnGetImageIndex = {read=FOnGetImageIndex, write=FOnGetImageIndex};
  601. __property TfcTVExpandedEvent OnGetSelectedIndex = {read=FOnGetSelectedIndex, write=FOnGetSelectedIndex};
  602. virtual void __fastcall MultiSelectNode(TfcTreeNode* Node, bool Select, bool redraw);
  603. virtual bool __fastcall IsVisible(TfcTreeNode* Node, bool PartialOK);
  604. Types::TRect __fastcall ItemRect(TfcTreeNode* Node, bool LabelOnly);
  605. void __fastcall PaintButton(TfcTreeNode* Node, const Types::TPoint &pt, int size);
  606. void __fastcall PaintLines(TfcTreeNode* Node);
  607. void __fastcall PaintImage(TfcTreeNode* Node, TfcItemStates State);
  608. Types::TRect __fastcall LevelRect(TfcTreeNode* ANode);
  609. virtual void __fastcall DoDrawText(TfcCustomTreeView* TreeView, TfcTreeNode* Node, const Types::TRect &ARect, TfcItemStates AItemState, bool &DefaultDrawing);
  610. virtual void __fastcall Compare(TfcTreeNode* Node1, TfcTreeNode* Node2, int lParam, int &Result);
  611. virtual void __fastcall CalcNodeAttributes(TfcTreeNode* Node, TfcItemStates AItemState);
  612. virtual AnsiString __fastcall GetDisplayText(TfcTreeNode* Node);
  613. void __fastcall LoadCanvasDefaults(TfcTreeNode* Node, TfcItemStates AItemState);
  614. virtual bool __fastcall ProcessKeyPress(char Key, Classes::TShiftState shift);
  615. virtual bool __fastcall IsRowSelect(void);
  616. virtual void __fastcall MouseLoop(int X, int Y);
  617. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  618. bool __fastcall UseImages(TfcTreeNode* Node);
  619. bool __fastcall UseStateImages(TfcTreeNode* Node);
  620. virtual void __fastcall BeginPainting(void);
  621. virtual void __fastcall EndPainting(void);
  622. virtual void __fastcall BeginItemPainting(TfcTreeNode* Node, const Types::TRect &ARect, TfcItemStates AItemState);
  623. virtual void __fastcall EndItemPainting(TfcTreeNode* Node, const Types::TRect &ARect, TfcItemStates AItemState);
  624. virtual void __fastcall PaintItem(TfcTreeNode* Node);
  625. void __fastcall ClearStateImageIndexes(void);
  626. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  627. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  628. virtual void __fastcall DoToggleCheckbox(TfcTreeNode* Node);
  629. virtual void __fastcall FreeHintWindow(void);
  630. virtual Controls::THintWindow* __fastcall CreateHintWindow(TfcTreeNode* Node);
  631. void __fastcall UnselectAllNodes(TfcTreeNode* IgnoreNode);
  632. void __fastcall InvalidateNoErase(void);
  633. __property Shortint ItemHeight = {read=GetItemHeight, write=SetItemHeight, nodefault};
  634. __property TfcCalcNodeAttributesEvent OnCalcNodeAttributes = {read=FOnCalcNodeAttributes, write=FOnCalcNodeAttributes};
  635. __property int ScrollTime = {read=GetScrollTime, write=SetScrollTime, nodefault};
  636. __property TMetaClass* NodeClass = {read=FNodeClass, write=FNodeClass};
  638. public:
  639. Variant Patch;
  640. void __fastcall ResetStateImages(void);
  641. __property int StreamVersion = {read=FStreamVersion, nodefault};
  642. TfcTreeNode* __fastcall GetFirstSibling(TfcTreeNode* Node);
  643. void __fastcall InvalidateNode(TfcTreeNode* Node);
  644. bool __fastcall MultiSelectCheckboxNeeded(TfcTreeNode* Node);
  645. void __fastcall UnselectAll(void);
  646. __fastcall virtual TfcCustomTreeView(Classes::TComponent* AOwner);
  647. __fastcall virtual ~TfcCustomTreeView(void);
  648. bool __fastcall AlphaSort(void);
  649. bool __fastcall CustomSort(PFNTVCOMPARE SortProc, int Data);
  650. void __fastcall FullCollapse(void);
  651. void __fastcall FullExpand(void);
  652. TfcHitTests __fastcall GetHitTestInfoAt(int X, int Y);
  653. TfcTreeNode* __fastcall GetNodeAt(int X, int Y);
  654. bool __fastcall IsEditing(void);
  655. void __fastcall LoadFromFile(const AnsiString FileName);
  656. void __fastcall LoadFromStream(Classes::TStream* Stream);
  657. void __fastcall SaveToFile(const AnsiString FileName);
  658. void __fastcall SaveToStream(Classes::TStream* Stream);
  659. __property Fccanvas::TfcCanvas* Canvas = {read=GetPaintCanvas};
  660. __property TfcTreeNode* DropTarget = {read=GetDropTarget, write=SetDropTarget};
  661. __property TfcTreeNode* Selected = {read=GetSelection, write=SetSelection};
  662. __property TfcTreeNode* TopItem = {read=GetTopItem, write=SetTopItem};
  663. __property TfcTreeNode* RightClickNode = {read=FRClickNode};
  664. __property TfcTreeViewOptions Options = {read=FOptions, write=SetOptions, default=1257};
  665. __property TfcTreeNodes* Items = {read=FTreeNodes, write=SeTfcTreeNodes};
  666. __property TfcTVMultiSelectAttributes* MultiSelectAttributes = {read=FMultiSelectAttributes, write=FMultiSelectAttributes};
  667. __property TfcTVDrawTextEvent OnDrawText = {read=FOnDrawText, write=FOnDrawText};
  668. __property TfcItemChangeEvent OnItemChange = {read=FOnItemChange, write=FOnItemChange};
  669. __property TfcTreeNode* MultiSelectList[int Index] = {read=GetMultiSelectItem};
  670. __property int MultiSelectListCount = {read=GetMultiSelectListCount, nodefault};
  671. __property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, default=-2147483632};
  672. __property Graphics::TColor InactiveFocusColor = {read=FInactiveFocusColor, write=SetInactiveFocusColor, default=-2147483633};
  673. __property TfcTreeMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
  674. __property TfcTreeMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
  675. __property TfcTreeMouseEvent OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
  676. __property TfcTreeMouseEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
  677. __property TfcToggleCheckboxEvent OnToggleCheckbox = {read=FOnToggleCheckbox, write=FOnToggleCheckbox};
  678. __property bool UsePaintBuffering = {read=FUsePaintBuffering, write=FUsePaintBuffering, default=0};
  679. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  680. public:
  681. #pragma option push -w-inl
  682. /* TWinControl.CreateParented */ inline __fastcall TfcCustomTreeView(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
  683. #pragma option pop
  685. };
  688. class DELPHICLASS TfcTreeView;
  689. class PASCALIMPLEMENTATION TfcTreeView : public TfcCustomTreeView 
  690. {
  691. typedef TfcCustomTreeView inherited;
  693. __published:
  694. __property DisableThemes ;
  695. __property Align ;
  696. __property Anchors ;
  697. __property AutoExpand ;
  698. __property BiDiMode ;
  699. __property BorderStyle ;
  700. __property ChangeDelay ;
  701. __property Color ;
  702. __property LineColor ;
  703. __property InactiveFocusColor ;
  704. __property Ctl3D ;
  705. __property Constraints ;
  706. __property DragKind ;
  707. __property DragCursor ;
  708. __property DragMode ;
  709. __property Enabled ;
  710. __property Font ;
  711. __property Images ;
  712. __property Indent ;
  713. __property MultiSelectAttributes ;
  714. __property Options ;
  715. __property Items ;
  716. __property ParentBiDiMode ;
  717. __property ParentColor ;
  718. __property ParentCtl3D ;
  719. __property ParentFont ;
  720. __property ParentShowHint ;
  721. __property UsePaintBuffering ;
  722. __property PopupMenu ;
  723. __property ReadOnly ;
  724. __property RightClickSelects ;
  725. __property ShowHint ;
  726. __property SortType ;
  727. __property StateImages ;
  728. __property StreamExpandedNode ;
  729. __property TabOrder ;
  730. __property TabStop ;
  731. __property Visible ;
  732. __property OnChange ;
  733. __property OnChanging ;
  734. __property OnClick ;
  735. __property OnCollapsing ;
  736. __property OnCollapsed ;
  737. __property OnCompare ;
  738. __property OnDblClick ;
  739. __property OnDeletion ;
  740. __property OnDragDrop ;
  741. __property OnDragOver ;
  742. __property OnEdited ;
  743. __property OnEditing ;
  744. __property OnEndDock ;
  745. __property OnEndDrag ;
  746. __property OnEnter ;
  747. __property OnExit ;
  748. __property OnExpanding ;
  749. __property OnExpanded ;
  750. __property OnGetImageIndex ;
  751. __property OnGetSelectedIndex ;
  752. __property OnKeyDown ;
  753. __property OnKeyPress ;
  754. __property OnKeyUp ;
  755. __property OnMouseDown ;
  756. __property OnMouseMove ;
  757. __property OnMouseUp ;
  758. __property OnToggleCheckbox ;
  759. __property OnStartDock ;
  760. __property OnStartDrag ;
  761. __property OnCalcNodeAttributes ;
  762. __property OnDrawText ;
  763. public:
  764. #pragma option push -w-inl
  765. /* TfcCustomTreeView.Create */ inline __fastcall virtual TfcTreeView(Classes::TComponent* AOwner) : TfcCustomTreeView(AOwner) { }
  766. #pragma option pop
  767. #pragma option push -w-inl
  768. /* TfcCustomTreeView.Destroy */ inline __fastcall virtual ~TfcTreeView(void) { }
  769. #pragma option pop
  771. public:
  772. #pragma option push -w-inl
  773. /* TWinControl.CreateParented */ inline __fastcall TfcTreeView(HWND ParentWindow) : TfcCustomTreeView(ParentWindow) { }
  774. #pragma option pop
  776. };
  779. //-- var, const, procedure ---------------------------------------------------
  780. extern PACKAGE void __fastcall fcTreeViewError(const AnsiString Msg);
  782. } /* namespace Fctreeview */
  783. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  784. using namespace Fctreeview;
  785. #endif
  786. #pragma option pop // -w-
  787. #pragma option pop // -Vx
  789. #pragma delphiheader end.
  790. //-- end unit ----------------------------------------------------------------
  791. #endif // fcTreeView