//---------------------------------------------------------------------------
#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;
}
//------------------------
没有合适的资源?快使用搜索试试~ 我知道了~
1st Class Studio v17.0.1.0 for XE10 Full Source Retail
共917个文件
bmp:327个
pas:86个
dfm:70个
5星 · 超过95%的资源 需积分: 9 76 下载量 111 浏览量
2016-01-23
22:10:52
上传
评论 4
收藏 20.86MB RAR 举报
温馨提示
1st Class Studio v17.0.1.0 for XE10 Full Source Retail
资源推荐
资源详情
资源评论
收起资源包目录
1st Class Studio v17.0.1.0 for XE10 Full Source Retail (917个子文件)
Tile8.#$# 17KB
Demo1stClass.dproj.2007 6KB
cool.avi 35KB
cool.avi 35KB
pmap.BCE 12KB
Demo1stClass.bdsproj 32KB
Demo1stClass.bdsproj 8KB
ImageForm.bmp 465KB
MainForm3.BMP 285KB
Mainform2.BMP 272KB
CoolformLong.BMP 223KB
w2wtext4.BMP 210KB
WoodForm.BMP 171KB
CoolformBlack.BMP 157KB
CoolForm.bmp 157KB
CoolFormGray.bmp 157KB
PaperForm2.BMP 130KB
PaperForm3.BMP 130KB
PaperForm.BMP 123KB
CorkForm.BMP 122KB
MainForm1.BMP 118KB
Starform1.BMP 111KB
CoolFormShort.BMP 111KB
w2wtext3.BMP 95KB
w2wtext2.BMP 95KB
worldmap.BMP 93KB
wrinkleform.BMP 82KB
wrinkleform.BMP 82KB
PlainForm.BMP 82KB
linenform.BMP 82KB
mosaicform.BMP 82KB
parchmentform.bmp 82KB
parchform3.BMP 82KB
PlainForm.BMP 82KB
linenform.BMP 82KB
mosaicform.BMP 82KB
parchmentform.bmp 82KB
tabformleft.BMP 73KB
tabformright.BMP 70KB
woodfloorgray.BMP 65KB
woodfloor2.BMP 65KB
woodfloor.BMP 65KB
woodfloorgray2.BMP 65KB
WoodBackground.BMP 62KB
Box.BMP 50KB
Party.bmp 49KB
imager1.bmp 49KB
partytemp.BMP 49KB
waterbackground.BMP 41KB
wrinkle.BMP 37KB
starcaptionbar.BMP 36KB
w2wtext5.BMP 36KB
w2wtext6.BMP 36KB
Wood1.BMP 32KB
mosaic.BMP 27KB
Popcorn.BMP 26KB
tacks.BMP 22KB
w2wlogo.BMP 21KB
contra.BMP 19KB
sonoma.BMP 18KB
Tile14.BMP 17KB
Tile12.BMP 17KB
Tile2.BMP 17KB
Stone.BMP 17KB
Tile4.BMP 17KB
Tile5.BMP 17KB
Tile9.BMP 17KB
Bricks.BMP 17KB
Tile3.BMP 17KB
Tile7.BMP 17KB
Tile6.BMP 17KB
Tile16.BMP 17KB
Tile15.BMP 17KB
Tile11.BMP 17KB
Tile13.BMP 17KB
Bricks3.BMP 17KB
Tile1.BMP 17KB
Tile10.BMP 17KB
TilePattern.BMP 17KB
1stTrophy.BMP 16KB
w2wtext.BMP 16KB
Asia.BMP 15KB
WoodButtonOval.BMP 14KB
CorkButton.BMP 13KB
PlaidGray.BMP 12KB
Plaid.BMP 12KB
santaclara.BMP 12KB
WoodCaptionBar.BMP 12KB
NorthAmerica.BMP 12KB
Roundup.bmp 11KB
Rounddn.bmp 11KB
balloon.BMP 10KB
TrueSilver.bmp 10KB
TileLucky.BMP 10KB
texture1.BMP 9KB
napa.BMP 9KB
WoodHouseButton.BMP 9KB
sonoma16.BMP 9KB
alameda.BMP 9KB
parchment.BMP 8KB
共 917 条
- 1
- 2
- 3
- 4
- 5
- 6
- 10
topud
- 粉丝: 5
- 资源: 32
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
最新资源
- apk.tw_LineLite_v8a_v.2.17.1_sign.apk
- Elasticsearch实战:构建高效搜索系统的秘诀.zip
- HTML+CSS+JS网页设计:从入门到精通.zip
- 数据库课程设计:从理论到实践的全面指南.zip
- Python闭包:深入理解与应用场景解析.zip
- Win64OpenSSL-3-3-0.exe
- 课高分程设计-基于C++实现的民航飞行与地图简易管理系统-南京航空航天大学
- 航天器遥测数据故障检测系统python源码+文档说明+数据库(课程设计)
- 北京航空航天大学操作系统课设+ppt+实验报告
- 基于Vue+Echarts实现风力发电机中传感器的数据展示监控可视化系统+源代码+文档说明(高分课程设计)
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
- 1
- 2
前往页