Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle
2008-08-14 12:18
483 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
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
相关文章推荐
- Delphi 2009 之 TCategoryPanelGroup[4]: Height
- Delphi 2009 之 TCategoryPanelGroup[4]: Height
- Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等
- Delphi 2009 之 TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection
- Delphi 2009 之 TCategoryPanelGroup[3]: Color
- CategoryPanelGroup动态生成节点
- Delphi中组件Panel、Splitter、GroupBox、按钮组件(CheckBox...)、计时器、滚动条、多选卡
- ASCII 码新表 - 包含 Delphi 2009 的 TUnicodeCategory 分类
- DELPHI美化界面(2009开始TPanel增加了ParentBackGround)
- 问题-关于SizeOf在Delphi7和Delphi2009下结果分别是16/32
- 学习使用Delphi 2009 开发 Word 2003 插件 <一>
- Delphi2009之TImage
- RegularExpressions(1) 一个 Net 样式的、适用于 Delphi 2009 之后版本的正则表达式组件
- delphi 2009 创建OCX 与JS传参例子
- Delphi2009中的几处问题
- Delphi 中 动态创建的Panel无法改变颜色的解决办法
- Delphi 2009 新增的 Class Explorer
- Delphi 2009,C++ Builder 2009发布
- delphi2009新功能-------------令人兴奋的DELPHI2009终于发布了.
- Delphi 2009发布