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

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

Delphi控件源码

开发平台：

Delphi

TreeDemo.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "TreeDemo.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcDemoRichEdit"
  9. #pragma link "fcStatusBar"
  10. #pragma link "fcTreeView"
  11. #pragma resource "*.dfm"
  12. TTreeViewDemoForm *TreeViewDemoForm;
  13. //---------------------------------------------------------------------------
  14. __fastcall TTreeViewDemoForm::TTreeViewDemoForm(TComponent* Owner)
  15.         : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TTreeViewDemoForm::FormShow(TObject *Sender)
  20. {
  21.   fcTreeView1->FullExpand();
  22.   fcTreeView2->FullExpand();
  23. }
  24. //---------------------------------------------------------------------------
  25. void __fastcall TTreeViewDemoForm::fcTreeView1CalcNodeAttributes(
  26.       TfcCustomTreeView *TreeView, TfcTreeNode *Node, TfcItemStates State)
  27. {
  28.   if (State.Contains(fcisHot))
  29.     TreeView->Canvas->Font->Style = TreeView->Canvas->Font->Style << fsUnderline;
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TTreeViewDemoForm::CheckBox1Click(TObject *Sender)
  33. {
  34.   if (fcTreeView1->Options.Contains(tvoExpandButtons3D))
  35.     fcTreeView1->Options = fcTreeView1->Options >> tvoExpandButtons3D;
  36.   else fcTreeView1->Options = fcTreeView1->Options << tvoExpandButtons3D;
  37. }
  38. //---------------------------------------------------------------------------
  39. void __fastcall TTreeViewDemoForm::CheckBox2Click(TObject *Sender)
  40. {
  41.   if (((TCheckBox *)Sender)->Checked)
  42.     fcTreeView1->Options = fcTreeView1->Options << tvoRowSelect;
  43.   else fcTreeView1->Options = fcTreeView1->Options >> tvoRowSelect;
  44. }
  45. //---------------------------------------------------------------------------
  46. void __fastcall TTreeViewDemoForm::fcTreeView2MouseMove(TfcCustomTreeView *TreeView,
  47.       TfcTreeNode *Node, TShiftState Shift, int X, int Y)
  48. {
  49.   if (Node != NULL && Node->StringData != "" &&
  50.       TreeView->GetHitTestInfoAt(X, Y).Contains(fchtOnItem))
  51.     fcStatusBar1->Panels->Items[0]->Text = Node->StringData;
  52.   else fcStatusBar1->Panels->Items[0]->Text = "";
  53. }
  54. //---------------------------------------------------------------------------
  55. void __fastcall TTreeViewDemoForm::Button1Click(TObject *Sender)
  56. {
  57.   // Reapply filter by refreshing query locally
  58.   Query1->UpdateCursorPos();
  59.   Query1->Resync(TResyncMode() << rmCenter);
  60. }
  61. //---------------------------------------------------------------------------
  62. void __fastcall TTreeViewDemoForm::fcTreeView3ToggleCheckbox(
  63.       TfcCustomTreeView *TreeView, TfcTreeNode *Node)
  64. {
  65.   if (Node->Level == 1 && Node->Checked)
  66.     Node->Parent->Checked = true;
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TTreeViewDemoForm::Query1FilterRecord(TDataSet *DataSet, bool &Accept)
  70. {
  71.   // TreeView handle not available i.e. destroying
  72.   if (!fcTreeView3->HandleAllocated()) return;
  73.   Accept = false;
  75.   bool CountryMatch = true;
  76.   bool AmountOrderedMatch = true;
  77.   bool AmountOwedMatch = true;
  79.   TfcTreeNode* curNode = fcTreeView3->Items->GetFirstNode();
  80.   TfcTreeNode* ChildNode = NULL;
  82.   int AmountOwed = 0, AmountOrdered = 0;
  84.   do {
  85.     if (curNode->StringData == "Country" && curNode->Checked) {
  86.       CountryMatch = false;
  88.       // Search checkboxes for country to see if any countries match current record
  89.       ChildNode = curNode->GetFirstChild();
  91.       do {
  92.         if (ChildNode->Checked) {
  93.           if (DataSet->FieldByName("Country")->AsString == ChildNode->Text) {
  94.             CountryMatch = true;
  95.             break;
  96.           }
  97.         }
  98.         ChildNode = ChildNode->GetNextSibling();
  99.       } while (ChildNode != NULL);
  100.     } else if (curNode->StringData == "Amount Ordered" && curNode->Checked) {
  101.       // Check AmountOrdered to amount matches radio group selected in treeview
  102.       AmountOrderedMatch = false;
  103.       ChildNode = curNode->GetFirstChild();
  104.       do {
  105.         if (ChildNode->Checked) {
  106.           AmountOrdered = DataSet->FieldByName("AmountOrdered")->AsFloat;
  107.           TField* MyField = DataSet->FieldByName("AmountOrdered");
  108.           if ((ChildNode->StringData == "" || AmountOrdered >= StrToInt(ChildNode->StringData)) &&
  109.               (ChildNode->StringData2 == "" || AmountOrdered < StrToInt(ChildNode->StringData2)))
  110.             AmountOrderedMatch = true;
  111.           break;
  112.         }
  113.         ChildNode = ChildNode->GetNextSibling();
  114.       } while (ChildNode != NULL);
  115.     } else if (curNode->StringData == "Amount Owed" && curNode->Checked) {
  116.       // Check AmountOrdered to amount matches radio group selected in treeview
  117.       AmountOwedMatch = false;
  118.       ChildNode = curNode->GetFirstChild();
  119.       do {
  120.         if (ChildNode->Checked) {
  121.           AmountOwed = DataSet->FieldByName("AmountOrdered")->AsFloat -
  122.             DataSet->FieldByName("AmountPaid")->AsFloat;
  123.           if ((ChildNode->StringData == "" || AmountOwed > StrToInt(ChildNode->StringData)) &&
  124.               (ChildNode->StringData2 == "" || AmountOwed <= StrToInt(ChildNode->StringData2)))
  125.             AmountOwedMatch = true;
  126.           break;
  127.         }
  128.         ChildNode = ChildNode->GetNextSibling();
  129.       } while (ChildNode != NULL);
  130.     }
  131.     curNode = curNode->GetNextSibling();
  132.   } while (curNode != NULL);
  134.   if (CountryMatch && AmountOrderedMatch && AmountOwedMatch) Accept = true;
  135. }
  136. //---------------------------------------------------------------------------