1stClass Studio 2013 for Delphi XE5 Full Source

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "buttongroupdemo.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "vcl.fcButton" #pragma link "vcl.fcButtonGroup" #pragma link "vcl.fcClearPanel" #pragma link "vcl.fcColorCombo" #pragma link "vcl.fcCombo" #pragma link "vcl.fcDemoRichEdit" #pragma link "vcl.fcImager" #pragma link "vcl.fcImgBtn" #pragma link "vcl.fcLabel" #pragma link "vcl.fcShapeBtn" #pragma link "vcl.fcTreeCombo" #pragma link "vcl.fctreecombo" #pragma link "vcl.fcpanel" #pragma resource "*.dfm" TButtonGroupDemoForm *ButtonGroupDemoForm; //--------------------------------------------------------------------------- __fastcall TButtonGroupDemoForm::TButtonGroupDemoForm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::SlantOval1MouseEnter(TObject *Sender) { if (!((TfcImageBtn *)Sender)->Down) ((TfcImageBtn *)Sender)->Color = HotTrackColorCombo->SelectedColor; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::SlantOval1MouseLeave(TObject *Sender) { if (!((TfcImageBtn *)Sender)->Down) ((TfcImageBtn *)Sender)->Color = UpColorCombo->SelectedColor; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::HotTrackBtnGroupChange( TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected, TfcButtonGroupItem *Selected) { //Restore Old Selected Color if ((OldSelected != NULL) && (OldSelected->Button != NULL)) OldSelected->Button->Color = UpColorCombo->SelectedColor; //Set New Down Color if (DownColorCombo->SelectedColor != clNullColor) Selected->Button->Color = DownColorCombo->SelectedColor; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::DownColorComboChange(TObject *Sender) { if (HotTrackBtnGroup->Selected != NULL) HotTrackBtnGroup->Selected->Button->Color = ((TfcColorCombo *)Sender)->SelectedColor; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::FontColorComboChange(TObject *Sender) { for (int i= 0;i<=HotTrackBtnGroup->ButtonItems->Count-1;i++) HotTrackBtnGroup->ButtonItems->Items[i]->Button->Font->Color = ((TfcColorCombo *)Sender)->SelectedColor; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::ShapeComboChange(TObject *Sender) { for (int i= 0;i<=ShapeBtnGroup1->ButtonItems->Count-1;i++) switch (((TfcTreeCombo *)Sender)->TreeView->Selected->Index) { case 0:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsArrow; break; case 1:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsDiamond; break; case 2:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsEllipse; break; case 3:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsRect; break; case 4:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsRoundRect; break; case 5:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsStar; break; case 6:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Shape = bsTriangle; } } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::OrientationComboChange(TObject *Sender) { if (((TfcTreeCombo *)Sender)->TreeView->Selected==NULL) return; for (int i= 0;i<=ShapeBtnGroup1->ButtonItems->Count-1;i++) switch (((TfcTreeCombo *)Sender)->TreeView->Selected->Index) { case 0:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soRight; break; case 1:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soUp; break; case 2:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = soLeft; break; case 3:((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Orientation = Fcshapebtn::soDown; //fcshapebtn.soDown; } } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::RadioGroup1Click(TObject *Sender) { for (int i=0;i<=ShapeBtnGroup1->ButtonItems->Count-1;i++) ((TfcShapeBtn *)(ShapeBtnGroup1->ButtonItems->Items[i]->Button))->Down = False; switch (((TRadioGroup *)Sender)->ItemIndex) { case 0: ShapeBtnGroup1->ClickStyle = bcsRadioGroup; ShapeBtnGroup1->AutoBold = true; break; case 1: ShapeBtnGroup1->ClickStyle = bcsCheckList; ShapeBtnGroup1->AutoBold = false; break; default: ShapeBtnGroup1->ClickStyle = bcsClick; ShapeBtnGroup1->AutoBold = false; } } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::CheckBox1Click(TObject *Sender) { if (((TCheckBox *)Sender)->Checked) { OvalImageBtnGroup->Transparent = True; CheckBoxEditBtnGroup->Transparent = True; } else { OvalImageBtnGroup->Transparent = False; CheckBoxEditBtnGroup->Transparent = False; } } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::CheckBox2Click(TObject *Sender) { if (((TCheckBox *)Sender)->Checked) { VerticalShapeBtnGroup2->AutoBold = True; } else VerticalShapeBtnGroup2->AutoBold = False; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::RadioGroup2Click(TObject *Sender) { for (int i=0;i<=VerticalShapeBtnGroup2->ButtonItems->Count-1;i++) ((TfcShapeBtn *)(VerticalShapeBtnGroup2->ButtonItems->Items[i]->Button))->Down = False; switch (((TRadioGroup *)Sender)->ItemIndex) { case 0: VerticalShapeBtnGroup2->ClickStyle = bcsRadioGroup; CheckBox2->Checked = True; CheckBox2->Enabled = True; break; case 1: VerticalShapeBtnGroup2->ClickStyle = bcsCheckList; CheckBox2->Checked = False; CheckBox2->Enabled = False; break; default: CheckBox2->Checked = False; CheckBox2->Enabled = False; VerticalShapeBtnGroup2->ClickStyle = bcsClick; } } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::UpColorComboChange(TObject *Sender) { for (int i= 0;i<=HotTrackBtnGroup->ButtonItems->Count-1;i++) if (!HotTrackBtnGroup->ButtonItems->Items[i]->Selected) ((TfcImageBtn*)(HotTrackBtnGroup->ButtonItems->Items[i]->Button))->Color = ((TfcColorCombo *)Sender)->SelectedColor; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::HorizontalImageBtnGroupChange( TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected, TfcButtonGroupItem *Selected) { if ((OldSelected != NULL) && (OldSelected != NULL)) OldSelected->Button->Font->Color = clWhite; Selected->Button->Font->Color = clBlack; } //--------------------------------------------------------------------------- void __fastcall TButtonGroupDemoForm::OvalSlantBtnGroup2Change( TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected, TfcButtonGroupItem *Selected) { if ((OldSelected != NULL) && (OldSelected != NULL)) OldSelected->Button->Color = clNone; Selected->Button->Color = clYellow; } //------------------------