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

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

Delphi控件源码

开发平台：

Delphi

colordemou.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "colordemou.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "fcColorCombo"
  9. #pragma link "fcCombo"
  10. #pragma link "fcDemoRichEdit"
  11. #pragma link "fcLabel"
  12. #pragma resource "*.dfm"
  13. TColorDemoForm *ColorDemoForm;
  14. //---------------------------------------------------------------------------
  15. __fastcall TColorDemoForm::TColorDemoForm(TComponent* Owner)
  16.         : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. String StripTrailing(String s)
  21. {
  22.   int len1 = s.Length();
  23.   while ((len1 > 0) &&
  24.          ((s[len1] == ' ') || (s[len1] == 't'))) len1--;
  25.   s.SetLength(len1);
  26.   return(s);
  27. }
  29. //---------------------------------------------------------------------------
  30. void __fastcall TColorDemoForm::CheckBox6Click(TObject *Sender)
  31. {
  32.   if (((TCheckBox *)Sender)->Checked == True){
  33.     fcColorCombo1->AutoDropDown = True;
  34.   } else fcColorCombo1->AutoDropDown = False;
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TColorDemoForm::fcColorCombo1Change(TObject *Sender)
  38. {
  39.   Shape1->Brush->Color = ((TfcColorCombo *)Sender)->SelectedColor;
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TColorDemoForm::ColorAlignmentRadioClick(TObject *Sender)
  43. {
  44.   switch (((TRadioGroup *)Sender)->ItemIndex) {
  45.     case 0:fcColorCombo1->ColorAlignment = taLeftJustify; break;
  46.     case 1:fcColorCombo1->ColorAlignment = taRightJustify;
  47.   }
  48. }
  49. //---------------------------------------------------------------------------
  50. void __fastcall TColorDemoForm::ButtonStyleRadioClick(TObject *Sender)
  51. {
  52.   switch (((TRadioGroup *)Sender)->ItemIndex) {
  53.     case 0:fcColorCombo1->ButtonStyle = Fccombo::cbsEllipsis; break;
  54.     case 1:fcColorCombo1->ButtonStyle = cbsDownArrow;
  55.   }
  56. }
  57. //---------------------------------------------------------------------------
  58. void __fastcall TColorDemoForm::ShowMatchCheckboxClick(TObject *Sender)
  59. {
  60.   if (((TCheckBox *)Sender)->Checked == True) {
  61.     fcColorCombo1->ShowMatchText = True;
  62.   } else fcColorCombo1->ShowMatchText = False;
  63. }
  64. //---------------------------------------------------------------------------
  65. void __fastcall TColorDemoForm::ShowButtonCheckboxClick(TObject *Sender)
  66. {
  67.   if (((TCheckBox *)Sender)->Checked == True) {
  68.     fcColorCombo1->ShowButton = True;
  69.   } else fcColorCombo1->ShowButton = False;
  70. }
  71. //---------------------------------------------------------------------------
  72. void __fastcall TColorDemoForm::SortByRadioClick(TObject *Sender)
  73. {
  74.   switch (((TRadioGroup *)Sender)->ItemIndex) {
  75.     case 0:fcColorCombo1->ColorListOptions->SortBy = csoNone; break;
  76.     case 1:fcColorCombo1->ColorListOptions->SortBy = csoByRGB; break;
  77.     case 2:fcColorCombo1->ColorListOptions->SortBy = csoByName; break;
  78.     case 3:fcColorCombo1->ColorListOptions->SortBy = csoByIntensity;
  79.   }
  80. }
  81. //---------------------------------------------------------------------------
  82. void __fastcall TColorDemoForm::CheckBox1Click(TObject *Sender)
  83. {
  84.  //with (Sender as TCheckBox),fcColorCombo1.ColorListOptions do begin
  85.  if (((TCheckBox *)Sender)->Checked == True) {
  86.     switch (((TCheckBox *)Sender)->Tag) {
  87.       case 1:fcColorCombo1->ColorListOptions->Options << ccoShowCustomColors; break;
  88.       case 2:fcColorCombo1->ColorListOptions->Options << ccoShowSystemColors; break;
  89.       case 3:fcColorCombo1->ColorListOptions->Options << ccoShowStandardColors; break;
  90.       case 4:fcColorCombo1->ColorListOptions->Options << ccoShowGreyScale; break;
  91.       case 5:fcColorCombo1->ColorListOptions->Options << ccoShowColorNone;
  92.     }
  93.  } else {
  94.     switch (((TCheckBox *)Sender)->Tag) {
  95.       case 1:fcColorCombo1->ColorListOptions->Options >> ccoShowCustomColors; break;
  96.       case 2:fcColorCombo1->ColorListOptions->Options >> ccoShowSystemColors; break;
  97.       case 3:fcColorCombo1->ColorListOptions->Options >> ccoShowStandardColors; break;
  98.       case 4:fcColorCombo1->ColorListOptions->Options >> ccoShowGreyScale; break;
  99.       case 5:fcColorCombo1->ColorListOptions->Options >> ccoShowColorNone;
  100.     }
  101.  }
  102.    fcColorCombo1->ListBox->AllColors->Clear();
  103.    fcColorCombo1->RefreshList();
  104.    fcColorCombo1->ItemIndex = -1;
  105.    fcColorCombo1->Text = "";
  106. }
  107. //---------------------------------------------------------------------------
  108. void __fastcall TColorDemoForm::ColorWidthEditExit(TObject *Sender)
  109. {
  110.   if (StrToIntDef(((TEdit *)Sender)->Text,UpDown3->Max+1) > UpDown3->Max)
  111.      ((TEdit *)Sender)->Text = IntToStr(UpDown3->Max);
  113.   fcColorCombo1->ColorListOptions->ColorWidth = StrToInt(StripTrailing(ColorWidthEdit->Text));
  114.   fcColorCombo1->ListBox->ColorWidth = fcColorCombo1->ColorListOptions->ColorWidth;
  115.   fcColorCombo1->Invalidate();
  116. }
  117. //---------------------------------------------------------------------------
  119. void __fastcall TColorDemoForm::ItemHeightEditExit(TObject *Sender)
  120. {
  121.   if (StrToIntDef(((TEdit *)Sender)->Text,UpDown4->Max+1) > UpDown4->Max)
  122.      ((TEdit *)Sender)->Text = IntToStr(UpDown4->Max);
  124.    fcColorCombo1->ColorListOptions->ItemHeight = StrToInt(StripTrailing(ItemHeightEdit->Text));
  125.    fcColorCombo1->ListBox->ItemHeight = fcColorCombo1->ColorListOptions->ItemHeight;
  126.    fcColorCombo1->Invalidate();
  127. }
  128. //---------------------------------------------------------------------------
  130. void __fastcall TColorDemoForm::UpDown3Click(TObject *Sender,
  131.       TUDBtnType Button)
  132. {
  133.  ColorWidthEditExit(ColorWidthEdit);
  134. }
  135. //---------------------------------------------------------------------------
  137. void __fastcall TColorDemoForm::UpDown4Click(TObject *Sender,
  138.       TUDBtnType Button)
  139. {
  140.    ItemHeightEditExit(ItemHeightEdit);
  141. }
  142. //---------------------------------------------------------------------------
  144. void __fastcall TColorDemoForm::DropDownCountEditExit(TObject *Sender)
  145. {
  146.   if (StrToIntDef(((TEdit *)Sender)->Text,UpDown2->Max+1) > UpDown2->Max)
  147.      ((TEdit *)Sender)->Text = IntToStr(UpDown2->Max);
  148. }
  149. //---------------------------------------------------------------------------
  151. void __fastcall TColorDemoForm::DropDownWidthEditExit(TObject *Sender)
  152. {
  153.   if (StrToIntDef(((TEdit *)Sender)->Text,UpDown1->Max+1) > UpDown1->Max)
  154.      ((TEdit *)Sender)->Text = IntToStr(UpDown1->Max);
  156. }
  157. //---------------------------------------------------------------------------
  159. void __fastcall TColorDemoForm::fcColorCombo1DropDown(TObject *Sender)
  160. {
  161.    ((TfcColorCombo *)Sender)->DropDownCount = StrToInt(StripTrailing(DropDownCountEdit->Text));
  162.    ((TfcColorCombo *)Sender)->DropDownWidth = StrToInt(StripTrailing(DropDownWidthEdit->Text));
  163.    ((TfcColorCombo *)Sender)->ColorListOptions->ColorWidth = StrToInt(StripTrailing(ColorWidthEdit->Text));
  164.    ((TfcColorCombo *)Sender)->ColorListOptions->ItemHeight = StrToInt(StripTrailing(ItemHeightEdit->Text));
  165.    ((TfcColorCombo *)Sender)->ListBox->ItemHeight = ((TfcColorCombo *)Sender)->ColorListOptions->ItemHeight;
  166.    ((TfcColorCombo *)Sender)->ListBox->ColorWidth = ((TfcColorCombo *)Sender)->ColorListOptions->ColorWidth;
  167. }
  168. //---------------------------------------------------------------------------