文档章节

Delphi 2009 之 TCategoryPanelGroup[3]: Color

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 346
阅读 12
收藏 0
本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ColorGrd;

type
  TForm1 = class(TForm)
    CategoryPanelGroup1: TCategoryPanelGroup;
    CategoryPanel1: TCategoryPanel;
    CategoryPanel2: TCategoryPanel;
    CategoryPanel3: TCategoryPanel;
    RadioGroup1: TRadioGroup;
    ColorGrid1: TColorGrid;
    procedure FormCreate(Sender: TObject);
    procedure ColorGrid1Change(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';

  RadioGroup1.Caption := 'Color';
  with RadioGroup1.Items do
  begin
    Add('CategoryPanelGroup1.ChevronColor');
    Add('CategoryPanelGroup1.ChevronHotColor');
    Add('CategoryPanelGroup1.GradientBaseColor');
    Add('CategoryPanelGroup1.GradientColor');
    Add('CategoryPanelGroup1.Color');
    Add('CategoryPanel1.Color');
    Add('CategoryPanel2.Color');
    Add('CategoryPanel3.Color');
    Add('CategoryPanelGroup1.HeaderFont.Color');
  end;
  RadioGroup1.ItemIndex := 0;

  ColorGrid1.Align := alRight;
  ColorGrid1.Width := 48;
  ColorGrid1.GridOrdering := go2x8;
end;

procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: CategoryPanelGroup1.ChevronColor      := ColorGrid1.ForegroundColor;
    1: CategoryPanelGroup1.ChevronHotColor   := ColorGrid1.ForegroundColor;
    2: CategoryPanelGroup1.GradientBaseColor := ColorGrid1.ForegroundColor;
    3: CategoryPanelGroup1.GradientColor     := ColorGrid1.ForegroundColor;
    4: CategoryPanelGroup1.Color             := ColorGrid1.ForegroundColor;
    5: CategoryPanel1.Color                  := ColorGrid1.ForegroundColor; {刷新后显示}
    6: CategoryPanel2.Color                  := ColorGrid1.ForegroundColor; {刷新后显示}
    7: CategoryPanel3.Color                  := ColorGrid1.ForegroundColor; {刷新后显示}
    8: begin
      CategoryPanelGroup1.HeaderFont.Color := ColorGrid1.ForegroundColor;
      CategoryPanelGroup1.HeaderFont := CategoryPanelGroup1.HeaderFont; {刷新一下}
    end;
  end;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 207
  ClientWidth = 462
  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 = 207
    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
    end
    object CategoryPanel2: TCategoryPanel
      Top = 200
      Caption = 'CategoryPanel2'
      TabOrder = 1
    end
    object CategoryPanel3: TCategoryPanel
      Top = 400
      Caption = 'CategoryPanel3'
      TabOrder = 2
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 183
    Top = 3
    Width = 227
    Height = 198
    Caption = 'RadioGroup1'
    TabOrder = 1
  end
  object ColorGrid1: TColorGrid
    Left = 362
    Top = 24
    Width = 100
    Height = 96
    TabOrder = 2
    OnChange = ColorGrid1Change
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/08/14/1267595.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
GO 语言 UI 组件库 - govcl

由于现有第三方的Go UI库不是太大就是用的不习惯,或者组件太少。就萌生了自己写一个UI库的想法Delphi(Lazarus)有些许多优秀的VCL(LCL)组件,不拿来使用太可惜了。所以就索性做了一套。目前支...

不在乎y
2017/10/10
6.9K
17
delphi各个版本编译开关值

delphi各个版本编译开关值 {$IFDEF VER80} - Delphi 1 {$IFDEF VER90} - Delphi 2 {$IFDEF VER100} - Delphi 3 {$IFDEF VER120} - Delphi 4 {$IFDEF VER130} - Delphi 5 {$IFDEF VER140} - D......

伽罗kapple
2016/03/01
10
0
Delphi 的编译指令(2): 条件语句的更多用法

$IFDEF 等同于 $IF DEFINED(...) : 它们的结束分别是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的标识. begin {$IFDEF VER200} ShowMessage('这是 Delphi 2009'); {$ENDIF} {$IF D......

geek_loser
2015/01/29
0
0
Delphi条件编译时编译器的版本号

更早的版本忽略,我们从2006开始记录,相应的版本号判断方式: VER180 : Delphi 10.0 CodeGear 2006/2007 VER185 : Delphi 11.0 CodeGear 2007 VER190 : Delphi 12.0 CodeGear 2008 VER200 :......

simpower
11/07
0
0
推荐Pascal-Delphi、软件工程;数据库开发 一些编程书

HTF 阅读器下载 IT技术 注意:下面的RAR文件名是网页链接,不RAR源文档,如果弹出下载软件,请单击右键打开新页面再下载。 Pascal-Delphi更新日期:2009-12-514:45:59 总数:12 订阅RSS 《D...

jfyes
2009/12/05
317
0

没有更多内容

加载失败,请刷新页面

加载更多

中国龙-扬科
27分钟前
2
0
使用vuex的state状态对象的5种方式

vuex是一个专门为vue.js设计的状态管理模式,并且也可以使用devtools进行调试。 下面给大家来贴一下我的vuex的结构 下面是store文件夹下的state.js和index.js内容 //state.jsconst state =...

peakedness丶
30分钟前
2
0
NetCore MVC Demo

地址:http://114.116.9.72:5411

whltian
38分钟前
1
0
Netty handle方法周期 (四)

写了一个练习之后,发现自定义的助手类每次肯定是必须的,对于不同的业务逻辑需求,会写相对应的逻辑 最简单的查看Handle生命周期的方式,就是重写上级方法,看名字差不多应该可以知道方法的作用 ...

_大侠__
43分钟前
9
0
vue主动刷新页面及列表数据删除后的刷新实例

1.场景 在处理列表时,常常有删除一条数据或者新增数据之后需要重新刷新当前页面的需求。 2.遇到的问题 1. 用vue-router重新路由到当前页面,页面是不进行刷新的 2.采用window.reload(),或者...

前端小攻略
53分钟前
14
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部