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

继承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  点击打开链接