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

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

Delphi控件源码

开发平台：

Delphi

ImgButtonDemo.pas：源码内容
  1. unit ImgButtonDemo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, fcLabel, ComCtrls, StdCtrls, DBCtrls, Db, DBTables, fcButton,
  8.   fcImgBtn, fcShapeBtn, fcText, fcCombo, fcColorCombo, fcTreeCombo,
  9.   fcButtonGroup, Buttons, fcClearPanel, fcCommon, fcDemoRichEdit;
  11. type
  12.   TImageBtnDemoForm = class(TForm)
  13.     PageControl1: TPageControl;
  14.     TabSheet1: TTabSheet;
  15.     TabSheet2: TTabSheet;
  16.     TabSheet3: TTabSheet;
  17.     ImageList1: TImageList;
  18.     TabSheet4: TTabSheet;
  19.     Panel3: TPanel;
  20.     ButtonTab: TfcButtonGroup;
  21.     ButtonTabfcImageBtn1: TfcImageBtn;
  22.     ButtonTabfcImageBtn2: TfcImageBtn;
  23.     ButtonTabfcImageBtn3: TfcImageBtn;
  24.     ButtonTabfcImageBtn4: TfcImageBtn;
  25.     ButtonTabfcImageBtn5: TfcImageBtn;
  26.     TabSheet5: TTabSheet;
  27.     Panel4: TPanel;
  28.     Panel5: TPanel;
  29.     fcDemoRichEdit3: TfcDemoRichEdit;
  30.     Panel1: TPanel;
  31.     Panel6: TPanel;
  32.     Panel8: TPanel;
  33.     Panel9: TPanel;
  34.     Panel10: TPanel;
  35.     Panel7: TPanel;
  36.     Panel11: TPanel;
  37.     Panel12: TPanel;
  38.     StyleLabel1: TLabel;
  39.     StyleLabel2: TLabel;
  40.     StyleLabel3: TLabel;
  41.     StyleLabel4: TLabel;
  42.     CompBtnFlat: TfcImageBtn;
  43.     CompBtnHighlight: TfcImageBtn;
  44.     CompBtnNormal: TfcImageBtn;
  45.     CompBtnRaised: TfcImageBtn;
  46.     Roundflat: TfcImageBtn;
  47.     RoundHighlight: TfcImageBtn;
  48.     RoundNormal: TfcImageBtn;
  49.     RoundRaised: TfcImageBtn;
  50.     KnightHighlight: TfcImageBtn;
  51.     KnightNormal: TfcImageBtn;
  52.     KnightRaised: TfcImageBtn;
  53.     KnightFlat: TfcImageBtn;
  54.     StarFlat: TfcImageBtn;
  55.     StarHighlight: TfcImageBtn;
  56.     StarNormal: TfcImageBtn;
  57.     StarRaised: TfcImageBtn;
  58.     Label5: TLabel;
  59.     ComputerImage: TfcImageBtn;
  60.     fcDemoRichEdit2: TfcDemoRichEdit;
  61.     Bevel1: TBevel;
  62.     LightSwitch: TImage;
  63.     LEDLabel: TfcLabel;
  64.     switchlabel: TfcLabel;
  65.     fcLabel4: TfcLabel;
  66.     tacklabel2: TfcLabel;
  67.     Bevel2: TBevel;
  68.     CountryLabel: TfcLabel;
  69.     Checkboxlabel: TfcLabel;
  70.     Panel2: TPanel;
  71.     NorthAmerica: TfcImageBtn;
  72.     Europe: TfcImageBtn;
  73.     Asia: TfcImageBtn;
  74.     Africa: TfcImageBtn;
  75.     Australia: TfcImageBtn;
  76.     SouthAmerica: TfcImageBtn;
  77.     LightSwitch1: TfcImageBtn;
  78.     led4: TfcImageBtn;
  79.     TackButton: TfcImageBtn;
  80.     Checkboxbtn: TfcImageBtn;
  81. //    fcDemoRichEdit1: TfcDemoRichEdit;
  82.     fcDemoRichEdit5: TfcDemoRichEdit;
  83.     TackLabel: TfcLabel;
  84.     fcLabel9: TfcLabel;
  85.     fcLabel10: TfcLabel;
  86.     fcLabel11: TfcLabel;
  87.     Label10: TLabel;
  88.     Label11: TLabel;
  89.     Label12: TLabel;
  90.     SwitchTitleLabel: TfcLabel;
  91.     InfoLabel: TfcLabel;
  92.     LightButton3: TfcImageBtn;
  93.     LightButton2: TfcImageBtn;
  94.     lightbutton1: TfcImageBtn;
  95.     Switch1: TfcImageBtn;
  96.     Switch2: TfcImageBtn;
  97.     LEDButton: TfcImageBtn;
  98.     CoolCheckbox: TfcImageBtn;
  99.     ThumbTack: TfcImageBtn;
  100.     Switch3: TfcImageBtn;
  101.     PushPin: TfcImageBtn;
  102.     SwitchBox: TfcImageBtn;
  103.     HandleButton: TfcImageBtn;
  104.     GroupBox1: TGroupBox;
  105.     RadioGroupLabel: TfcLabel;
  106.     RadioButtonGroup1: TfcButtonGroup;
  107.     fcDemoRichEdit4: TfcDemoRichEdit;
  108.     fcLabel1: TfcLabel;
  109.     fcLabel2: TfcLabel;
  110.     fcLabel3: TfcLabel;
  111.     fcLabel5: TfcLabel;
  112.     fcLabel6: TfcLabel;
  113.     Bevel3: TBevel;
  114.     GroupBox2: TGroupBox;
  115.     Butterfly1: TfcImageBtn;
  116.     Butterfly2: TfcImageBtn;
  117.     Butterfly3: TfcImageBtn;
  118.     DitherLabel3: TLabel;
  119.     DitherLabel2: TLabel;
  120.     DitherLabel1: TLabel;
  121.     fcLabel12: TfcLabel;
  122.     fcColorCombo2: TfcColorCombo;
  123.     Panel13: TPanel;
  124.     puz1: TfcImageBtn;
  125.     puz3: TfcImageBtn;
  126.     puz4: TfcImageBtn;
  127.     puz2: TfcImageBtn;
  128.     puz5: TfcImageBtn;
  129.     fcColorCombo1: TfcColorCombo;
  130.     fcImageCombo1: TfcTreeCombo;
  131.     fcLabel7: TfcLabel;
  132.     fcLabel8: TfcLabel;
  133.     Bevel4: TBevel;
  134.     Label1: TLabel;
  135.     fcLabel13: TfcLabel;
  136.     fcImageBtn1: TfcImageBtn;
  137.     fcColorCombo3: TfcColorCombo;
  138.     Shape1: TShape;
  139.     fcImageBtn2: TfcImageBtn;
  140.     TfcDemoRichEdit1: TfcDemoRichEdit;
  141.     procedure LightSwitch1Click(Sender: TObject);
  142.     procedure TackButtonClick(Sender: TObject);
  143.     procedure NorthAmericaClick(Sender: TObject);
  144.     procedure fcColorCombo1Change(Sender: TObject);
  145.     procedure fcImageCombo1Change(Sender: TObject);
  146.     procedure FormShow(Sender: TObject);
  147.     procedure PageButton2SelChange(Sender: TObject);
  148.     procedure ThumbTackClick(Sender: TObject);
  149.     procedure HandleButtonClick(Sender: TObject);
  150.     procedure Switch1Click(Sender: TObject);
  151.     procedure ButtonTabChange(ButtonGroup: TfcCustomButtonGroup;
  152.       OldSelected, Selected: TfcButtonGroupItem);
  153.     procedure lightbutton1Click(Sender: TObject);
  154.     procedure fcColorCombo2Change(Sender: TObject);
  155.     procedure fcColorCombo3Change(Sender: TObject);
  156.     procedure led4Click(Sender: TObject);
  157.   private
  158.     { Private declarations }
  159.   public
  160.     { Public declarations }
  161.   end;
  163. var
  164.   ImageBtnDemoForm: TImageBtnDemoForm;
  166. implementation
  168. {$R *.DFM}
  170. procedure TImageBtnDemoForm.LightSwitch1Click(Sender: TObject);
  171. begin
  172.    led4.Down := (Sender as TfcImageBtn).Down;
  173. end;
  175. procedure TImageBtnDemoForm.TackButtonClick(Sender: TObject);
  176. begin
  177.    if (Sender as TfcImageBtn).Down then
  178.      TackLabel2.Caption := 'Tack'+#13#10+'(In)'
  179.    else TackLabel2.Caption := 'Tack'+#13#10+'(Out)';
  180. end;
  182. procedure TImageBtnDemoForm.NorthAmericaClick(Sender: TObject);
  183. begin
  184.   case (Sender as TfcImageBtn).Tag of
  185.   1: CountryLabel.Caption := 'North America';
  186.   2: CountryLabel.Caption := 'South America';
  187.   3: CountryLabel.Caption := 'Europe';
  188.   4: CountryLabel.Caption := 'Africa';
  189.   5: CountryLabel.Caption := 'Asia';
  190.   6: CountryLabel.Caption := 'Australia';
  191.   end;
  192. end;
  194. procedure TImageBtnDemoForm.fcColorCombo1Change(Sender: TObject);
  195. begin
  196.    puz1.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  197.    puz2.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  198.    puz3.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  199.    puz4.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  200.    puz5.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  201. end;
  203. procedure TImageBtnDemoForm.fcImageCombo1Change(Sender: TObject);
  204. begin
  205.    case fcImageCombo1.treeview.Selected.index of
  206.    0: begin
  207.         puz1.DitherStyle := dsFill;
  208.         puz2.DitherStyle := dsFill;
  209.         puz3.DitherStyle := dsFill;
  210.         puz4.DitherStyle := dsFill;
  211.         puz5.DitherStyle := dsFill;
  212.       end;
  213.    1: begin
  214.         puz1.DitherStyle := dsDither;
  215.         puz2.DitherStyle := dsDither;
  216.         puz3.DitherStyle := dsDither;
  217.         puz4.DitherStyle := dsDither;
  218.         puz5.DitherStyle := dsDither;
  219.       end;
  220.    2: begin
  221.         puz1.DitherStyle := dsBlendDither;
  222.         puz2.DitherStyle := dsBlendDither;
  223.         puz3.DitherStyle := dsBlendDither;
  224.         puz4.DitherStyle := dsBlendDither;
  225.         puz5.DitherStyle := dsBlendDither;
  226.       end;
  227.    end;
  228. end;
  230. procedure TImageBtnDemoForm.FormShow(Sender: TObject);
  231. begin
  232.    fcImageCombo1.Text := 'DitherBlend';
  233. end;
  235. procedure TImageBtnDemoForm.PageButton2SelChange(Sender: TObject);
  236. begin
  237.   if not (Sender as TfcImageBtn).Down then
  238.     (Sender as TfcImageBtn).Font.Color := clWhite;
  239. end;
  242. procedure TImageBtnDemoForm.ThumbTackClick(Sender: TObject);
  243. begin
  244.    if (Sender as TfcImageBtn).Down then
  245.      TackLabel.Caption := 'Tack'+#13#10+'(In)'
  246.    else TackLabel.Caption := 'Tack'+#13#10+'(Out)';
  247. end;
  249. procedure TImageBtnDemoForm.HandleButtonClick(Sender: TObject);
  250. begin
  251.    SwitchBox.Down := (Sender as TfcImageBtn).Down;
  252. end;
  254. procedure TImageBtnDemoForm.Switch1Click(Sender: TObject);
  255. begin
  256.    case (Sender as TfcImageBtn).Tag of
  257.    1: LightButton1.Down := (Sender as TFcImageBtn).Down;
  258.    2: LightButton2.Down := (Sender as TFcImageBtn).Down;
  259.    3: LightButton3.Down := (Sender as TFcImageBtn).Down;
  260.    end;
  261. end;
  263. procedure TImageBtnDemoForm.ButtonTabChange(
  264.   ButtonGroup: TfcCustomButtonGroup; OldSelected,
  265.   Selected: TfcButtonGroupItem);
  266. begin
  267.   if OldSelected.Button <> nil then OldSelected.Button.Font.Color := clWhite;
  268.   Selected.Button.Font.Color := clYellow;
  269.   case Selected.Button.Tag of
  270.    1: PageControl1.ActivePage := TabSheet1;
  271.    2: PageControl1.ActivePage := TabSheet2;
  272.    3: PageControl1.ActivePage := TabSheet3;
  273.    4: PageControl1.ActivePage := TabSheet4;
  274.    5: PageControl1.ActivePage := TabSheet5;
  275.   end;
  276. end;
  278. procedure TImageBtnDemoForm.lightbutton1Click(Sender: TObject);
  279. begin
  280.    case (Sender as TfcImageBtn).Tag of
  281.    1: Switch1.Down := (Sender as TFcImageBtn).Down;
  282.    2: Switch2.Down := (Sender as TFcImageBtn).Down;
  283.    3: Switch3.Down := (Sender as TFcImageBtn).Down;
  284.    end;
  285. end;
  287. procedure TImageBtnDemoForm.fcColorCombo2Change(Sender: TObject);
  288. begin
  289.   Butterfly1.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  290.   Butterfly2.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  291.   Butterfly3.DitherColor := (Sender as TfcColorCombo).SelectedColor;
  292. end;
  295. procedure TImageBtnDemoForm.fcColorCombo3Change(Sender: TObject);
  296. begin
  297. //  Shape1.Brush.Color := (Sender as TfcColorCombo).SelectedColor;
  298.   fcImageBtn1.Color := (Sender as TfcColorCombo).SelectedColor;
  299.   fcImageBtn2.Color := (Sender as TfcColorCombo).SelectedColor;
  300. end;
  302. procedure TImageBtnDemoForm.led4Click(Sender: TObject);
  303. begin
  304.    LightSwitch1.Down := (Sender as TfcImageBtn).Down;
  305. end;
  307. end.