易语言图标类模块源码

易语言图标类模块源码

系统结构:取文件的图标,通过句柄取图标,从资源载入图标,取图标数量,取高度,取颜色数量,取宽度,取尺寸,取图标的图片,从文件载入图标,绘制图标,清除图标句柄,取图标句柄,取设备场景,删除设备场景,初始化颜色表,CaptureDC,GetBitsAddress,GetBitsSize,BytesPerLine,Create,SetPixelColor,GetBitmapInfoAddress,GetWidth,GetHeight,WIDTHBYTES,GetColorTableAddress,GetBitCount,BMP文件头转字节集,BMP信息头转字节集,CNoColorTable,GetColorTableSize,NumDIBColorEntries,Write,CreateIconFromResourceEx,DrawIconEx,DestroyIcon,CopyMemory,CopyMemory_图标数量,CopyMemory_图标结构,取设备场景_,DeleteDC,SHGetFileInfo,CreateCompatibleDC,CreateCompatibleBitmap,SelectObject,CreateSolidBrush,FillRect,ReleaseDC,DeleteObject,CreateDIBSection,BitBlt,GdiFlush,memcpy,lstrcpyn,

======程序集1
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======图标类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 取文件的图标
| |
| |------ 通过句柄取图标
| |
| |------ 从资源载入图标
| |
| |------ 取图标数量
| |
| |------ 取高度
| |
| |------ 取颜色数量
| |
| |------ 取宽度
| |
| |------ 取尺寸
| |
| |------ 取图标的图片
| |
| |------ 从文件载入图标
| |
| |------ 绘制图标
| |
| |------ 清除图标句柄
| |
| |------ 取图标句柄
| |
| |------ 取设备场景
| |
| |------ 删除设备场景
| |
| |
======窗口程序集1
| |
| |------ _按钮1_被单击
| |
| |------ _窗口1_创建完毕
| |
| |------ _按钮2_被单击
| |
| |------ _编辑框1_内容被改变
| |
| |------ _按钮3_被单击
| |
| |------ _按钮4_被单击
| |
| |
======位图操作类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ 初始化颜色表
| |
| |------ CaptureDC
| |
| |------ GetBitsAddress
| |
| |------ GetBitsSize
| |
| |------ BytesPerLine
| |
| |------ Create
| |
| |------ SetPixelColor
| |
| |------ GetBitmapInfoAddress
| |
| |------ GetWidth
| |
| |------ GetHeight
| |
| |------ WIDTHBYTES
| |
| |------ GetColorTableAddress
| |
| |------ GetBitCount
| |
| |------ BMP文件头转字节集
| |
| |------ BMP信息头转字节集
| |
| |------ CNoColorTable
| |
| |------ GetColorTableSize
| |
| |------ NumDIBColorEntries
| |
| |------ Write
| |
| |
======调用的Dll
| |
| |---[dll]------ CreateIconFromResourceEx
| |
| |---[dll]------ DrawIconEx
| |
| |---[dll]------ DestroyIcon
| |
| |---[dll]------ CopyMemory
| |
| |---[dll]------ CopyMemory_图标数量
| |
| |---[dll]------ CopyMemory_图标结构
| |
| |---[dll]------ 取设备场景_
| |
| |---[dll]------ DeleteDC
| |
| |---[dll]------ SHGetFileInfo
| |
| |---[dll]------ CreateCompatibleDC
| |
| |---[dll]------ CreateCompatibleBitmap
| |
| |---[dll]------ SelectObject
| |
| |---[dll]------ CreateSolidBrush
| |
| |---[dll]------ FillRect
| |
| |---[dll]------ ReleaseDC
| |
| |---[dll]------ DeleteObject
| |
| |---[dll]------ CreateDIBSection
| |
| |---[dll]------ BitBlt
| |
| |---[dll]------ GdiFlush
| |
| |---[dll]------ memcpy
| |
| |---[dll]------ lstrcpyn

调用的DLL命令:

.DLL命令 CreateIconFromResourceEx, 整数型, "user32", "CreateIconFromResourceEx"
.参数 presbits, 字节集, 传址
.参数 dwResSize, 整数型
.参数 fIcon, 整数型
.参数 dwVer, 整数型
.参数 cxDesired, 整数型
.参数 cyDesired, 整数型
.参数 uFlags, 整数型

.DLL命令 DrawIconEx, 整数型, "user32.dll", "DrawIconEx"
.参数 hdc, 整数型
.参数 xLeft, 整数型
.参数 yTop, 整数型
.参数 hIcon, 整数型
.参数 cxWidth, 整数型
.参数 cyWidth, 整数型
.参数 istepIfAniCur, 整数型
.参数 hbrFlickerFreeDraw, 整数型
.参数 diFlags, 整数型

