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

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

Delphi控件源码

开发平台：

Delphi

buttongroupdemo.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "buttongroupdemo.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcButton"
  9. #pragma link "fcButtonGroup"
  10. #pragma link "fcClearPanel"
  11. #pragma link "fcColorCombo"
  12. #pragma link "fcCombo"
  13. #pragma link "fcDemoRichEdit"
  14. #pragma link "fcImager"
  15. #pragma link "fcImgBtn"
  16. #pragma link "fcLabel"
  17. #pragma link "fcShapeBtn"
  18. #pragma link "fcTreeCombo"
  19. #pragma link "fctreecombo"
  20. #pragma resource "*.dfm"
  21. TButtonGroupDemoForm *ButtonGroupDemoForm;
  22. //---------------------------------------------------------------------------
  23. __fastcall TButtonGroupDemoForm::TButtonGroupDemoForm(TComponent* Owner)
  24.         : TForm(Owner)
  25. {
  26. }
  27. //---------------------------------------------------------------------------
  28. void __fastcall TButtonGroupDemoForm::SlantOval1MouseEnter(TObject *Sender)
  29. {
  30.   if (!((TfcImageBtn *)Sender)->Down)
  31.      ((TfcImageBtn *)Sender)->Color = HotTrackColorCombo->SelectedColor;
  32. }
  33. //---------------------------------------------------------------------------
  35. void __fastcall TButtonGroupDemoForm::SlantOval1MouseLeave(TObject *Sender)
  36. {
  37.   if (!((TfcImageBtn *)Sender)->Down)
  38.      ((TfcImageBtn *)Sender)->Color = UpColorCombo->SelectedColor;
  39. }
  40. //---------------------------------------------------------------------------
  42. void __fastcall TButtonGroupDemoForm::HotTrackBtnGroupChange(
  43.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  44.       TfcButtonGroupItem *Selected)
  45. {
  46.   //Restore Old Selected Color
  47.   if ((OldSelected != NULL) && (OldSelected->Button != NULL))
  48.      OldSelected->Button->Color = UpColorCombo->SelectedColor;
  50.   //Set New Down Color
  51.   if (DownColorCombo->SelectedColor != clNullColor)
  52.      Selected->Button->Color = DownColorCombo->SelectedColor;
  53. }
  54. //---------------------------------------------------------------------------
  56. void __fastcall TButtonGroupDemoForm::DownColorComboChange(TObject *Sender)
  57. {
  58.   if (HotTrackBtnGroup->Selected != NULL)
  59.      HotTrackBtnGroup->Selected->Button->Color =
  60.         ((TfcColorCombo *)Sender)->SelectedColor;
  61. }
  62. //---------------------------------------------------------------------------
  64. void __fastcall TButtonGroupDemoForm::FontColorComboChange(TObject *Sender)
  65. {
  66.   for (int i= 0;i<=HotTrackBtnGroup->ButtonItems->Count-1;i++)
  67.      HotTrackBtnGroup->ButtonItems->Items[i]->Button->Font->Color =
  68.         ((TfcColorCombo *)Sender)->SelectedColor;
  69. }
  70. //---------------------------------------------------------------------------
  72. void __fastcall TButtonGroupDemoForm::ShapeComboChange(TObject *Sender)
  73. {
  74.   for (int i= 0;i<=ShapeBtnGroup1->ButtonItems->Count-1;i++)
  75.     switch (((TfcTreeCombo *)Sender)->TreeView->Selected->Index) {
  76.      case 0:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsArrow; break;
  77.      case 1:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsDiamond; break;
  78.      case 2:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsEllipse; break;
  79.      case 3:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsRect; break;
  80.      case 4:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsRoundRect; break;
  81.      case 5:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsStar; break;
  82.      case 6:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsTriangle;
  83.     }
  84. }
  85. //---------------------------------------------------------------------------
  87. void __fastcall TButtonGroupDemoForm::OrientationComboChange(TObject *Sender)
  88. {
  89.   if (((TfcTreeCombo *)Sender)->TreeView->Selected==NULL) return;
  91.   for (int i= 0;i<=ShapeBtnGroup1->ButtonItems->Count-1;i++)
  92.     switch (((TfcTreeCombo *)Sender)->TreeView->Selected->Index) {
  93.       case 0:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soRight; break;
  94.       case 1:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soUp; break;
  95.       case 2:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soLeft; break;
  96.       case 3:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soDown;
  97.     }
  98. }
  99. //---------------------------------------------------------------------------
  101. void __fastcall TButtonGroupDemoForm::RadioGroup1Click(TObject *Sender)
  102. {
  103.   for (int i=0;i<=ShapeBtnGroup1->ButtonItems->Count-1;i++)
  104.       ((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Down = False;
  106.   switch (((TRadioGroup *)Sender)->ItemIndex) {
  107.   case 0: ShapeBtnGroup1->ClickStyle = bcsRadioGroup;
  108.           ShapeBtnGroup1->AutoBold = true;
  109.           break;
  110.   case 1: ShapeBtnGroup1->ClickStyle = bcsCheckList;
  111.           ShapeBtnGroup1->AutoBold = false;
  112.           break;
  113.   default: ShapeBtnGroup1->ClickStyle = bcsClick;
  114.            ShapeBtnGroup1->AutoBold = false;
  115.   }
  116. }
  117. //---------------------------------------------------------------------------
  119. void __fastcall TButtonGroupDemoForm::CheckBox1Click(TObject *Sender)
  120. {
  121.   if (((TCheckBox *)Sender)->Checked) {
  122.      OvalImageBtnGroup->Transparent = True;
  123.      CheckBoxEditBtnGroup->Transparent = True;
  124.   }
  125.   else {
  126.      OvalImageBtnGroup->Transparent = False;
  127.      CheckBoxEditBtnGroup->Transparent = False;
  128.   }
  129. }
  130. //---------------------------------------------------------------------------
  132. void __fastcall TButtonGroupDemoForm::CheckBox2Click(TObject *Sender)
  133. {
  134.   if (((TCheckBox *)Sender)->Checked) {
  135.       VerticalShapeBtnGroup2->AutoBold = True;
  136.   }
  137.   else VerticalShapeBtnGroup2->AutoBold = False;
  138. }
  139. //---------------------------------------------------------------------------
  141. void __fastcall TButtonGroupDemoForm::RadioGroup2Click(TObject *Sender)
  142. {
  143.   for (int i=0;i<=VerticalShapeBtnGroup2->ButtonItems->Count-1;i++)
  144.       ((TfcShapeBtn *)(VerticalShapeBtnGroup2->ButtonItems->Items[i]->Button))->Down = False;
  146.   switch (((TRadioGroup *)Sender)->ItemIndex) {
  147.   case 0: VerticalShapeBtnGroup2->ClickStyle = bcsRadioGroup;
  148.           CheckBox2->Checked = True;
  149.           CheckBox2->Enabled = True;
  150.           break;
  151.   case 1: VerticalShapeBtnGroup2->ClickStyle = bcsCheckList;
  152.           CheckBox2->Checked = False;
  153.           CheckBox2->Enabled = False;
  154.           break;
  155.   default:
  156.      CheckBox2->Checked = False;
  157.      CheckBox2->Enabled = False;
  158.      VerticalShapeBtnGroup2->ClickStyle = bcsClick;
  159.   }
  160. }
  161. //---------------------------------------------------------------------------
  163. void __fastcall TButtonGroupDemoForm::UpColorComboChange(TObject *Sender)
  164. {
  165.   for (int i= 0;i<=HotTrackBtnGroup->ButtonItems->Count-1;i++)
  166.      if (!HotTrackBtnGroup->ButtonItems->Items[i]->Selected)
  167.         ((TfcImageBtn*)(HotTrackBtnGroup->ButtonItems->Items[i]->Button))->Color =
  168.           ((TfcColorCombo *)Sender)->SelectedColor;
  169. }
  170. //---------------------------------------------------------------------------
  172. void __fastcall TButtonGroupDemoForm::HorizontalImageBtnGroupChange(
  173.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  174.       TfcButtonGroupItem *Selected)
  175. {
  176.   if ((OldSelected != NULL) && (OldSelected != NULL))
  177.      OldSelected->Button->Font->Color = clWhite;
  178.   Selected->Button->Font->Color = clBlack;
  179. }
  180. //---------------------------------------------------------------------------
  182. void __fastcall TButtonGroupDemoForm::OvalSlantBtnGroup2Change(
  183.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  184.       TfcButtonGroupItem *Selected)
  185. {
  186.   if ((OldSelected != NULL) && (OldSelected != NULL))
  187.      OldSelected->Button->Color = clNone;
  188.   Selected->Button->Color = clYellow;
  189. }
  190. //---------------------------------------------------------------------------
  192. void __fastcall TButtonGroupDemoForm::FormShow(TObject *Sender)
  193. {
  194.    ShapeCombo->Text = "RoundRect";
  195.    OrientationCombo->Text = "Right";
  197.    if ((GetDeviceCaps(Canvas->Handle, BITSPIXEL) *
  198.         GetDeviceCaps(Canvas->Handle, PLANES)) <= 8) {
  199.      fcImager1->Visible = False;
  200.      fcImager2->Visible = False;
  201.    }
  203.    PageControl1->ActivePage = TabSheet1;
  204. }
  205. //---------------------------------------------------------------------------