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

layer-date(日期插件的使用方法笔记)

引入layer-date的js,然后就按照下边的注释来配置样式 laydate.skin('danlan'); laydate({    elem: '#slsj', //对应id ...
  • u012992462
  • u012992462
  • 2015年03月30日 10:42
  • 10756

fullCalendar日历上显示数据,“跳转到当天”

问题描述:系统首页-趋势分析日历中的"跳转到当天"功能不正常,从当前的日历中分别点击 到6月、7月,然后从6月、7月分别点击"跳转到当天",最终显示的结果均不正确, 点击(AirForeCastD...
  • u010082526
  • u010082526
  • 2016年08月22日 14:20
  • 1421

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

简单介绍一下CalendarView功能与用法 布局代码
  • qq_34487977
  • qq_34487977
  • 2016年04月21日 19:02
  • 7512

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

新建控件,继承修改控件的实例。
  • lyhoo163
  • lyhoo163
  • 2016年09月16日 10:27
  • 678

Calendar获取月第一天,最后一天

SimpleDateFormat format = new SimpleDateFormat("yyyy-MM-dd");                 //获取前月的第一天       ...
  • anbowing
  • anbowing
  • 2013年08月16日 12:36
  • 18887

android launcher 日历图标显示日期

看到iphone上的日历图标上的数字会随着日期的变化而变化,最近在android平台上也研究了 一下,实现方法如下: 直接上源码 在launcher里改的 首先,在IconCache.java文件中,...
  • tfs080640234
  • tfs080640234
  • 2014年06月04日 16:07
  • 3326

JS中日期默认显示当前日期

有的时候在时间段选择时,需要默认显示当前时间,可以通过在JS中进行控制,也可以通过在后台实现,然后在前台取得后台的日期值,下面的这段代码是在前台JS中默认显示当前日期的代码: ...
  • u012934325
  • u012934325
  • 2016年09月01日 12:09
  • 3297

自定义view---带标签的CalendarView

人老了,就容易暴躁。直接上图,暴躁如我。 功能: 1.当天会有一个蓝色半弧标志 2.如果某一天 签到了,会显示“小爪子”图片 3.如果点击了某一天,则会显示灰色圆形选中状态 ...
  • sinat_26710701
  • sinat_26710701
  • 2017年05月26日 17:34
  • 486

fullcalendar日历控件知识点集合

1、基本语法:        首先,fullcalendar和JQUERY一样,以面向对象的方式来组织代码。当然,这里的面向对象仅仅是指可以把整个fullcalendar理解为一个类,这个类里包...
  • truenaruto
  • truenaruto
  • 2013年01月07日 22:20
  • 560

POWERSHELL命令获取日期是今年的第几周

POWERSHELL获取日期是今年的第几周#POWERSHELL获取日期是今年的第几周 function get-WeekOfYear{ [CmdletBinding(SupportsShou...
  • gaochao515826435
  • gaochao515826435
  • 2017年07月17日 13:41
  • 526
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:继承Tcalendar控件,让当天日期醒目显示
举报原因:
原因补充:

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