aardio - 日历

于 2024-06-21 07:28:04 发布
阅读量322 收藏
点赞数 1
分类专栏： aardio 文章标签： aardio
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/sdlgq/article/details/139847451
版权

写了个日历小例程，因 lunar 农历库存在问题，经过研究算是变相解决了，日历也完成了雏形，先开源出来，感兴趣的玩玩。

请下载最新paint库、customPlus库、lunar库。

不同的颜色搭配，实现不同的风格：

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=657;bottom=596)
winform.add(
plus={cls="plus";left=36;top=26;right=330;bottom=303;autohscroll=false;autovscroll=false;dl=1;dt=1;notify=1;z=1}
)
/*}}*/

winform.show();
import godking.customPlus;
var itemModel = {
        {   /* 矩形元素定义 */
            type="rect",  /* 类型：rect */
            rectf={x=3;y=3;width=-3;height=-3},  /* 矩形区域范围。负数表示距离项目右边或底边的距离。 */
            width=1,     /* 边框宽度。为0则无边框。  */
            round=5,     /* 圆角半径。0为矩形，-1为椭圆，其他值(>0)为圆角矩形。 */
            fillcolor=0x55FFFFFF,          /* 正常状态下，填充颜色 */
            itemhoverfillcolor=0x887FFFD4,       /* 鼠标划过项目时，填充颜色 */
            itemselectedfillcolor=0x887FFFD4,    /* 项目选中时，填充颜色 */
        }
         {
             type="text",  /* 类型：text */
             rectf={x=5;y=5;width=-10;height=20},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="lunar",
             text="",  /* 正常状态下文本 */
             font={name="宋体",point=10,color=0xBB2288FF},            /* 正常状态下字体 */
        }
        {   /* 矩形元素定义 */
            type="rect",  /* 类型：rect */
            rectf={x=-20;y=0;width=20;height=20},  /* 矩形区域范围。负数表示距离项目右边或底边的距离。 */
            name = "xiukuang";
            width=1,     /* 边框宽度。为0则无边框。  */
            round=-1,     /* 圆角半径。0为矩形，-1为椭圆，其他值(>0)为圆角矩形。 */
            color=0;
            fillcolor=0,          /* 正常状态下，填充颜色 */
        }        
         {
             type="text",  /* 类型：text */
             rectf={x=-19;y=2;width=20;height=20},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="xiu",
             smooth = true;
             align=1;
             valign=1;
             text="",  /* 正常状态下文本 */
             font={name="黑体",point=11,color=0xFFFF0000},            /* 正常状态下字体 */
        }
         {
             type="text",  /* 类型：text */
             rectf={x=1;y=-25;width=-1;height=25},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="festival",
             align=1,        /* 文本水平对齐方式。0、(近端)左对齐  1、居中  2、(远端)右对齐 */
             valign=1,       /* 文本垂直对齐方式。0、(近端)顶对齐  1、居中  2、(远端)底对齐 */
             text="",  /* 正常状态下文本 */
             font={name="宋体",point=10,color=0x88000000},            /* 正常状态下字体 */
         }
         {
             type="text",  /* 类型：text */
             rectf={x=1;y=5;width=-1;height=-1},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="day",
             cur=32649,   /* 鼠标指针，_IDC_ 开头的常量。 */
             align=1,        /* 文本水平对齐方式。0、(近端)左对齐  1、居中  2、(远端)右对齐 */
             valign=1,       /* 文本垂直对齐方式。0、(近端)顶对齐  1、居中  2、(远端)底对齐 */
             smooth=true,    /* 使用平滑效果，抗锯齿 */
             text="",  /* 正常状态下文本 */
             font={name="Arial",point=30,color=0xFFFF5566},            /* 正常状态下字体 */
             hoverfont=null,       /* 鼠标划过元素时字体 */
             checkedfont=null,     /* 元素被选择时字体 */
             itemhoverfont=null,   /* 鼠标划过项目时字体 */
             itemselectedfont=null,/* 项目选中时字体 */
             disabledfont=null,    /* 项目禁用时字体 */
         }        
}
var c = godking.customPlus(winform.plus,itemModel,,{
    itemWidth=80,     /*项目最小宽度，为0时根据colnum自动计算，所以不能与colnum同时=0*/
    itemHeight=80,    /*项目最小高度，为0时根据rownum自动计算，所以不能与rownum同时=0*/
    autoSizeWidth=false,    /*为true则自动将项目总宽度拉伸填满plus宽度，每个项目宽度不小于itemWidth*/
    autoSizeHeight=false,    /*为true则自动将项目总高度拉伸填满plus高度，每个项目高度不小于itemHeight*/
    rownum=0,     /*项目行数，为0时根据itemHeight自动计算，所以不能与itemHeight同时=0*/
    colnum=7,     /*项目列数，为0时根据itemWidth自动计算，所以不能与itemWidth同时=0*/
    padLeft=10,    /*plus左边空白距离*/
    padTop=50,    /*plus顶边空白距离*/
    padRight=10,    /*plus右边空白距离*/
    padBottom=10, /*plus底边空白距离*/
    autoFit=true,     /*是否自动调整plus组件宽度或高度（其中之一），保证能刚好显示全部行或列*/
                    /*当 itemHeight>0 且 colnum>0 且 rownum=0 时，自动调整plus高度，以能显示全部行*/
                    /*当 itemWidth>0 且 rownum>0 且 colnum=0 时，自动调整plus宽度，以能显示全部列*/
    vertical=false, /*是否将项目设置为竖向排列，行滚动方向设置为横向*/
    bkcolor=0xFFFFFFFFFF, /*背景颜色*/
    bkimg="https://img2.baidu.com/it/u=555782348,2262853825&fm=253&fmt=auto&app=138&f=JPEG?w=760&h=380", /*背景图像*/
    bkimgmode=0, /*背景图平铺模式。0：拉伸填满；1：左上角；2：居中*/
    singleCheck=0,/*元素check单选模式。0:多选；1:每个项目内单选；2:整个列表单选*/
})
c.hide();
var tm = ..time.now();
c.onDrawPageBegin = function(paint){
    paint = toPaint(paint); /*绑定paint对象的智能提示，方便输入后续代码。发布时可屏蔽此行。*/
    paint.textAntiAlias=false;
    for(i=1;7;1){
        var color,fillcolor = 0xFF000000,0x531490B3;
        if i==1 or i==7 { color=0xFFFFFFFF; fillcolor=0xFFB31469 };
        var rectf = ::RECTF((i-1)*80+12,10/*y1*/,76/*x2*/,36);
        paint.fillRoundRectF(rectf,8/*圆角半径*/,fillcolor);
        rectf.y = rectf.y+2;
        paint.drawTextF(rectf,"星期"++({"日","一","二","三","四","五","六"})[i],::LOGFONT(name="宋体";h=16;color=color;brush=null),0,1,1)
    }
}
c.onDrawItemBegin = function(paint){
    paint = toPaint(paint); /*绑定paint对象的智能提示，方便输入后续代码。发布时可屏蔽此行。*/
    paint.drawTextF(0,50,c.plus.width,c.plus.height,tostring(tm.month),::LOGFONT(name="Arial";h=350;color=0x55EEEEEE),0,1,1)
}
import godking.lunar
var lu = godking.lunar()
var m = lu.SolarMonth.fromYm(tm.year, tm.month)
var days = lu.toTable(m.getDays());
var list = {};
var week = days[1].getWeek();
for(i=1;week;1){
    ..table.push(list,{hide=true})
}
for(i=1;#days;1){
    var day = tostring(days[i].getDay());
    var lunar = days[i].getLunar();
    var festival = string.join(lu.toTable(lunar.getFestivals())," ")
    if !#festival {
        festival = string.join(lu.toTable(days[i].getFestivals())," ")
        if !#festival {
             festival = string.join(lu.toTable(days[i].getOtherFestivals())," ")
        } 
    }
    if #festival festival=..string.left(festival,5,true)
    lunar = ..string.split(lunar.toString(),"<年>")[2];
    if days[i].getSalaryRate()>1 {
        ..table.push(list,{day=day,festival=festival,lunar=lunar,xiu="休",xiukuang={color=0xFFFF0000;fillcolor=0xFFFFFFFF}});
    } else {
        ..table.push(list,{day=day,festival=festival,lunar=lunar});
    }
}
c.itemList = list;
c.selectedIndex = week + tm.day;
c.show();
win.loopMessage();

 

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=657;bottom=596;bgcolor=16777215)
winform.add(
plus={cls="plus";left=36;top=26;right=330;bottom=303;autohscroll=false;autovscroll=false;dl=1;dt=1;notify=1;z=1}
)
/*}}*/

