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

原创 2016年09月16日 10:27:16

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

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

CalendarView功能与用法(日历视图)

简单介绍一下CalendarView功能与用法 布局代码

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

bootstrap-datepicker插件bug:当天日期偏前或偏后时,选择的日期会出现减少或增加一个月 在选择与今日

1.问题描述: 当天日期偏前或偏后时,选择与今日日期不再同一个月的日期,会出现减少或增加一个月 a. 当前日期是11月1号  我选择10月30号再选择11月1号。显示的日期会是12月1号 b....

C#输入日期显示该日期当天为星期几

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; usin...

用VS_website简单生成当天日期

  • 2014年06月27日 16:13
  • 12KB
  • 下载

Android显示时间和日期的控件的使用总结

Android显示时间和日期的控件的使用总结 相关类的认识 Picker(DatePicker、TimerPicker、NumberPicker)...

根据当天日期创建文本文档

  • 2010年03月23日 12:48
  • 1KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:继承Tcalendar控件,让当天日期醒目显示
举报原因:
原因补充:

(最多只允许输入30个字)