Delphi 2009 之 TCategoryPanelGroup[4]: Height

本例效果图:

---

代码文件:

---

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;

    PageScroller1: TPageScroller;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

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



  CategoryPanelGroup1.GradientBaseColor := clYellow;

  CategoryPanelGroup1.GradientColor := clRed;

  CategoryPanel1.Color := clWhite;



  Button1.Caption := 'CategoryPanelGroup1.HeaderHeight +';

  Button2.Caption := 'CategoryPanelGroup1.HeaderHeight -';

  Button3.Caption := 'CategoryPanel1.Height +';

  Button4.Caption := 'CategoryPanel1.Height -';

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  CategoryPanelGroup1.HeaderHeight := CategoryPanelGroup1.HeaderHeight + 2;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

  CategoryPanelGroup1.HeaderHeight := CategoryPanelGroup1.HeaderHeight - 2;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

  CategoryPanel1.Height := CategoryPanel1.Height + 10;

end;



procedure TForm1.Button4Click(Sender: TObject);

begin

  CategoryPanel1.Height := CategoryPanel1.Height - 10;

end;



end.


 
   

窗体文件:

---

object Form1: TForm1

  Left = 0

  Top = 0

  Caption = 'Form1'

  ClientHeight = 187

  ClientWidth = 405

  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 = 177

    Height = 187

    VertScrollBar.Tracking = True

    HeaderFont.Charset = DEFAULT_CHARSET

    HeaderFont.Color = clWindowText

    HeaderFont.Height = -11

    HeaderFont.Name = 'Tahoma'

    HeaderFont.Style = []

    TabOrder = 0

    ExplicitHeight = 207

    object CategoryPanel1: TCategoryPanel

      Top = 0

      Caption = 'CategoryPanel1'

      TabOrder = 0

    end

    object CategoryPanel2: TCategoryPanel

      Top = 200

      Caption = 'CategoryPanel2'

      TabOrder = 1

    end

    object CategoryPanel3: TCategoryPanel

      Top = 400

      Caption = 'CategoryPanel3'

      TabOrder = 2

      object PageScroller1: TPageScroller

        Left = 8

        Top = 80

        Width = 150

        Height = 45

        TabOrder = 0

      end

    end

  end

  object Button1: TButton

    Left = 192

    Top = 24

    Width = 200

    Height = 25

    Caption = 'Button1'

    TabOrder = 1

    OnClick = Button1Click

  end

  object Button2: TButton

    Left = 192

    Top = 58

    Width = 200

    Height = 25

    Caption = 'Button2'

    TabOrder = 2

    OnClick = Button2Click

  end

  object Button3: TButton

    Left = 192

    Top = 109

    Width = 200

    Height = 25

    Caption = 'Button3'

    TabOrder = 3

    OnClick = Button3Click

  end

  object Button4: TButton

    Left = 192

    Top = 144

    Width = 200

    Height = 25

    Caption = 'Button4'

    TabOrder = 4

    OnClick = Button4Click

  end

end