Delphi 2009之TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection

本例效果图:

代码文件:unit Unit1;
interface
uses
　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　Dialogs, ExtCtrls, StdCtrls;
type
　TForm1 = class(TForm)
　　CategoryPanelGroup1: TCategoryPanelGroup;
　　CategoryPanel1: TCategoryPanel;
　　CategoryPanel2: TCategoryPanel;
　　CategoryPanel3: TCategoryPanel;
　　RadioGroup1: TRadioGroup;
　　RadioGroup2: TRadioGroup;
　　procedure FormCreate(Sender: TObject);
　　procedure RadioGroup1Click(Sender: TObject);
　　procedure RadioGroup2Click(Sender: TObject);
　end;
var
　Form1: TForm1;
implementation
{$R *.dfm}
uses TypInfo, GraphUtil;
procedure TForm1.FormCreate(Sender: TObject);
var
　i: Integer;
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 := 'HeaderAlignment';
　for i := 0 to 2 do
　　RadioGroup1.Items.Add(GetEnumName(TypeInfo(TAlignment), i));
　RadioGroup1.ItemIndex := 0;
　RadioGroup2.Caption := 'GradientDirection';
　for i := 0 to 1 do
　　RadioGroup2.Items.Add(GetEnumName(TypeInfo(TGradientDirection), i));
　RadioGroup2.ItemIndex := 1;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
　CategoryPanelGroup1.HeaderAlignment := TAlignment(RadioGroup1.ItemIndex);
end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
　CategoryPanelGroup1.GradientDirection := TGradientDirection(RadioGroup2.ItemIndex);
end;
end.