易语言仿WIN7桌面日历源码

系统结构:置PNG外形,取星期,圆角化,我要透明,GdiplusStartup,GdiplusShutdown,GetDC,GdipCreateFromHDC,GlobalAlloc,GlobalLock,GlobalUnlock,CreateStreamOnHGlobal,GdipGetImageHeight,GdipGetImageWidth,GdipLoadImageFromStream,GdipGetImageDimension,MoveWindow,GetWindowRect,GlobalFree,CreateCompatibleDC,CreateDIBSection,SelectObject,GdipDrawImageRect,GetWindowLong,UpdateLayeredWindow,DeleteDC,ReleaseDC,DeleteObject,SetWindowLong,GdipDisposeImage,GdipDeleteGraphics,CreateRoundRectRgn,SetWindowRgn,设置透明,取窗口风格,置窗口风格,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 置PNG外形
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _小工具_创建完毕
           |  |
           |  |------ 取星期
           |  |
           |  |------ _小工具_位置被改变
           |  |
           |  |------ _小工具_首次激活
           |  |
           |  |------ 圆角化
           |  |
           |  |------ _小工具_鼠标右键被按下
           |  |
           |  |------ _分_鼠标右键被按下
           |  |
           |  |------ _星期_鼠标右键被按下
           |  |
           |  |------ _日期_鼠标右键被按下
           |  |
           |  |------ _更换底色_被选择
           |  |
           |  |------ _退出小工具_被选择
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 我要透明
           |  |
           |  |------ _透明30_被选择
           |  |
           |  |------ _透明50_被选择
           |  |
           |  |------ _透明80_被选择
           |  |
           |  |------ _透明10_被选择
           |  |
           |  |------ _透明20_被选择
           |  |
           |  |------ _透明40_被选择
           |  |
           |  |------ _透明60_被选择
           |  |
           |  |------ _透明70_被选择
           |  |
           |  |------ _透明90_被选择
           |  |
           |  |------ _完全不透明_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GdiplusStartup
           |  |
           |  |---[dll]------   GdiplusShutdown
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   GdipCreateFromHDC
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   GdipGetImageHeight
           |  |
           |  |---[dll]------   GdipGetImageWidth
           |  |
           |  |---[dll]------   GdipLoadImageFromStream
           |  |
           |  |---[dll]------   GdipGetImageDimension
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   CreateDIBSection
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   GdipDrawImageRect
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   UpdateLayeredWindow
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GdipDisposeImage
           |  |
           |  |---[dll]------   GdipDeleteGraphics
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   设置透明
           |  |
           |  |---[dll]------   取窗口风格
           |  |
           |  |---[dll]------   置窗口风格

  

调用的DLL命令:

.DLL命令 GdiplusStartup, 整数型, "gdiplus.dll", "GdiplusStartup"
    .参数 token, 整数型, 传址
    .参数 inputbuf, GdiplusStartupInput
    .参数 outputbuf, 整数型

.DLL命令 GdiplusShutdown, , "gdiplus.dll", "GdiplusShutdown"
    .参数 token, 整数型

.DLL命令 GetDC, 整数型, , "GetDC"
    .参数 hwnd, 整数型

.DLL命令 GdipCreateFromHDC, 整数型, "GdiPlus.dll", "GdipCreateFromHDC"
    .参数 hdc, 整数型
    .参数 graphics, 整数型, 传址

.DLL命令 GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, , "GlobalLock"
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 整数型, , "GlobalUnlock"
    .参数 hMem, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "Ole32.dll", "CreateStreamOnHGlobal"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址

.DLL命令 GdipGetImageHeight, 整数型, "gdiplus", "GdipGetImageHeight", , 取Image高度
    .参数 image, 整数型
    .参数 Height, 整数型, 传址

.DLL命令 GdipGetImageWidth, 整数型, "gdiplus", "GdipGetImageWidth", , 取Image宽度
    .参数 image, 整数型
    .参数 Width, 整数型, 传址

.DLL命令 GdipLoadImageFromStream, 整数型, "GdiPlus.dll", "GdipLoadImageFromStream"
    .参数 stream, 整数型
    .参数 image, 整数型, 传址

.DLL命令 GdipGetImageDimension, 整数型, "GdiPlus.dll", "GdipGetImageDimension"
    .参数 image, 整数型
    .参数 width, 小数型, 传址
    .参数 height, 小数型, 传址

.DLL命令 MoveWindow, 整数型, , "MoveWindow", , 改变指定窗口的位置和尺寸
    .参数 hWnd, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHaight, 整数型
    .参数 bRepaint, 逻辑型, , 真为刷新

