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

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

Delphi控件源码

开发平台：

Delphi

fcdbtreeview.hpp：源码内容
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  5. // (DO NOT EDIT: machine generated header) 'fcdbtreeview.pas' rev: 5.00
  7. #ifndef fcdbtreeviewHPP
  8. #define fcdbtreeviewHPP
  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 <fcTreeHeader.hpp> // Pascal unit
  16. #include <fcChangeLink.hpp> // Pascal unit
  17. #include <fcImager.hpp> // Pascal unit
  18. #include <fcButton.hpp> // Pascal unit
  19. #include <fcShapeBtn.hpp> // Pascal unit
  20. #include <fcScrollBar.hpp> // Pascal unit
  21. #include <Buttons.hpp> // Pascal unit
  22. #include <fcDBCommon.hpp> // Pascal unit
  23. #include <fcCanvas.hpp> // Pascal unit
  24. #include <fcCommon.hpp> // Pascal unit
  25. #include <ExtCtrls.hpp> // Pascal unit
  26. #include <StdCtrls.hpp> // Pascal unit
  27. #include <CommCtrl.hpp> // Pascal unit
  28. #include <DB.hpp> // Pascal unit
  29. #include <ComCtrls.hpp> // Pascal unit
  30. #include <Dialogs.hpp> // Pascal unit
  31. #include <Forms.hpp> // Pascal unit
  32. #include <Controls.hpp> // Pascal unit
  33. #include <Graphics.hpp> // Pascal unit
  34. #include <Classes.hpp> // Pascal unit
  35. #include <SysUtils.hpp> // Pascal unit
  36. #include <Messages.hpp> // Pascal unit
  37. #include <Windows.hpp> // Pascal unit
  38. #include <SysInit.hpp> // Pascal unit
  39. #include <System.hpp> // Pascal unit
  41. //-- user supplied -----------------------------------------------------------
  43. namespace Fcdbtreeview
  44. {
  45. //-- type declarations -------------------------------------------------------
  46. #pragma option push -b-
  47. enum TfcTreeHitTest { fchtdOnButton, fchtdOnStateIcon, fchtdOnImageIcon, fchtdOnText, fchtdOnActiveNode };
  48. #pragma option pop
  50. typedef Set<TfcTreeHitTest, fchtdOnButton, fchtdOnActiveNode>  TfcTreeHitTests;
  52. class DELPHICLASS TfcTreeDataLink;
  53. class DELPHICLASS TfcDBCustomTreeView;
  54. #pragma option push -b-
  55. enum TfcDBTreeViewOption { dtvoKeysScrollLevelOnly, dtvoAutoExpandOnDSScroll, dtvoExpandButtons3D, dtvoHideSelection, dtvoRowSelect, dtvoShowNodeHint, dtvoShowButtons, dtvoShowLines, dtvoShowRoot, dtvoShowHorzScrollBar, dtvoShowVertScrollBar, dtvoHotTracking, dtvoFlatCheckboxes };
  56. #pragma option pop
  58. typedef Set<TfcDBTreeViewOption, dtvoKeysScrollLevelOnly, dtvoFlatCheckboxes>  TfcDBTreeViewOptions;
  60. class DELPHICLASS TfcDBTreeNode;
  61. typedef void __fastcall (__closure *TfcDBTreeEvent)(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node);
  63. typedef void __fastcall (__closure *TfcDBTreeSectionEvent)(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node, Fctreeheader::TfcTreeHeaderSection* Section, AnsiString &DisplayText);
  65. typedef void __fastcall (__closure *TfcDBTreeDrawSectionEvent)(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node, Fctreeheader::TfcTreeHeaderSection* Section, const Types::TRect &ARect, AnsiString s, bool &DefaultDrawing);
  67. class DELPHICLASS TfcDBMultiSelectAttributes;
  68. class PASCALIMPLEMENTATION TfcDBMultiSelectAttributes : public Classes::TPersistent 
  69. {
  70. typedef Classes::TPersistent inherited;
  72. private:
  73. bool FEnabled;
  74. bool FAutoUnselect;
  75. int FMultiSelectLevel;
  76. bool FMultiSelectCheckbox;
  77. TfcDBCustomTreeView* TreeView;
  78. void __fastcall SetEnabled(bool val);
  79. void __fastcall SetMultiSelectLevel(int val);
  80. void __fastcall SetMultiSelectCheckBox(bool val);
  82. public:
  83. __fastcall TfcDBMultiSelectAttributes(Classes::TComponent* Owner);
  84. virtual void __fastcall Assign(Classes::TPersistent* Source);
  86. __published:
  87. __property bool AutoUnselect = {read=FAutoUnselect, write=FAutoUnselect, default=0};
  88. __property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
  89. __property int MultiSelectLevel = {read=FMultiSelectLevel, write=SetMultiSelectLevel, default=0};
  90. __property bool MultiSelectCheckbox = {read=FMultiSelectCheckbox, write=SetMultiSelectCheckBox, default=1};
  91. public:
  92. #pragma option push -w-inl
  93. /* TPersistent.Destroy */ inline __fastcall virtual ~TfcDBMultiSelectAttributes(void) { }
  94. #pragma option pop
  96. };
  99. typedef void __fastcall (__closure *TfcDBTreeMouseEvent)(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  101. typedef void __fastcall (__closure *TfcDBTreeMouseMoveEvent)(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node, Classes::TShiftState Shift, int X, int Y);
  103. typedef void __fastcall (__closure *TfcDBTreeDrawTextEvent)(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node, const Types::TRect &ARect, bool &DefaultDrawing);
  105. class DELPHICLASS TfcMultiSelectItem;
  106. class PASCALIMPLEMENTATION TfcDBCustomTreeView : public Controls::TWinControl 
  107. {
  108. typedef Controls::TWinControl inherited;
  110. private:
  111. TfcDBTreeViewOptions FOptions;
  112. Classes::TStrings* FDisplayFields;
  113. Forms::TFormBorderStyle FBorderStyle;
  114. TfcDBTreeEvent FOnCalcNodeAttributes;
  115. TfcDBTreeSectionEvent FOnCalcSectionAttributes;
  116. TfcDBTreeDrawSectionEvent FOnDrawSection;
  117. TfcDBTreeEvent FOnChange;
  118. TfcDBTreeEvent FOnUserExpand;
  119. TfcDBTreeEvent FOnUserCollapse;
  120. TfcDBMultiSelectAttributes* FMultiSelectAttributes;
  121. TfcDBTreeMouseEvent FOnMouseDown;
  122. TfcDBTreeMouseEvent FOnMouseUp;
  123. TfcDBTreeMouseEvent FOnDblClick;
  124. TfcDBTreeMouseMoveEvent FOnMouseMove;
  125. int FLevelIndent;
  126. AnsiString FDataSourcesMiddle;
  127. Fcimager::TfcCustomImager* FImager;
  128. Classes::TList* FMultiSelectList;
  129. Imglist::TCustomImageList* FImages;
  130. Imglist::TCustomImageList* FStateImages;
  131. Graphics::TColor FLineColor;
  132. Graphics::TColor FInactiveFocusColor;
  133. bool FScrollWithinLevel;
  134. bool FDisableThemes;
  135. Classes::TList* FDataLinks;
  136. Controls::TControlCanvas* FCanvas;
  137. Fccanvas::TfcCanvas* FPaintCanvas;
  138. Graphics::TBitmap* FPaintBitmap;
  139. bool SkipErase;
  140. bool SkipReload;
  141. TfcTreeDataLink* FFirstDataLink;
  142. TfcTreeDataLink* FLastDataLink;
  143. Db::TDataSet* FActiveDataSet;
  144. Db::TDataSet* FLastVisibleDataset;
  145. bool ActiveDataSetChanged;
  146. int ActiveNodeIndex;
  147. Extctrls::TTimer* HintTimer;
  148. int HintTimerCount;
  149. int LastHintRow;
  150. Classes::TList* Nodes;
  151. int RowHeight;
  152. int FixedOffset;
  153. int CacheSize;
  154. TfcDBTreeNode* FActiveNode;
  155. int MaxTextWidth;
  156. bool ResetScroll;
  157. bool Down;
  158. int MouseRow;
  159. int PaintingRow;
  160. TfcDBTreeDrawTextEvent FOnDrawText;
  161. Controls::TCursor SaveCursor;
  162. bool CheckMaxWidth;
  163. bool CheckMaxWidthGrow;
  164. bool InPaint;
  165. bool InComputeHorzWidthOnly;
  166. Fcchangelink::TfcChangeLink* FChangeLink;
  167. bool NodesCleared;
  168. bool HaveBadLink;
  169. bool FHideUpDownButtons;
  170. Fctreeheader::TfcTreeHeader* FHeader;
  171. void __fastcall SetHideUpDownButtons(bool val);
  172. Db::TDataSource* __fastcall GetDataSource(void);
  173. void __fastcall SetDataSource(Db::TDataSource* Value);
  174. Db::TDataSource* __fastcall GetLastDataSource(void);
  175. void __fastcall SetLastDataSource(Db::TDataSource* Value);
  176. void __fastcall SetDataSources(AnsiString Value);
  177. HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  178. MESSAGE void __fastcall WMGetDlgCode(Messages::TWMNoParams &Message);
  179. HIDESBASE MESSAGE void __fastcall CMExit(Messages::TMessage &Message);
  180. HIDESBASE MESSAGE void __fastcall WMSetFocus(Messages::TWMSetFocus &Message);
  181. HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  182. HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  183. HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TWMNCHitTest &Message);
  184. HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  185. void __fastcall TreeDownClick(System::TObject* Sender);
  186. void __fastcall TreeUpClick(System::TObject* Sender);
  187. TfcTreeDataLink* __fastcall GetParentDataLink(Db::TDataSet* Dataset);
  188. TfcTreeDataLink* __fastcall GetChildDataLink(Db::TDataSet* Dataset);
  189. void __fastcall MouseToRow(int X, int Y, int &Row);
  190. bool __fastcall RowToNode(int Row, TfcDBTreeNode* &Node);
  191. bool __fastcall NodeToRow(TfcDBTreeNode* Node, int &Row);
  192. void __fastcall SetBorderStyle(Forms::TBorderStyle Value);
  193. Types::TPoint __fastcall GetCenterPoint(const Types::TRect &ARect);
  194. void __fastcall ResetStartOffsets(Db::TDataSet* ActiveDataSet);
  195. int __fastcall GetStartOffset(void);
  196. void __fastcall SetStartOffset(Db::TDataSet* ActiveDataSet, int val);
  197. void __fastcall SetImages(Imglist::TCustomImageList* Value);
  198. void __fastcall SetStateImages(Imglist::TCustomImageList* Value);
  199. bool __fastcall UseStateImages(TfcDBTreeNode* Node);
  200. TfcMultiSelectItem* __fastcall GetMultiSelectItem(int Index);
  201. void __fastcall HintTimerEvent(System::TObject* Sender);
  202. int __fastcall GetMultiSelectListCount(void);
  203. int __fastcall GetStateImageWidth(void);
  204. void __fastcall ScrollRight(void);
  205. void __fastcall ScrollLeft(void);
  206. void __fastcall SetLineColor(Graphics::TColor Value);
  207. void __fastcall SetInactiveFocusColor(Graphics::TColor Value);
  208. void __fastcall SetOptions(TfcDBTreeViewOptions Value);
  209. int __fastcall GetStartX(TfcDBTreeNode* Node);
  210. void __fastcall SetDisplayFields(Classes::TStrings* Value);
  211. void __fastcall UpdateScrollBarPosition(void);
  212. void __fastcall SetLevelIndent(int val);
  213. void __fastcall SetImager(Fcimager::TfcCustomImager* Value);
  214. void __fastcall ImagerChange(System::TObject* Sender);
  215. void __fastcall SetHeader(Fctreeheader::TfcTreeHeader* Value);
  217. protected:
  218. Controls::THintWindow* HintWindow;
  219. void *LastActiveBookmark;
  220. void *FirstBookmark;
  221. int ScrollSize;
  222. int HotTrackRow;
  223. bool FMouseInControl;
  224. bool SkipFreeNodes;
  225. Classes::TList* OldNodes;
  226. Fcscrollbar::TfcScrollBar* HorzScrollBar;
  227. Fcscrollbar::TfcScrollBar* VertScrollBar;
  228. Fcshapebtn::TfcShapeBtn* UpTreeButton;
  229. Fcshapebtn::TfcShapeBtn* DownTreeButton;
  230. int StartOffsets[51];
  231. void *RootDataSetBookmark;
  232. DYNAMIC bool __fastcall DoMouseWheelDown(Classes::TShiftState Shift, const Types::TPoint &MousePos);
  233. DYNAMIC bool __fastcall DoMouseWheelUp(Classes::TShiftState Shift, const Types::TPoint &MousePos);
  234. AnsiString __fastcall GetNodeText(AnsiString DisplayFieldLine, Db::TDataSet* DataSet, Db::TField* &Field);
  235. virtual int __fastcall ComputeHeaderWidth(void);
  236. virtual bool __fastcall IsRootDataSetMoved(void);
  237. virtual void __fastcall DrawColumnText(TfcDBTreeNode* Node, const Types::TRect &ARect);
  238. virtual void __fastcall CreateWnd(void);
  239. virtual void __fastcall UpdateScrollBar(void);
  240. virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  241. virtual void __fastcall PaintButton(TfcDBTreeNode* Node, const Types::TPoint &pt, int Size, bool Expanded);
  242. virtual void __fastcall PaintLines(TfcDBTreeNode* Node);
  243. virtual void __fastcall PaintImage(TfcDBTreeNode* Node);
  244. virtual void __fastcall DataChanged(Db::TDataSet* DataSet);
  245. virtual void __fastcall Scroll(Db::TDataSet* DataSet, int Distance);
  246. virtual void __fastcall LinkActive(Db::TDataSet* DataSet, bool Value);
  247. DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
  248. virtual void __fastcall DoCalcNodeAttributes(TfcDBTreeNode* Node);
  249. virtual void __fastcall DoCalcSectionAttributes(TfcDBTreeNode* Node, Fctreeheader::TfcTreeHeaderSection* Section, AnsiString &DisplayText);
  250. virtual void __fastcall DoDrawSection(TfcDBTreeNode* Node, Fctreeheader::TfcTreeHeaderSection* Section, const Types::TRect &ARect, AnsiString s, bool &DoDefault);
  251. virtual bool __fastcall InMasterChanging(Db::TDataSet* DataSet);
  252. virtual void __fastcall RefreshDataLinks(Db::TDataSource* FirstDS, Db::TDataSource* LastDS);
  253. virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
  254. DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  255. DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
  256. DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
  257. Types::TRect __fastcall LevelRect(TfcDBTreeNode* Node);
  258. Types::TRect __fastcall TextRect(TfcDBTreeNode* Node, int Row);
  259. bool __fastcall MultiSelectCheckboxNeeded(TfcDBTreeNode* Node);
  260. bool __fastcall ValidMultiSelectLevel(int ALevel);
  261. virtual int __fastcall FindCurrentMultiSelectIndex(Db::TDataSet* DataSet);
  262. virtual void __fastcall Loaded(void);
  263. virtual void __fastcall FreeHintWindow(void);
  264. virtual Controls::THintWindow* __fastcall CreateHintWindow(void);
  265. virtual void __fastcall Change(TfcDBTreeNode* FSelected);
  266. void __fastcall SaveIfFirstRecordBookmark(Db::TDataSet* DataSet);
  267. void __fastcall FreeFirstBookmark(void);
  268. bool __fastcall HaveValidDataLinks(void);
  269. bool __fastcall IsChildDataSetOfActive(Db::TDataSet* DataSet);
  270. bool __fastcall IsMasterDataSetOfActive(Db::TDataSet* DataSet);
  271. void __fastcall ToggleMultiSelection(bool RequireControlKey, Classes::TShiftState Shift);
  272. virtual void __fastcall MouseLoop(int X, int Y);
  273. bool __fastcall UpdateDataLinkToActive(TfcDBTreeNode* Node);
  274. virtual void __fastcall PriorRow(bool WithinLevel);
  275. virtual void __fastcall NextRow(bool WithinLevel);
  276. virtual void __fastcall PriorPage(bool WithinLevel);
  277. virtual void __fastcall NextPage(bool WithinLevel);
  278. virtual Types::TRect __fastcall GetClientRect();
  279. virtual void __fastcall VScroll(int ScrollCode, int Position);
  280. virtual void __fastcall HScroll(int ScrollCode, int Position);
  281. virtual Fcshapebtn::TfcShapeBtn* __fastcall CreateUpTreeButton(void);
  282. virtual Fcshapebtn::TfcShapeBtn* __fastcall CreateDownTreeButton(void);
  283. virtual void __fastcall DoDrawText(TfcDBCustomTreeView* TreeView, TfcDBTreeNode* Node, const Types::TRect &ARect, bool &DefaultDrawing);
  284. virtual void __fastcall WndProc(Messages::TMessage &Message);
  285. void __fastcall FreeOldNodes(void);
  286. virtual void __fastcall DoUserExpand(TfcDBTreeNode* Node);
  287. virtual void __fastcall DoUserCollapse(TfcDBTreeNode* Node);
  288. virtual void __fastcall SetActiveDataSet(Db::TDataSet* DataSet);
  289. virtual void __fastcall SetLastVisibleDataSet(Db::TDataSet* DataSet);
  290. TfcTreeDataLink* __fastcall GetDataLink(Db::TDataSet* Dataset);
  291. int __fastcall GetDataLinkIndex(Db::TDataSet* Dataset);
  293. public:
  294. Variant Patch;
  295. virtual void __fastcall LayoutChanged(void);
  296. void __fastcall FreeLastActiveBookmark(void);
  297. void __fastcall FreeRootBookmark(void);
  298. __fastcall virtual TfcDBCustomTreeView(Classes::TComponent* AOwner);
  299. __fastcall virtual ~TfcDBCustomTreeView(void);
  300. void __fastcall MoveTo(TfcDBTreeNode* Node);
  301. TfcTreeHitTests __fastcall GetHitTestInfoAt(int X, int Y);
  302. virtual void __fastcall UnselectAll(void);
  303. virtual void __fastcall SelectAll(Db::TDataSet* ADataSet);
  304. virtual void __fastcall SelectRecord(void);
  305. virtual void __fastcall UnselectRecord(void);
  306. bool __fastcall IsSelectedRecord(void);
  307. void __fastcall InvalidateNode(TfcDBTreeNode* Node);
  308. void __fastcall InvalidateRow(int Row);
  309. virtual void __fastcall InvalidateClient(void);
  310. virtual void __fastcall Expand(TfcDBTreeNode* Node);
  311. virtual void __fastcall Collapse(TfcDBTreeNode* Node);
  312. void __fastcall MakeActiveDataSet(Db::TDataSet* DataSet, bool Collapse);
  313. TfcDBTreeNode* __fastcall GetNodeAt(int X, int Y);
  314. void __fastcall SortMultiSelectList(void);
  315. __property TfcDBTreeNode* ActiveNode = {read=FActiveNode};
  316. __property Fccanvas::TfcCanvas* Canvas = {read=FPaintCanvas};
  317. __property TfcMultiSelectItem* MultiSelectList[int Index] = {read=GetMultiSelectItem};
  318. __property int MultiSelectListCount = {read=GetMultiSelectListCount, nodefault};
  319. __property Db::TDataSet* ActiveDataSet = {read=FActiveDataSet, write=SetActiveDataSet};
  320. __property Db::TDataSet* LastVisibleDataSet = {read=FLastVisibleDataset, write=SetLastVisibleDataSet};
  321. __property int LevelIndent = {read=FLevelIndent, write=SetLevelIndent, nodefault};
  322. __property Graphics::TColor LineColor = {read=FLineColor, write=SetLineColor, default=-2147483632};
  323. __property Graphics::TColor InactiveFocusColor = {read=FInactiveFocusColor, write=SetInactiveFocusColor, default=-2147483633};
  324. __property ParentColor ;
  325. __property Forms::TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, nodefault};
  326. __property Db::TDataSource* DataSourceFirst = {read=GetDataSource, write=SetDataSource};
  327. __property Db::TDataSource* DataSourceLast = {read=GetLastDataSource, write=SetLastDataSource};
  328. __property AnsiString DataSources = {read=FDataSourcesMiddle, write=SetDataSources};
  329. __property TfcDBTreeViewOptions Options = {read=FOptions, write=SetOptions, default=2018};
  330. __property Classes::TStrings* DisplayFields = {read=FDisplayFields, write=SetDisplayFields};
  331. __property Imglist::TCustomImageList* Images = {read=FImages, write=SetImages};
  332. __property Fcimager::TfcCustomImager* Imager = {read=FImager, write=SetImager};
  333. __property Imglist::TCustomImageList* StateImages = {read=FStateImages, write=SetStateImages};
  334. __property TfcDBMultiSelectAttributes* MultiSelectAttributes = {read=FMultiSelectAttributes, write=FMultiSelectAttributes};
  335. __property TfcDBTreeEvent OnCalcNodeAttributes = {read=FOnCalcNodeAttributes, write=FOnCalcNodeAttributes};
  336. __property TfcDBTreeSectionEvent OnCalcSectionAttributes = {read=FOnCalcSectionAttributes, write=FOnCalcSectionAttributes};
  337. __property TfcDBTreeDrawSectionEvent OnDrawSection = {read=FOnDrawSection, write=FOnDrawSection};
  338. __property TfcDBTreeEvent OnChange = {read=FOnChange, write=FOnChange};
  339. __property TfcDBTreeEvent OnUserCollapse = {read=FOnUserCollapse, write=FOnUserCollapse};
  340. __property TfcDBTreeEvent OnUserExpand = {read=FOnUserExpand, write=FOnUserExpand};
  341. __property TfcDBTreeMouseEvent OnDblClick = {read=FOnDblClick, write=FOnDblClick};
  342. __property TfcDBTreeMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
  343. __property TfcDBTreeMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
  344. __property TfcDBTreeMouseEvent OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
  345. __property TfcDBTreeDrawTextEvent OnDrawText = {read=FOnDrawText, write=FOnDrawText};
  346. __property Fctreeheader::TfcTreeHeader* Header = {read=FHeader, write=SetHeader};
  347. __property bool HideUpDownButtons = {read=FHideUpDownButtons, write=SetHideUpDownButtons, default=0};
  348. __property bool DisableThemes = {read=FDisableThemes, write=FDisableThemes, default=0};
  349. public:
  350. #pragma option push -w-inl
  351. /* TWinControl.CreateParented */ inline __fastcall TfcDBCustomTreeView(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
  352. #pragma option pop
  354. };
  357. class PASCALIMPLEMENTATION TfcTreeDataLink : public Db::TDataLink 
  358. {
  359. typedef Db::TDataLink inherited;
  361. private:
  362. TfcDBCustomTreeView* FTree;
  364. protected:
  365. virtual void __fastcall DataSetChanged(void);
  366. virtual void __fastcall DataSetScrolled(int Distance);
  367. virtual void __fastcall ActiveChanged(void);
  368. virtual void __fastcall RecordChanged(Db::TField* Field);
  370. public:
  371. __fastcall TfcTreeDataLink(TfcDBCustomTreeView* ATree);
  372. __fastcall virtual ~TfcTreeDataLink(void);
  373. };
  376. class PASCALIMPLEMENTATION TfcMultiSelectItem : public System::TObject 
  377. {
  378. typedef System::TObject inherited;
  380. public:
  381. void *Bookmark;
  382. Db::TDataSet* DataSet;
  383. public:
  384. #pragma option push -w-inl
  385. /* TObject.Create */ inline __fastcall TfcMultiSelectItem(void) : System::TObject() { }
  386. #pragma option pop
  387. #pragma option push -w-inl
  388. /* TObject.Destroy */ inline __fastcall virtual ~TfcMultiSelectItem(void) { }
  389. #pragma option pop
  391. };
  394. class PASCALIMPLEMENTATION TfcDBTreeNode : public System::TObject 
  395. {
  396. typedef System::TObject inherited;
  398. protected:
  399. bool HasPrevSibling;
  400. bool HasNextSibling;
  402. public:
  403. int ActiveRecord;
  404. TfcTreeDataLink* DataLink;
  405. AnsiString Text;
  406. int Level;
  407. Db::TDataSet* DataSet;
  408. Db::TField* Field;
  409. bool Expanded;
  410. bool HasChildren;
  411. TfcDBTreeNode* Parent;
  412. int ImageIndex;
  413. int StateIndex;
  414. bool Selected;
  415. bool Hot;
  416. bool MultiSelected;
  417. Variant __fastcall GetFieldValue(AnsiString FieldName);
  418. public:
  419. #pragma option push -w-inl
  420. /* TObject.Create */ inline __fastcall TfcDBTreeNode(void) : System::TObject() { }
  421. #pragma option pop
  422. #pragma option push -w-inl
  423. /* TObject.Destroy */ inline __fastcall virtual ~TfcDBTreeNode(void) { }
  424. #pragma option pop
  426. };
  429. class DELPHICLASS TfcDBTreeView;
  430. class PASCALIMPLEMENTATION TfcDBTreeView : public TfcDBCustomTreeView 
  431. {
  432. typedef TfcDBCustomTreeView inherited;
  434. __published:
  435. __property DisableThemes ;
  436. __property Align ;
  437. __property BorderStyle ;
  438. __property Color ;
  439. __property DragCursor ;
  440. __property DragMode ;
  441. __property Enabled ;
  442. __property Font ;
  443. __property ParentColor ;
  444. __property ParentFont ;
  445. __property ParentShowHint ;
  446. __property TabStop ;
  447. __property TabOrder ;
  448. __property Visible ;
  449. __property Header ;
  450. __property Anchors ;
  451. __property BiDiMode ;
  452. __property Constraints ;
  453. __property ParentBiDiMode ;
  454. __property DataSourceFirst ;
  455. __property DataSourceLast ;
  456. __property DataSources ;
  457. __property DisplayFields ;
  458. __property Imager ;
  459. __property InactiveFocusColor ;
  460. __property LineColor ;
  461. __property Options ;
  462. __property OnStartDock ;
  463. __property OnEndDock ;
  464. __property LevelIndent ;
  465. __property Images ;
  466. __property StateImages ;
  467. __property MultiSelectAttributes ;
  468. __property PopupMenu ;
  469. __property HideUpDownButtons ;
  470. __property OnCalcNodeAttributes ;
  471. __property OnCalcSectionAttributes ;
  472. __property OnDrawSection ;
  473. __property OnChange ;
  474. __property OnUserCollapse ;
  475. __property OnUserExpand ;
  476. __property OnEnter ;
  477. __property OnExit ;
  478. __property OnKeyDown ;
  479. __property OnKeyUp ;
  480. __property OnKeyPress ;
  481. __property OnDblClick ;
  482. __property OnMouseDown ;
  483. __property OnMouseMove ;
  484. __property OnMouseUp ;
  485. __property OnDragDrop ;
  486. __property OnDragOver ;
  487. __property OnEndDrag ;
  488. __property OnStartDrag ;
  489. __property OnDrawText ;
  490. public:
  491. #pragma option push -w-inl
  492. /* TfcDBCustomTreeView.Create */ inline __fastcall virtual TfcDBTreeView(Classes::TComponent* AOwner) : TfcDBCustomTreeView(AOwner) { }
  493. #pragma option pop
  494. #pragma option push -w-inl
  495. /* TfcDBCustomTreeView.Destroy */ inline __fastcall virtual ~TfcDBTreeView(void) { }
  496. #pragma option pop
  498. public:
  499. #pragma option push -w-inl
  500. /* TWinControl.CreateParented */ inline __fastcall TfcDBTreeView(HWND ParentWindow) : TfcDBCustomTreeView(ParentWindow) { }
  501. #pragma option pop
  503. };
  506. //-- var, const, procedure ---------------------------------------------------
  508. } /* namespace Fcdbtreeview */
  509. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  510. using namespace Fcdbtreeview;
  511. #endif
  512. #pragma option pop // -w-
  513. #pragma option pop // -Vx
  515. #pragma delphiheader end.
  516. //-- end unit ----------------------------------------------------------------
  517. #endif // fcdbtreeview