关闭

继承Tcalendar控件,让当天日期醒目显示

标签: DelphiVCL继承控件
509人阅读 评论(0) 收藏 举报
分类:

继承Tcalendar控件,让当天日期醒目显示

    一、新建一控件

    打开Delphi主菜单Cpmponent—New Cpmponent:


    二、配置参数

.        

    点击OK键,打开Unit单元文件。

    三、修改单元文件

unit LyCalendar;


interface

 

uses

 Windows,

 Messages, SysUtils, Variants, Classes, Graphics, Controls, //Forms,

 Dialogs, Grids, Calendar, ComCtrls, StdCtrls,DateUtils;

 

type

 TLyCalendar = class(TCalendar)

 private

    {Private declarations }

 protected

    {Protected declarations }

   procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState:TGridDrawState); override;

 public

    {Public declarations }

 published

    {Published declarations }

 end;

 

procedure Register;

 

implementation

 

procedure Register;

begin

 RegisterComponents('LyComMy', [TLyCalendar]);

end;

 

procedure TLyCalendar.DrawCell(ACol, ARow:Integer; ARect: TRect; AState: TGridDrawState);

var  TheText: string;

    vDay: string;

begin

 TheText := CellText[ACol, ARow];

 vDay := IntToStr(DateUtils.DayOf(Now));

  ifvDay = TheText then

 begin

    //当天显示样式

   Canvas.Font.Color := clRed;

   Canvas.Font.Style:=Canvas.Font.Style+[fsBold];

  end

 else begin

    //被选择日期显示样式

   if  (gdSelected in AState) or(gdFocused in AState) then

   begin

     Canvas.Brush.Color := clBlue;

   end;

 end;

 inherited;

end;

 

end.

    四、安装控件

    1、将新的单元文件,存入C:\ProgramFiles\Borland\Delphi7\Projects\Bpl\ 目录;

    2、打开Delphi主菜单Cpmponent—Insert  Cpmponent:

 

    3、指定安装的参数:

 

    按“OK”键,打开对话框:

 

    按“compile”键,完成安装。

    四、新的控件样式:


    五、源码下载地址:http://download.csdn.net/detail/lyhoo163/9631356  点击打开链接

2
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:30661次
    • 积分:582
    • 等级:
    • 排名:千里之外
    • 原创:27篇
    • 转载:0篇
    • 译文:0篇
    • 评论:9条
    最新评论