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

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

Delphi控件源码

开发平台：

Delphi

PanelDemo.pas：源码内容
  1. unit PanelDemo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, fcCombo, fctreecombo, fcLabel, fcpanel, fcColorCombo, fcImager,
  8.   ComCtrls;
  10. type
  11.   TPanelDemoForm = class(TForm)
  12.     fcGroupBox1: TfcGroupBox;
  13.     fcLabel3: TfcLabel;
  14.     fcLabel2: TfcLabel;
  15.     fcLabel1: TfcLabel;
  16.     fcTreeCombo3: TfcTreeCombo;
  17.     fcTreeCombo2: TfcTreeCombo;
  18.     fcTreeCombo1: TfcTreeCombo;
  19.     fcGroupBox2: TfcGroupBox;
  20.     fcLabel8: TfcLabel;
  21.     fcLabel9: TfcLabel;
  22.     fcTreeCombo4: TfcTreeCombo;
  23.     fcTreeCombo5: TfcTreeCombo;
  24.     fcGroupBox3: TfcGroupBox;
  25.     fcImager1: TfcImager;
  26.     fcColorCombo1: TfcColorCombo;
  27.     fcColorCombo2: TfcColorCombo;
  28.     fcLabel4: TfcLabel;
  29.     fcLabel5: TfcLabel;
  30.     CheckBox1: TCheckBox;
  31.     FullBorderCheckbox: TCheckBox;
  32.     Edit1: TEdit;
  33.     fcLabel6: TfcLabel;
  34.     UpDown1: TUpDown;
  35.     procedure fcColorCombo1Change(Sender: TObject);
  36.     procedure fcColorCombo2Change(Sender: TObject);
  37.     procedure CheckBox1Click(Sender: TObject);
  38.     procedure FullBorderCheckboxClick(Sender: TObject);
  39.     procedure Edit1Change(Sender: TObject);
  40.   private
  41.     { Private declarations }
  42.   public
  43.     { Public declarations }
  44.   end;
  46. var
  47.   PanelDemoForm: TPanelDemoForm;
  49. implementation
  51. {$R *.DFM}
  53. procedure TPanelDemoForm.fcColorCombo1Change(Sender: TObject);
  54. begin
  55.   fcgroupbox1.Frame.nonfocuscolor:=fccolorcombo1.selectedcolor;
  56.   fcgroupbox2.Frame.nonfocuscolor:=fccolorcombo1.selectedcolor;
  57.   fcgroupbox1.invalidate;
  58.   fcgroupbox2.invalidate;
  59. end;
  61. procedure TPanelDemoForm.fcColorCombo2Change(Sender: TObject);
  62. begin
  63.   fcgroupbox1.color:=fccolorcombo2.selectedcolor;
  64.   fcgroupbox2.color:=fccolorcombo2.selectedcolor;
  65.   fcgroupbox1.invalidate;
  66.   fcgroupbox2.invalidate;
  67. end;
  69. procedure TPanelDemoForm.CheckBox1Click(Sender: TObject);
  70. begin
  71.   with (Sender as TCheckbox) do
  72.   begin
  73.      fcGroupbox1.transparent:= checked;
  74.      fcGroupbox2.transparent:= checked;
  75.      fcColorCombo1.enabled:= not checked;
  76.      fcColorCombo2.enabled:= not checked;
  77.   end;
  80. end;
  82. procedure TPanelDemoForm.FullBorderCheckboxClick(Sender: TObject);
  83. begin
  84.   with (Sender as TCheckbox) do
  85.   begin
  86.      fcGroupbox1.FullBorder := checked;
  87.      fcGroupbox2.FullBorder := checked;
  88.   end;
  89.   invalidate;
  90. end;
  92. procedure TPanelDemoForm.Edit1Change(Sender: TObject);
  93. begin
  94.    fcGroupBox1.CaptionIndent := UpDown1.Position;
  95.    fcGroupBox2.CaptionIndent := UpDown1.Position;
  96.    invalidate;
  97. end;
  99. end.