winform.show();
import godking.customPlus;
var itemModel = {
        {   /* 矩形元素定义 */
            type="rect",  /* 类型：rect */
            rectf={x=3;y=3;width=-3;height=-3},  /* 矩形区域范围。负数表示距离项目右边或底边的距离。 */
            width=1,     /* 边框宽度。为0则无边框。  */
            round=5,     /* 圆角半径。0为矩形，-1为椭圆，其他值(>0)为圆角矩形。 */
            fillcolor=0x55FFFFFF,          /* 正常状态下，填充颜色 */
            itemhoverfillcolor=0x887FFFD4,       /* 鼠标划过项目时，填充颜色 */
            itemselectedfillcolor=0x887FFFD4,    /* 项目选中时，填充颜色 */
        }
         {
             type="text",  /* 类型：text */
             rectf={x=5;y=5;width=-10;height=20},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="lunar",
             text="",  /* 正常状态下文本 */
             font={name="宋体",point=10,color=0xBB2288FF},            /* 正常状态下字体 */
        }
        {   /* 矩形元素定义 */
            type="rect",  /* 类型：rect */
            rectf={x=-20;y=0;width=20;height=20},  /* 矩形区域范围。负数表示距离项目右边或底边的距离。 */
            name = "xiukuang";
            width=1,     /* 边框宽度。为0则无边框。  */
            round=-1,     /* 圆角半径。0为矩形，-1为椭圆，其他值(>0)为圆角矩形。 */
            color=0;
            fillcolor=0,          /* 正常状态下，填充颜色 */
        }        
         {
             type="text",  /* 类型：text */
             rectf={x=-19;y=2;width=20;height=20},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="xiu",
             smooth = true;
             align=1;
             valign=1;
             text="",  /* 正常状态下文本 */
             font={name="黑体",point=11,color=0xFF880000},            /* 正常状态下字体 */
        }
         {
             type="text",  /* 类型：text */
             rectf={x=1;y=-25;width=-1;height=25},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="festival",
             align=1,        /* 文本水平对齐方式。0、(近端)左对齐  1、居中  2、(远端)右对齐 */
             valign=1,       /* 文本垂直对齐方式。0、(近端)顶对齐  1、居中  2、(远端)底对齐 */
             text="",  /* 正常状态下文本 */
             font={name="宋体",point=10,color=0x88000000},            /* 正常状态下字体 */
         }
         {
             type="text",  /* 类型：text */
             rectf={x=1;y=5;width=-1;height=-1},  /*  文本范围。负数表示距离项目右边的距离。 */
             name="day",
             cur=32649,   /* 鼠标指针，_IDC_ 开头的常量。 */
             align=1,        /* 文本水平对齐方式。0、(近端)左对齐  1、居中  2、(远端)右对齐 */
             valign=1,       /* 文本垂直对齐方式。0、(近端)顶对齐  1、居中  2、(远端)底对齐 */
             smooth=true,    /* 使用平滑效果，抗锯齿 */
             text="",  /* 正常状态下文本 */
             font={name="Arial",point=30,color=0xFF555555},            /* 正常状态下字体 */
             hoverfont=null,       /* 鼠标划过元素时字体 */
             checkedfont=null,     /* 元素被选择时字体 */
             itemhoverfont=null,   /* 鼠标划过项目时字体 */
             itemselectedfont=null,/* 项目选中时字体 */
             disabledfont=null,    /* 项目禁用时字体 */
         }        
}
var c = godking.customPlus(winform.plus,itemModel,,{
    itemWidth=80,     /*项目最小宽度，为0时根据colnum自动计算，所以不能与colnum同时=0*/
    itemHeight=80,    /*项目最小高度，为0时根据rownum自动计算，所以不能与rownum同时=0*/
    autoSizeWidth=false,    /*为true则自动将项目总宽度拉伸填满plus宽度，每个项目宽度不小于itemWidth*/
    autoSizeHeight=false,    /*为true则自动将项目总高度拉伸填满plus高度，每个项目高度不小于itemHeight*/
    rownum=0,     /*项目行数，为0时根据itemHeight自动计算，所以不能与itemHeight同时=0*/
    colnum=7,     /*项目列数，为0时根据itemWidth自动计算，所以不能与itemWidth同时=0*/
    padLeft=10,    /*plus左边空白距离*/
    padTop=50,    /*plus顶边空白距离*/
    padRight=10,    /*plus右边空白距离*/
    padBottom=10, /*plus底边空白距离*/
    autoFit=true,     /*是否自动调整plus组件宽度或高度（其中之一），保证能刚好显示全部行或列*/
                    /*当 itemHeight>0 且 colnum>0 且 rownum=0 时，自动调整plus高度，以能显示全部行*/
                    /*当 itemWidth>0 且 rownum>0 且 colnum=0 时，自动调整plus宽度，以能显示全部列*/
    vertical=false, /*是否将项目设置为竖向排列，行滚动方向设置为横向*/
    bkcolor=0xFFFFFFFFFF, /*背景颜色*/
    bkimg="https://img.tukuppt.com/bg_grid/00/14/08/Z4rmvf5vYk.jpg%21/fh/350", /*背景图像*/
    bkimgmode=0, /*背景图平铺模式。0：拉伸填满；1：左上角；2：居中*/
    singleCheck=0,/*元素check单选模式。0:多选；1:每个项目内单选；2:整个列表单选*/
})
c.hide();
var tm = ..time.now();
c.onDrawPageBegin = function(paint){
    paint = toPaint(paint); /*绑定paint对象的智能提示，方便输入后续代码。发布时可屏蔽此行。*/
    paint.textAntiAlias=false;
    for(i=1;7;1){
        var color,fillcolor = 0xFF000000,0x531490B3;
        if i==1 or i==7 { color=0xFFFFFFFF; fillcolor=0xFFB31469 };
        var rectf = ::RECTF((i-1)*80+12,10/*y1*/,76/*x2*/,36);
        paint.fillRoundRectF(rectf,8/*圆角半径*/,fillcolor);
        rectf.y = rectf.y+2;
        paint.drawTextF(rectf,"星期"++({"日","一","二","三","四","五","六"})[i],::LOGFONT(name="宋体";h=16;color=color;brush=null),0,1,1)
    }
}
c.onDrawItemBegin = function(paint){
    paint = toPaint(paint); /*绑定paint对象的智能提示，方便输入后续代码。发布时可屏蔽此行。*/
    paint.drawTextF(0,50,c.plus.width,c.plus.height,tostring(tm.month),::LOGFONT(name="Arial";h=350;color=0x88555555),0,1,1)
}
import godking.lunar
var lu = godking.lunar()
var m = lu.SolarMonth.fromYm(tm.year, tm.month)
var days = lu.toTable(m.getDays());
var list = {};
var week = days[1].getWeek();
for(i=1;week;1){
    ..table.push(list,{hide=true})
}
for(i=1;#days;1){
    var day = tostring(days[i].getDay());
    var lunar = days[i].getLunar();
    var festival = string.join(lu.toTable(lunar.getFestivals())," ")
    if !#festival {
        festival = string.join(lu.toTable(days[i].getFestivals())," ")
        if !#festival {
             festival = string.join(lu.toTable(days[i].getOtherFestivals())," ")
        } 
    }
    if #festival festival=..string.left(festival,5,true)
    lunar = ..string.split(lunar.toString(),"<年>")[2];
    if days[i].getSalaryRate()>1 {
        ..table.push(list,{day=day,festival=festival,lunar=lunar,xiu="休",xiukuang={color=0xFF550000;fillcolor=0xFFFFFFFF}});
    } else {
        ..table.push(list,{day=day,festival=festival,lunar=lunar});
    }
}
c.itemList = list;
c.selectedIndex = week + tm.day;
c.show();
win.loopMessage();

