Delphi 2009之TCategoryPanelGroup[3]: Color

Delphi 2009之TCategoryPanelGroup[3]: Color2012-02-15 cnblogs 万一本例效果图:
代码文件:
unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, ExtCtrls, StdCtrls, ColorGrd;
type
 TForm1 = class（TForm）
  CategoryPanelGroup1: TCategoryPanelGroup;
  CategoryPanel1: TCategoryPanel;
  CategoryPanel2: TCategoryPanel;
  CategoryPanel3: TCategoryPanel;
  RadioGroup1: TRadioGroup;
  ColorGrid1: TColorGrid;
  procedure FormCreate（Sender: TObject）;
  procedure ColorGrid1Change（Sender: TObject）;
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate（Sender: TObject）;
begin
 CategoryPanel1.Height := ClientHeight div 2;
 CategoryPanel2.Height := CategoryPanel1.Height;
 CategoryPanel3.Height := CategoryPanel1.Height;
 CategoryPanel1.Caption := "CPanel1";
 CategoryPanel2.Caption := "CPanel2";
 CategoryPanel3.Caption := "CPanel3";
 RadioGroup1.Caption := "Color";
 with RadioGroup1.Items do
 begin
  Add（"CategoryPanelGroup1.ChevronColor"）;
  Add（"CategoryPanelGroup1.ChevronHotColor"）;
  Add（"CategoryPanelGroup1.GradientBaseColor"）;
  Add（"CategoryPanelGroup1.GradientColor"）;
  Add（"CategoryPanelGroup1.Color"）;
  Add（"CategoryPanel1.Color"）;
  Add（"CategoryPanel2.Color"）;
  Add（"CategoryPanel3.Color"）;
  Add（"CategoryPanelGroup1.HeaderFont.Color"）;
 end;
 RadioGroup1.ItemIndex := 0;
 ColorGrid1.Align := alRight;
 ColorGrid1.Width := 48;
 ColorGrid1.GridOrdering := go2x8;
end;
procedure TForm1.ColorGrid1Change（Sender: TObject）;
begin
 case RadioGroup1.ItemIndex of
  0: CategoryPanelGroup1.ChevronColor   := ColorGrid1.ForegroundColor;
  1: CategoryPanelGroup1.ChevronHotColor  := ColorGrid1.ForegroundColor;
  2: CategoryPanelGroup1.GradientBaseColor := ColorGrid1.ForegroundColor;
  3: CategoryPanelGroup1.GradientColor   := ColorGrid1.ForegroundColor;
  4: CategoryPanelGroup1.Color       := ColorGrid1.ForegroundColor;
  5: CategoryPanel1.Color         := ColorGrid1.ForegroundColor; {刷新后显示}
  6: CategoryPanel2.Color         := ColorGrid1.ForegroundColor; {刷新后显示}
  7: CategoryPanel3.Color         := ColorGrid1.ForegroundColor; {刷新后显示}
  8: begin
   CategoryPanelGroup1.HeaderFont.Color := ColorGrid1.ForegroundColor;
   CategoryPanelGroup1.HeaderFont := CategoryPanelGroup1.HeaderFont; {刷新一下}
  end;
 end;
end;
end.