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

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

Delphi控件源码

开发平台：

Delphi

ImgCombos.pas：源码内容
  1. unit ImgCombos;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, fcCombo, fcTreeCombo, fctreeview, fcCommon,
  8.   ComCtrls, CheckLst, fcFontCombo, ExtCtrls
  9.   {$ifndef Ver100}
  10.   ,ImgList
  11.   {$endif}
  12.   ,fcDemoRichEdit;
  14. type
  15.   TTreeComboDemoForm = class(TForm)
  16.     ImageList1: TImageList;
  17.     GroupBox1: TGroupBox;
  18.     CheckListBox: TCheckListBox;
  19.     PageControl1: TPageControl;
  20.     TabSheet1: TTabSheet;
  21.     TabSheet2: TTabSheet;
  22.     Bevel1: TBevel;
  23.     Bevel2: TBevel;
  24.     Label1: TLabel;
  25.     Label2: TLabel;
  26.     TreeCombo2: TfcTreeCombo;
  27.     TreeCombo1: TfcTreeCombo;
  28.     Label3: TLabel;
  29.     fcFontCombo1: TfcFontCombo;
  30.     fcDemoRichEdit1: TfcDemoRichEdit;
  31.     fcDemoRichEdit2: TfcDemoRichEdit;
  32.     procedure ComboEnter(Sender: TObject);
  33.     procedure CheckListBoxClickCheck(Sender: TObject);
  34.     procedure PageControl1Change(Sender: TObject);
  35.     procedure FormShow(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.     ActiveCombo: TfcCustomTreeCombo;
  41.   end;
  43. var
  44.   TreeComboDemoForm: TTreeComboDemoForm;
  46. implementation
  48. {$R *.DFM}
  50. procedure TTreeComboDemoForm.ComboEnter(Sender: TObject);
  51. begin
  52.   ActiveCombo := (Sender as TfcCustomTreeCombo);
  54.   with CheckListBox, ActiveCombo do
  55.   begin
  56.     Checked[4] := tvoRowSelect in TreeOptions;
  57.     Checked[2] := tvoShowButtons in TreeOptions;
  58.     Checked[0] := tvoShowLines in TreeOptions;
  59.     Checked[1] := tvoShowRoot in TreeOptions;
  60.     Checked[3] := icoExpanded in Options;
  61.     Checked[5] := icoEndNodesOnly in Options;
  62.     Checked[6] := ShowMatchText;
  63.     Checked[7] := Style = csDropDownList;
  64.   end;
  65. end;
  67. procedure TTreeComboDemoForm.CheckListBoxClickCheck(Sender: TObject);
  68. begin
  69.   with CheckListBox, ActiveCombo do
  70.   begin
  71.     if Checked[4] then TreeOptions := TreeOptions + [tvoRowSelect] else TreeOptions := TreeOptions - [tvoRowSelect];
  72.     if Checked[2] then TreeOptions := TreeOptions + [tvoShowButtons] else TreeOptions := TreeOptions - [tvoShowButtons];;
  73.     if Checked[0] then TreeOptions := TreeOptions + [tvoShowLines] else TreeOptions := TreeOptions - [tvoShowLines];
  74.     if Checked[1] then TreeOptions := TreeOptions + [tvoShowRoot] else TreeOptions := TreeOptions - [tvoShowRoot];
  75.     if Checked[3] then Options := Options + [icoExpanded] else Options := Options - [icoExpanded];
  76.     if Checked[5] then Options := Options + [icoEndNodesOnly] else Options := Options - [icoEndNodesOnly];
  77.     ShowMatchText := Checked[6];
  78.     if Checked[7] then Style := fcCombo.csDropDownList else Style := csDropDown;
  79.   end;
  80. end;
  82. procedure TTreeComboDemoForm.PageControl1Change(Sender: TObject);
  83. begin
  84.   if PageControl1.ActivePage = TabSheet1 then TreeCombo1.SetFocus
  85.   else fcFontCombo1.SetFocus;
  86. end;
  88. procedure TTreeComboDemoForm.FormShow(Sender: TObject);
  89. begin
  90.   PageControl1Change(PageControl1);
  91.   TreeCombo1.text:= 'HandShake';
  92.   TreeCombo1.SelectAll;
  93.   TreeCombo2.text:= 'Satellite';
  94. end;
  97. end.