.DLL命令 GetWindowRect, , , "GetWindowRect"
    .参数 hWnd, 整数型
    .参数 lpRect, 矩形, 传址

.DLL命令 GlobalFree, 整数型, , "GlobalFree"
    .参数 hMem, 整数型

.DLL命令 CreateCompatibleDC, 整数型, , "CreateCompatibleDC"
    .参数 hdc, 整数型

.DLL命令 CreateDIBSection, 整数型, "gdi32.dll", "CreateDIBSection", , 该函数创建应用程序可以直接写入的、与设备无关的位图（DIB）。一般情况下后面4参数都为NULL
    .参数 hdc, 整数型, , 设备环境句柄。如果iUsage的值是DIB＿PAL＿COLORS，那么函数使用该设备环境的逻辑调色板对与设备无关位图的颜色进行初始化。
    .参数 pbmi, BITMAPINFO, , 指向BITMAPINFO结构的指针，该结构指定了与设备无关位图的各种属性，其中包括位图的维数和颜色。
    .参数 iUsage, 整数型, , 指定由pbmi参数指定的BITMAPINFO结构中的成员bmiColors数组包含的数据类型（要么是逻辑调色板索引值，要么是原文的RGB值）。
    .参数 ppvBits, 整数型, , 指向一个变量的指针，该变量接收一个指向DIB位数据值的指针。
    .参数 hSection, 整数型, , 文件映射对象的句柄。函数将使用该对象来创建DIB（与设备无关位图）。该参数可以是NULL。
    .参数 dwOffset, 整数型, , 如果hSection为NULL，那么系统将为与设备无关位图（DIB）分配内存。在这种情况下，函数CreateDIBSection将忽略参数dwOffset，应用程序无法在以后获取指向内存的句柄。通过调用GetObject函数来填充的DIBSECTION结构成员dshSection也将成为NULL。

.DLL命令 SelectObject, 整数型, , "SelectObject"
    .参数 hdc, 整数型, , 一个设备场景的句柄
    .参数 hObject, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄

.DLL命令 GdipDrawImageRect, 整数型, "GdiPlus.dll", "GdipDrawImageRect"
    .参数 graphics, 整数型
    .参数 image, 整数型
    .参数 x, 小数型
    .参数 y, 小数型
    .参数 width, 小数型
    .参数 height, 小数型

.DLL命令 GetWindowLong, 整数型, "user32.dll", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 UpdateLayeredWindow, 整数型, , "UpdateLayeredWindow"
    .参数 hwnd, 整数型, , 当前窗口的句柄
    .参数 hdcDst, 整数型, , 当前窗口的DC
    .参数 pptDst, POINT, , 当前窗口在屏幕的左上角位置(相当于 ::SetWindowPos()函数)
    .参数 psize, SIZE, , 当前窗口在的宽度和高度
    .参数 hdcSrc, 整数型, , 内存缓存DC
    .参数 pptSrc, POINT, , 内存缓存的左上角坐标(可用于裁剪内存缓存)
    .参数 crKey, 整数型
    .参数 pblend, BLENDFUNCTION, , 混合样式
    .参数 dwFlags, 整数型

.DLL命令 DeleteDC, 整数型, , "DeleteDC"
    .参数 hdc

.DLL命令 ReleaseDC, , , "ReleaseDC"
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄

.DLL命令 DeleteObject, 整数型, , "DeleteObject"
    .参数 hdc

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GdipDisposeImage, 整数型, "gdiplus.dll", "GdipDisposeImage"
    .参数 image, 整数型

.DLL命令 GdipDeleteGraphics, 整数型, "gdiplus"
    .参数 graphics, 整数型

.DLL命令 CreateRoundRectRgn, 整数型, , , , 失败为0
    .参数 x1, 整数型
    .参数 y1, 整数型
    .参数 x2, 整数型
    .参数 y2, 整数型
    .参数 x3, 整数型
    .参数 y3, 整数型

.DLL命令 SetWindowRgn, 整数型, , , , 失败为0
    .参数 hwnd, 整数型
    .参数 hRgn, 整数型
    .参数 bRedraw, 逻辑型

.DLL命令 设置透明, 整数型, , "SetLayeredWindowAttributes"
    .参数 hwnd, 整数型
    .参数 crkey, 整数型
    .参数 alpha, 字节型
    .参数 dwflags, 整数型

.DLL命令 取窗口风格, 整数型, , "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 置窗口风格, 整数型, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nindex, 整数型
    .参数 hnew, 整数型