卢光庆
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
ios-日历.zip
07-11
在iOS开发中，日历功能是一项非常常见的需求，它允许用户查看、选择和管理日期。在iOS应用中实现日历功能通常涉及到`EventKit`框架的使用，该框架提供了访问系统日历并进行操作的能力。以下是一些关于如何在iOS应用...
微信小程序-日历.zip
05-10
要实现一个日历，就需要先知道几个值： 当月有多少天 当月第一天星期几 根据常识我们得知，每月最多31天，最少28天，日历一排7个格子，则会有5排，但若是该月第一天为星期六，则会产生六排格子才对。 小程序没有DOM...
echarts-日历图
王春红的博客
04-20 2291
Echarts实现日历图
漂亮的按钮配色
热门推荐
光庆的学习笔记
09-14 1万+
#4CAF50; #008CBA #f44336 #e7e7e7 #555555
aardio - 【库】customPlus自绘组件库
光庆的学习笔记
11-28 9491
利用aardio的plus组件，通过gdip自绘实现漂亮的列表组件效果。以本库为基础，通过改造项目模板，可实现各种不同风格的列表组件。
aardio - 【库】虚表增强版
光庆的学习笔记
01-20 8919
1、虚表是一个特殊的listview，一些特性可以通用。 2、虚表对大数据比较适合，几百万条数据毫无压力。 3、数据量大的情况下（过几十万数据）：虚表占用内存非常少，加载速度也非常快。listview 占内存非常多，加载速度非常慢。 4、数据在内存中处理速度是很快的，我们看到的慢，一般是加载到组件中并显示出来这段时间太长。.........
aardio - 【库】sunny网络中间件
光庆的学习笔记
02-25 7161
一：SUNNY网络中间件是什么： Sunny网络中间件 和 Fiddler 模块类似。是可跨平台的网络分析组件。可用于 HTTP / HTTPS / WS / WSS / TCP 网络分析，无内存泄漏，为二次开发量身制作。 Sunny项目主要用于易语言(其他语言也可使用)目前免费且开源。应dio友需求，我将他封装为aardio库，供有此功能需求的dio友们下载使用。 SDK功能: 1.支持 获取/修改 HTTP/HTTPS/WS/WSS/TCP 发送及返回数据 2.支持 HTTP/HTTPS/W.
aardio - API调用分析
光庆的学习笔记
01-11 6713
Aardio - API调用分析，欢迎各位aardio爱好者交流,共同研究aardio,知对改错,共同进步。
aardio - 【库】内存画板 paint
光庆的学习笔记
11-25 6444
​“光庆画板” 与 “简单画板” 功能类似。之所以做这个版本，是因为其与简单画板功能倾向不同：光庆画板 paint 主打内存绘图，简单画板 paintEx 主打plus绘图。
aardio - 【库】易高级表格库
光庆的学习笔记
06-05 6187
易语言高级表格，封装为aardio可用的dll库。
aardio - 【库】libxl库，一个dll操作excel
光庆的学习笔记
12-19 5381
大名鼎鼎的libxl，封装为aardio库，便于使用
aardio - vlist虚表控件的使用
光庆的学习笔记
01-20 4948
虚表，是一个特殊的 listview。 注意事项： 1、虚表控件要在 mainform 窗体中添加，添加一个custom后，将其类名（cls）改为 vlist 即可。 2、虚表是一个 listview，因为封装的较为简单，很多属性方法未在智能提示中列出，可以参考 listview 手动输入即可，比如 .fullRow 、 setColumns（）等。 3、虚表设置内容时，不可以用setTable（），而是要用createTableAdapter等函数，因为里面封装了count（），getItem.
aardio - 巧用字符分隔符\u0001
光庆的学习笔记
10-11 4461
在使用简单画板写古诗词效果过程中，遇到一个问题，就是文本换行时，如果行首为标点符号，会自动将上一行最后一个文字移到这行的标点符号前。这样，上一行末尾就有一个空缺了，不是很美观。当然，这符合语文写作规则 ^-^ 我在尝试，是不是有什么设置选项，可以强行将标点符号放到行首。经测试没找到办法，于是想，自己写几句代码，强行分隔一下试试。 于是有了以下想法： var text = `庆历四年春，滕子京谪守巴陵郡。越明年，政通人和，百废具兴，乃重修岳阳楼，增其旧制，刻唐贤今人诗赋于其上，......
aardio - 【库】扩展函数库
光庆的学习笔记
01-10 3736
自定义库 ，实现扩展系统函数。
aardio - 【开源软件】aardio文件加解密
光庆的学习笔记
12-13 3459
aardio自身的代码编译，有以下缺点：1、安全第一，不能解密。2、编译后，无法识别智能提示信息。所以，我做了改进，变相的实现了上述功能。
aardio - 【库】scottPlot图表控件库
光庆的学习笔记
02-06 3412
ScottPlot是个非常不错的基于C# 的图表控件库，开源免费，官方的文档和例程也比较丰富，学起来比较容易。封装C#库，我也是第一次尝试，目前还有某些功能不完善，以后慢慢改进。
aardio - 菜单操作
光庆的学习笔记
02-16 3259
关于菜单，功能挺简单，但使用挺复杂。总结了一下：1、注意区分了解主菜单和弹出菜单。主菜单：显示在窗口上。每个菜单项可绑定一个弹出菜单使用。一般主显示。弹出菜单：被主菜单绑定后，点击主菜单项才显示。或执行popup()函数显示。一般主功能。............
aardio - 【库】简单信息框
光庆的学习笔记
03-02 3258
aardio自带的message库很好，但风格为灰色，略显沉重，我将其改为亮色风格，喜欢的可以试用下。
element-ui日历
最新发布
09-21
element-ui日历是一个基于Vue.js的用户界面框架，它提供了一个易于使用和强大的日历组件。通过element-ui日历，您可以以日历形式展现当前页面，用户可以选择日期并进行交互。该组件支持年月的下拉选择，并且可以自定义选中日期的样式以及鼠标移动时日期的样式。此外，您还可以根据具体需求，对有数据的日期进行灰色显示。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

卢光庆

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值