Delphi 2009 之 TCategoryPanelGroup[2]: HeaderAlignment、GradientDirection
2008-08-14 00:36
513 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) CategoryPanelGroup1: TCategoryPanelGroup; CategoryPanel1: TCategoryPanel; CategoryPanel2: TCategoryPanel; CategoryPanel3: TCategoryPanel; RadioGroup1: TRadioGroup; RadioGroup2: TRadioGroup; procedure FormCreate(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure RadioGroup2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses TypInfo, GraphUtil; procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin CategoryPanel1.Height := ClientHeight div 2; CategoryPanel2.Height := CategoryPanel1.Height; CategoryPanel3.Height := CategoryPanel1.Height; CategoryPanel1.Caption := 'CPanel1'; CategoryPanel2.Caption := 'CPanel2'; CategoryPanel3.Caption := 'CPanel3'; RadioGroup1.Caption := 'HeaderAlignment'; for i := 0 to 2 do RadioGroup1.Items.Add(GetEnumName(TypeInfo(TAlignment), i)); RadioGroup1.ItemIndex := 0; RadioGroup2.Caption := 'GradientDirection'; for i := 0 to 1 do RadioGroup2.Items.Add(GetEnumName(TypeInfo(TGradientDirection), i)); RadioGroup2.ItemIndex := 1; end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin CategoryPanelGroup1.HeaderAlignment := TAlignment(RadioGroup1.ItemIndex); end; procedure TForm1.RadioGroup2Click(Sender: TObject); begin CategoryPanelGroup1.GradientDirection := TGradientDirection(RadioGroup2.ItemIndex); end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 209 ClientWidth = 334 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 = 216 Height = 209 VertScrollBar.Tracking = True HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -11 HeaderFont.Name = 'Tahoma' HeaderFont.Style = [] TabOrder = 0 object CategoryPanel1: TCategoryPanel Top = 0 Caption = 'CategoryPanel1' TabOrder = 0 ExplicitWidth = 174 end object CategoryPanel2: TCategoryPanel Top = 200 Caption = 'CategoryPanel2' TabOrder = 1 ExplicitWidth = 174 end object CategoryPanel3: TCategoryPanel Top = 400 Caption = 'CategoryPanel3' TabOrder = 2 ExplicitWidth = 174 end end object RadioGroup1: TRadioGroup Left = 222 Top = 9 Width = 104 Height = 97 Caption = 'RadioGroup1' TabOrder = 1 OnClick = RadioGroup1Click end object RadioGroup2: TRadioGroup Left = 222 Top = 121 Width = 104 Height = 80 Caption = 'RadioGroup2' TabOrder = 2 OnClick = RadioGroup2Click end end
相关文章推荐
- Delphi 2009 之 TCategoryPanelGroup[4]: Height
- Delphi 2009 之 TCategoryPanelGroup[4]: Height
- Delphi 2009 之 TCategoryPanelGroup[5]: HeaderStyle
- Delphi 2009 之 TCategoryPanelGroup[1]: ChevronAlignment 等
- Delphi 2009 之 TCategoryPanelGroup[3]: Color
- Delphi中组件Panel、Splitter、GroupBox、按钮组件(CheckBox...)、计时器、滚动条、多选卡
- DELPHI美化界面(2009开始TPanel增加了ParentBackGround)
- CategoryPanelGroup动态生成节点
- ASCII 码新表 - 包含 Delphi 2009 的 TUnicodeCategory 分类
- Delphi中运行时改变panel的位置及大小(通过wm_SysCommand来实现)
- Delphi2009初体验 - 语言篇 - 智能指针(Smart Pointer)的实现
- SELECT TOP n or SELECT TOP Random n Rows From a Table For Each Category or Group
- 六、Delphi 2009 泛型容器单元(Generics.Collections)[5]: TObject...<T> 系列
- Delphi2009下开发注意事项
- delphi 2009 IdSMTP 發郵件中文亂碼問題
- ASM丢失disk header导致ORA-15032、ORA-15040、ORA-15042 Diskgroup无法mount
- 自行实现透明的控件如Panel GroupBox
- gridcontrol 之标题 GroupPanel设置 (标题设置,屏蔽右键)
- h:panelGrid、h:panelGroup标签学习
- delphi mongodb 调用group