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.

推荐分享