delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle

本例效果图:

代码文件:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

CategoryPanelGroup1: TCategoryPanelGroup;

CategoryPanel1: TCategoryPanel;

CategoryPanel2: TCategoryPanel;

CategoryPanel3: TCategoryPanel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(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';

Button1.Caption := 'HeaderStyle := hsGradient';

Button2.Caption := 'HeaderStyle := hsImage';

Button3.Caption := 'HeaderStyle := hsThemed';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

CategoryPanelGroup1.HeaderStyle := hsGradient;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

CategoryPanelGroup1.HeaderImage.LoadFromFile('c:\temp\hbg.bmp');

CategoryPanelGroup1.HeaderStyle := hsImage;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

CategoryPanelGroup1.HeaderStyle := hsThemed;

end;

end.

推荐分享