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.


 
   

窗体文件:

---

object Form1: TForm1

  Left = 0

  Top = 0

  Caption = 'Form1'

  ClientHeight = 162

  ClientWidth = 351

  Color = clBtnFace

  Font.Charset = DEFAULT_CHARSET

  Font.Color = clWindowText

  Font.Height = -11

  Font.Name = 'Tahoma'

  Font.Style = []

  OldCreateOrder = False

  OnCreate = FormCreate

  PixelsPerInch = 96

  TextHeight = 13

  object CategoryPanelGroup1: TCategoryPanelGroup

    Left = 0

    Top = 0

    Width = 180

    Height = 162

    VertScrollBar.Tracking = True

    HeaderFont.Charset = DEFAULT_CHARSET

    HeaderFont.Color = clWindowText

    HeaderFont.Height = -11

    HeaderFont.Name = 'Tahoma'

    HeaderFont.Style = []

    TabOrder = 0

    ExplicitHeight = 187

    object CategoryPanel1: TCategoryPanel

      Top = 0

      Caption = 'CategoryPanel1'

      TabOrder = 0

      ExplicitWidth = 158

    end

    object CategoryPanel2: TCategoryPanel

      Top = 200

      Caption = 'CategoryPanel2'

      TabOrder = 1

      ExplicitWidth = 158

    end

    object CategoryPanel3: TCategoryPanel

      Top = 400

      Caption = 'CategoryPanel3'

      TabOrder = 2

      ExplicitWidth = 158

    end

  end

  object Button1: TButton

    Left = 186

    Top = 16

    Width = 156

    Height = 25

    Caption = 'Button1'

    TabOrder = 1

    OnClick = Button1Click

  end

  object Button2: TButton

    Left = 186

    Top = 55

    Width = 156

    Height = 25

    Caption = 'Button2'

    TabOrder = 2

    OnClick = Button2Click

  end

  object Button3: TButton

    Left = 186

    Top = 96

    Width = 156

    Height = 25

    Caption = 'Button3'

    TabOrder = 3

    OnClick = Button3Click

  end

end