易语言给图片加文本源码

易语言给图片加文本系统结构:取设备场景_,文本绘图_,设置前景色_,释放设备场景_,选入设备场景_,设置背景模式_,使用指定属性创建逻辑字体_,默认光栅运算_,删除对象_,设置窗口标题_, ======窗口程序集1 || ||------_打开图片_被选择 || ||------_加文字到图片_被选择 || ||------_重写_被选择 || ||------_保存图片_被选择 || ||------_透明标签1_鼠标左键被按下 || ||------_透明标签1_鼠标左键被放开 || ||------_时钟1_周期事件 || ||------__启动窗口_创建完毕 || || ======窗口程序集2 || ||------_按钮1_被单击 || ||------_按钮2_被单击 || ||------_颜色选择器1_颜色被改变 || ||------_窗口1_创建完毕 || || ======调用的Dll || ||---[dll]------取设备场景_ || ||---[dll]------文本绘图_ || ||---[dll]------设置前景色_ || ||---[dll]------释放设备场景_ || ||---[dll]------选入设备场景_ || ||---[dll]------设置背景模式_ || ||---[dll]------使用指定属性创建逻辑字体_ || ||---[dll]------默认光栅运算_ || ||---[dll]------删除对象_ || ||---[dll]------设置窗口标题_ 调用的DLL命令: .DLL命令取设备场景_,整数型,"user32","GetDC",,获取指定窗口的设备场景指定窗口的设备场景句柄，出错则为0 .参数窗口的句柄,整数型,,将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC; .DLL命令文本绘图_,整数型,"gdi32.dll","TextOutA",,Long，非零表示成功，零表示失败。会设置GetLastError .参数设备场景,整数型,,hdc，设备场景的句柄 .参数横,整数型,,x，绘图的起点，采用逻辑坐标 .参数纵,整数型,,y，绘图的起点，采用逻辑坐标 .参数内容,文本型,,lpstring，欲描绘的字串 .参数内容数量,整数型,,ncount，字串中要描绘的字符数量 .DLL命令设置前景色_,整数型,"gdi32","SetTextColor" .参数设备场景,整数型 .参数颜色,整数型 .DLL命令释放设备场景_,整数型,"user32","ReleaseDC",,ReleaseDC .参数窗口句柄,整数型,,hwnd，要释放的设备场景相关的窗口句柄 .参数设备场景,整数型,,hdc，要释放的设备场景句柄 .DLL命令选入设备场景_,整数型,"gdi32.dll","SelectObject",,将指定的GDI对象选入场景,返回场景原来的GDI对象 .参数场景句柄,整数型,,hdc .参数对象句柄,整数型,,hobject .DLL命令设置背景模式_,整数型,"gdi32","SetBkMode",,SetBkMode，Long，前一个背景模式的值 .参数设备场景句柄,整数型,,hdc，设备场景的句柄 .参数方式,整数型,,nBkMode，下述常数之一：OPAQUE用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙TRANSPARENT透明处理，即不作上述填充 .DLL命令使用指定属性创建逻辑字体_,整数型,"gdi32.dll","CreateFontIndirectA",,执行成功则返回逻辑字体句柄，零表示失败 .参数字体结构信息,逻辑字体_,传址,lpLogFont，字体结构信息 .DLL命令默认光栅运算_,整数型,"gdi32","SetROP2" .参数设备场景,整数型 .参数光栅运算方式,整数型 .DLL命令删除对象_,整数型,"gdi32.dll","DeleteObject",,DeleteObject .参数对象句柄,整数型,,hObject,一个GDI对象的句柄 .DLL命令设置窗口标题_,整数型,"user32","SetWindowTextA" .参数窗口句柄,整数型 .参数窗口标题,文本型