.DLL命令 DestroyIcon, 整数型, "user32", "DestroyIcon"
.参数 hIcon, 整数型

.DLL命令 CopyMemory, , "kernel32.dll", "RtlMoveMemory"
.参数 Destination, 字节集, 传址
.参数 Source, 整数型, 传址
.参数 Length, 整数型

.DLL命令 CopyMemory_图标数量, , "kernel32.dll", "RtlMoveMemory"
.参数 Destination, 整数型, 传址
.参数 Source, 整数型, 传址
.参数 Length, 整数型

.DLL命令 CopyMemory_图标结构, , "kernel32.dll", "RtlMoveMemory"
.参数 Destination, ICONDIRENTRY, 传址
.参数 Source, 字节集, 传址
.参数 Length, 整数型

.DLL命令 取设备场景_, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景 指定窗口的设备场景句柄，出错则为0
.参数 窗口的句柄, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 DeleteDC, 整数型, "gdi32.dll", "DeleteDC"
.参数 设备场景句柄, 整数型, , hdc，将要删除的设备场景

.DLL命令 SHGetFileInfo, 整数型, , "SHGetFileInfo", 公开
.参数 pszPath, 文本型
.参数 dwFileAttributes, 整数型
.参数 psfi, SHFILEINFO
.参数 cbFileInfo, 整数型
.参数 uFlags, 整数型

.DLL命令 CreateCompatibleDC, 整数型, "gdi32.dll", "CreateCompatibleDC", 公开, 新设备场景句柄，若出错则为零
.参数 hdc, 整数型, , hdc，源设备场景句柄

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32.dll", "CreateCompatibleBitmap", 公开, 执行成功返回位图句柄，零表示失败
.参数 hdc, 整数型, , 设备场景句柄
.参数 nWidth, 整数型, , 位图宽度
.参数 nHeight, 整数型, , 位图高度

.DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject", 公开, 每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等。一次选入设备场景的只能有一个对象。选定的对象会在设备场景的绘图操作中使用。例如，当前选定的画笔决定了在设备场景中描绘的线段颜色及样式,与以前选入设备场景的相同hObject类型的一个对象的句柄，零表示出错。如选定的对象是一个区域（Region），结果就是下列常数之一：SIMPLEREGION， COMPLEXREGION 或 NULLREGION 对区域进行描述， GDI_ERROR 表示出错
.参数 hdc, 整数型, , 一个设备场景的句柄
.参数 hObject, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄

.DLL命令 CreateSolidBrush, 整数型, "gdi32.dll", "CreateSolidBrush", 公开
.参数 crColor, 整数型

.DLL命令 FillRect, 整数型, "user32.dll", "FillRect"
.参数 hdc, 整数型
.参数 lpRect, RECT, 传址
.参数 hBrush, 整数型

.DLL命令 ReleaseDC, 逻辑型, "user32.dll", "ReleaseDC"
.参数 hwnd, 整数型
.参数 hDC, 整数型

.DLL命令 DeleteObject, 整数型, "gdi32.dll", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放,非零表示成功，零表示失败
.参数 hObject, 整数型, , 一个GDI对象的句柄

.DLL命令 CreateDIBSection, 整数型, "gdi32.dll", "CreateDIBSection"
.参数 hDC, 整数型
.参数 pBitmapInfo, 字节集, 传址
.参数 un, 整数型
.参数 lplpVoid, 整数型, 传址
.参数 handle, 整数型
.参数 dw, 整数型

.DLL命令 BitBlt, 整数型, "gdi32.dll", "BitBlt"
.参数 hDestDC, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 hSrcDC, 整数型
.参数 xSrc, 整数型
.参数 ySrc, 整数型
.参数 dwRop, 整数型

.DLL命令 GdiFlush, 整数型, "gdi32.dll", "GdiFlush", , 执行任何未决的绘图操作,如所有未决的绘图操作都成功完成，就返回TRUE（非零）。如任何一个操作失败，就返回零值

.DLL命令 memcpy, , "Kernel32.dll", "RtlMoveMemory", , 复制内存(无返回值)
.参数 Destination, 整数型, , 目的指针
.参数 Source, 整数型, , 源指针
.参数 Length, 整数型, , 复制长度

.DLL命令 lstrcpyn, 整数型, "kernel32.dll", "lstrcpyn", , 取变量地址,返回内存地址(此API还有其他作用)
.参数 lpString1, 字节集, 传址, 欲取其指针的变量,一定要传址
.参数 lpString2, 字节集, 传址, 欲取其指针的变量一定要传址.重复一次
.参数 iMaxLength, 整数型, , 这里无用,给0