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

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

Delphi控件源码

开发平台：

Delphi

imagebuttonu.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <stdio.h>
  4. #pragma hdrstop
  6. #include "imagebuttonu.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "fcButton"
  10. #pragma link "fcButtonGroup"
  11. #pragma link "fcClearPanel"
  12. #pragma link "fcColorCombo"
  13. #pragma link "fcCombo"
  14. #pragma link "fcDemoRichEdit"
  15. #pragma link "fcImgBtn"
  16. #pragma link "fcLabel"
  17. #pragma link "fcTreeCombo"
  18. #pragma resource "*.dfm"
  19. TImageBtnDemoForm *ImageBtnDemoForm;
  20. //---------------------------------------------------------------------------
  21. __fastcall TImageBtnDemoForm::TImageBtnDemoForm(TComponent* Owner)
  22.         : TForm(Owner)
  23. {
  24. }
  25. //---------------------------------------------------------------------------
  26. void __fastcall TImageBtnDemoForm::LightSwitch1Click(TObject *Sender)
  27. {
  28.  led4->Down = ((TfcImageBtn *)Sender)->Down;
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TImageBtnDemoForm::TackButtonClick(TObject *Sender)
  32. {
  33.   Char Temp[20];
  35.   if (((TfcImageBtn *)Sender)->Down == True){
  36.      sprintf(Temp,"Tackrn(In)");
  37.   } else sprintf(Temp,"Tackrn(Out)");
  39.   tacklabel2->Caption = Temp;
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TImageBtnDemoForm::NorthAmericaClick(TObject *Sender)
  43. {
  44.  CountryLabel->Caption = ((TfcImageBtn *)Sender)->Caption;
  45. }
  46. //---------------------------------------------------------------------------
  47. void __fastcall TImageBtnDemoForm::FormShow(TObject *Sender)
  48. {
  49.   fcImageCombo1->Text = "DitherBlend";
  50. }
  51. //---------------------------------------------------------------------------
  52. void __fastcall TImageBtnDemoForm::fcColorCombo1Change(TObject *Sender)
  53. {
  54.    puz1->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  55.    puz2->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  56.    puz3->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  57.    puz4->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  58.    puz5->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  59. }
  60. //---------------------------------------------------------------------------
  61. void __fastcall TImageBtnDemoForm::fcImageCombo1Change(TObject *Sender)
  62. {
  63.    if (fcImageCombo1->TreeView->Selected==NULL) return;
  65.    switch (fcImageCombo1->TreeView->Selected->Index) {
  66.    case 0: puz1->DitherStyle = dsFill;
  67.            puz2->DitherStyle = dsFill;
  68.            puz3->DitherStyle = dsFill;
  69.            puz4->DitherStyle = dsFill;
  70.            puz5->DitherStyle = dsFill;
  71.            break;
  72.    case 1: puz1->DitherStyle = dsDither;
  73.            puz2->DitherStyle = dsDither;
  74.            puz3->DitherStyle = dsDither;
  75.            puz4->DitherStyle = dsDither;
  76.            puz5->DitherStyle = dsDither;
  77.            break;
  78.    case 2: puz1->DitherStyle = dsBlendDither;
  79.            puz2->DitherStyle = dsBlendDither;
  80.            puz3->DitherStyle = dsBlendDither;
  81.            puz4->DitherStyle = dsBlendDither;
  82.            puz5->DitherStyle = dsBlendDither;
  83.    }
  84. }
  85. //---------------------------------------------------------------------------
  86. void __fastcall TImageBtnDemoForm::fcColorCombo2Change(TObject *Sender)
  87. {
  88.   Butterfly1->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  89.   Butterfly2->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  90.   Butterfly3->DitherColor = ((TfcColorCombo *)Sender)->SelectedColor;
  91. }
  92. //---------------------------------------------------------------------------
  93. void __fastcall TImageBtnDemoForm::ThumbTackClick(TObject *Sender)
  94. {
  95.   Char Temp[20];
  97.   if (((TfcImageBtn *)Sender)->Down == True){
  98.      sprintf(Temp,"Tackrn(In)");
  99.   } else sprintf(Temp,"Tackrn(Out)");
  101.   TackLabel->Caption = Temp;
  102. }
  103. //---------------------------------------------------------------------------
  104. void __fastcall TImageBtnDemoForm::Switch1Click(TObject *Sender)
  105. {
  106.    switch (((TfcImageBtn *)Sender)->Tag) {
  107.    case 1: lightbutton1->Down = ((TfcImageBtn *)Sender)->Down; break;
  108.    case 2: LightButton2->Down = ((TfcImageBtn *)Sender)->Down; break;
  109.    case 3: LightButton3->Down = ((TfcImageBtn *)Sender)->Down;
  110.    }
  111. }
  112. //---------------------------------------------------------------------------
  113. void __fastcall TImageBtnDemoForm::ButtonTabChange(
  114.       TfcCustomButtonGroup *ButtonGroup, TfcButtonGroupItem *OldSelected,
  115.       TfcButtonGroupItem *Selected)
  116. {
  117.   if (OldSelected->Button != NULL)
  118.      OldSelected->Button->Font->Color = clWhite;
  120.   Selected->Button->Font->Color = clYellow;
  121.   switch (Selected->Button->Tag) {
  122.   case 1: PageControl1->ActivePage = TabSheet1; break;
  123.   case 2: PageControl1->ActivePage = TabSheet2; break;
  124.   case 3: PageControl1->ActivePage = TabSheet3; break;
  125.   case 4: PageControl1->ActivePage = TabSheet4; break;
  126.   case 5: PageControl1->ActivePage = TabSheet5;
  127.   }
  128. }
  129. //---------------------------------------------------------------------------
  130. void __fastcall TImageBtnDemoForm::lightbutton1Click(TObject *Sender)
  131. {
  132.    switch (((TfcImageBtn *)Sender)->Tag) {
  133.    case 1: Switch1->Down = ((TfcImageBtn *)Sender)->Down; break;
  134.    case 2: Switch2->Down = ((TfcImageBtn *)Sender)->Down; break;
  135.    case 3: Switch3->Down = ((TfcImageBtn *)Sender)->Down;
  136.    }
  137. }
  138. //---------------------------------------------------------------------------
  139. void __fastcall TImageBtnDemoForm::fcColorCombo3Change(TObject *Sender)
  140. {
  141.   fcImageBtn1->Color = ((TfcColorCombo *)Sender)->SelectedColor;
  142.   fcImageBtn2->Color = ((TfcColorCombo *)Sender)->SelectedColor;
  143. }
  144. //---------------------------------------------------------------------------
  145. void __fastcall TImageBtnDemoForm::led4Click(TObject *Sender)
  146. {
  147.    LightSwitch1->Down = ((TfcImageBtn *)Sender)->Down;
  148. }
  149. //---------------------------------------------------------------------------