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

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

Delphi控件源码

开发平台：

Delphi

TreeCombos.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "TreeCombos.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcCombo"
  9. #pragma link "fcDemoRichEdit"
  10. #pragma link "fcFontCombo"
  11. #pragma link "fcTreeCombo"
  12. #pragma link "fctreecombo"
  13. #pragma resource "*.dfm"
  14. TTreeComboDemoForm *TreeComboDemoForm;
  15. //---------------------------------------------------------------------------
  16. __fastcall TTreeComboDemoForm::TTreeComboDemoForm(TComponent* Owner)
  17.         : TForm(Owner)
  18. {
  19. }
  20. //---------------------------------------------------------------------------
  22. void __fastcall TTreeComboDemoForm::PageControl1Change(TObject *Sender)
  23. {
  24.   if (PageControl1->ActivePage == TabSheet1) {
  25.      TreeCombo1->SetFocus();
  26.   } else fcFontCombo1->SetFocus();
  27. }
  28. //---------------------------------------------------------------------------
  30. void __fastcall TTreeComboDemoForm::FormShow(TObject *Sender)
  31. {
  32.  PageControl1Change(PageControl1);
  33.  TreeCombo1->Text= "HandShake";
  34.  TreeCombo1->SelectAll();
  35.  TreeCombo2->Text= "Satellite";
  37. }
  38. //---------------------------------------------------------------------------
  39. void __fastcall TTreeComboDemoForm::CheckListBoxClickCheck(TObject *Sender)
  40. {
  41.   if (CheckListBox->Checked[4]) {ActiveCombo->TreeOptions << tvoRowSelect;}
  42.   else ActiveCombo->TreeOptions >> tvoRowSelect;
  44.   if (CheckListBox->Checked[2]) {ActiveCombo->TreeOptions << tvoShowButtons;}
  45.   else ActiveCombo->TreeOptions >> tvoShowButtons;
  47.   if (CheckListBox->Checked[0]) {ActiveCombo->TreeOptions << tvoShowLines;}
  48.   else ActiveCombo->TreeOptions >> tvoShowLines;
  50.   if (CheckListBox->Checked[1]) {ActiveCombo->TreeOptions << tvoShowRoot;}
  51.   else ActiveCombo->TreeOptions >> tvoShowRoot;
  53.   if (CheckListBox->Checked[3]) {ActiveCombo->Options << icoExpanded;}
  54.   else ActiveCombo->Options >> icoExpanded;
  56.   if (CheckListBox->Checked[5]) {ActiveCombo->Options << icoEndNodesOnly;}
  57.   else ActiveCombo->Options >> icoEndNodesOnly;
  59.   ActiveCombo->ShowMatchText = CheckListBox->Checked[6];
  61.   if (CheckListBox->Checked[7]) {ActiveCombo->Style = Fccombo::csDropDownList;}
  62.   else ActiveCombo->Style = Fccombo::csDropDown;
  63. }
  64. //---------------------------------------------------------------------------
  65. void __fastcall TTreeComboDemoForm::ComboEnter(TObject *Sender)
  66. {
  67.   ActiveCombo = (TfcCustomTreeCombo *)Sender;
  68.   CheckListBox->Checked[0] = (ActiveCombo->TreeOptions.Contains(tvoShowLines));
  69.   CheckListBox->Checked[1] = (ActiveCombo->TreeOptions.Contains(tvoShowRoot));
  70.   CheckListBox->Checked[2] = (ActiveCombo->TreeOptions.Contains(tvoShowButtons));
  71.   CheckListBox->Checked[3] = (ActiveCombo->Options.Contains(icoExpanded));
  72.   CheckListBox->Checked[4] = (ActiveCombo->TreeOptions.Contains(tvoRowSelect));
  73.   CheckListBox->Checked[5] = (ActiveCombo->Options.Contains(icoEndNodesOnly));
  74.   CheckListBox->Checked[6] = ActiveCombo->ShowMatchText;
  75.   CheckListBox->Checked[7] = (ActiveCombo->Style == Fccombo::csDropDownList);
  76. }
  77. //---------------------------------------------------------------------------