?

易语言GDI创建字体yabovip4.cpm--任意三数字加yabo.com直达官网

系统结构:绘制文本,CreateMyFont,释放设备场景_,取设备场景_,文本绘图_,设置背景模式_,用指定属性创建逻辑字体_,选入设备场景_,取设备场景信息_,乘除计算_,设置前景色_,

======窗口程序集1
???????????|??|
???????????|??|------?__启动窗口_创建完毕
???????????|??|
???????????|??|------?_按钮1_被单击
???????????|??|
???????????|??|------?绘制文本
???????????|??|
???????????|??|------?CreateMyFont
???????????|??|
???????????|??|
======调用的Dll
???????????|??|
???????????|??|---[dll]------???释放设备场景_
???????????|??|
???????????|??|---[dll]------???取设备场景_
???????????|??|
???????????|??|---[dll]------???文本绘图_
???????????|??|
???????????|??|---[dll]------???设置背景模式_
???????????|??|
???????????|??|---[dll]------???用指定属性创建逻辑字体_
???????????|??|
???????????|??|---[dll]------???选入设备场景_
???????????|??|
???????????|??|---[dll]------???取设备场景信息_
???????????|??|
???????????|??|---[dll]------???乘除计算_
???????????|??|
???????????|??|---[dll]------???设置前景色_

??

调用的DLL命令:

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

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

.DLL命令?文本绘图_,?整数型,?"gdi32.dll",?"TextOutA",?,?Long，非零表示成功，零表示失败。会设置GetLastError
????.参数?设备场景,?整数型,?,?hdc，设备场景的句柄
????.参数?横,?整数型,?,?x，绘图的起点，采用逻辑坐标
????.参数?纵,?整数型,?,?y，绘图的起点，采用逻辑坐标
????.参数?内容,?文本型,?,?lpstring，欲描绘的字串
????.参数?内容数量,?整数型,?,?ncount，字串中要描绘的字符数量

.DLL命令?设置背景模式_,?整数型,?"gdi32",?"SetBkMode",?,?SetBkMode，Long，前一个背景模式的值
????.参数?设备场景句柄,?整数型,?,?hdc，设备场景的句柄
????.参数?方式,?整数型,?,?nBkMode，下述常数之一：OPAQUE用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙TRANSPARENT透明处理，即不作上述填充

.DLL命令?用指定属性创建逻辑字体_,?整数型,?"gdi32.dll",?"CreateFontA",?,?执行成功则返回逻辑字体的句柄，零表示失败
????.参数?字体高度,?整数型,?,?Height，字体高度
????.参数?字体宽度,?整数型,?,?Width，字体宽度
????.参数?旋转,?整数型,?,?Escapement，旋转
????.参数?Orientation,?整数型,?,?Orientation
????.参数?加粗,?整数型,?,?Weight，加粗
????.参数?倾斜,?整数型,?,?Italic，倾斜
????.参数?下划线,?整数型,?,?Underline，下划线
????.参数?删除线,?整数型,?,?StrikeOut，删除线
????.参数?内码,?整数型,?,?CharSet，内码
????.参数?OutputPrecision,?整数型,?,?OutputPrecision
????.参数?CP,?整数型,?,?ClipPrecision
????.参数?输出质量,?整数型,?,?Quality，输出质量
????.参数?PAF,?整数型,?,?PitchAndFamily
????.参数?新字体名,?文本型,?,?FaceName，新字体名

.DLL命令?选入设备场景_,?整数型,?"gdi32.dll",?"SelectObject",?,?SelectObject
????.参数?场景句柄,?整数型,?,?hdc
????.参数?对象句柄,?整数型,?,?hobject

.DLL命令?取设备场景信息_,?整数型,?"gdi32",?"GetDeviceCaps"
????.参数?设备场景,?整数型
????.参数?值,?整数型

.DLL命令?乘除计算_,?整数型,?"kernel32.dll",?"MulDiv"
????.参数?乘数1,?整数型,?,?nNumber
????.参数?乘数2,?整数型,?,?nNumerator
????.参数?除数,?整数型,?,?nDenominator

.DLL命令?设置前景色_,?整数型,?"gdi32",?"SetTextColor"
????.参数?设备场景,?整数型
????.参数?颜色,?整数型