易语言自动伸缩的编辑框源码

系统结构:CreateFontFromFONT,GetTextSize,GetTextSize2,GetDeviceCaps,CreateCompatibleDC,MulDiv,CreateFont,DeleteDC,GetTextExtentPoint32,SelectObject,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |
======程序集_字体
           |  |
           |  |------ CreateFontFromFONT
           |  |
           |  |------ GetTextSize
           |  |
           |  |------ GetTextSize2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetDeviceCaps
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   MulDiv
           |  |
           |  |---[dll]------   CreateFont
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   GetTextExtentPoint32
           |  |
           |  |---[dll]------   SelectObject

调用的DLL命令:

.DLL命令 GetDeviceCaps, 整数型, , "GetDeviceCaps"
    .参数 hdc, 整数型
    .参数 nIndex, 整数型

.DLL命令 CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC", 公开, 创建一个与特定设备场景一致的内存设备场景  新设备场景句柄，若出错则为零
    .参数 设备场景句柄, 整数型, , 设备场景句柄。新的设备场景将与它一致。也可能为0以创建一个与屏幕一致的设备场景;

.DLL命令 MulDiv, 整数型, , "MulDiv"
    .参数 nNumber, 整数型
    .参数 nNumerator, 整数型
    .参数 nDenominator, 整数型

.DLL命令 CreateFont, 整数型, , "CreateFontA", , 逻辑字体的句柄
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，  以0.1度为单位 
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 逻辑型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 逻辑型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 逻辑型, , 删除线属性标志(0:无删除线，非0:有删除线)
    .参数 nCharSet, 整数型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 整数型, , 输出精度
    .参数 nClipPrecision, 整数型, , 剪切精度
    .参数 nQuality, 整数型, , 输出品质
    .参数 nPitchAndFamily, 整数型, , 字符间距
    .参数 lpszFacename, 文本型, , 现有系统TrueType字体名称

.DLL命令 DeleteDC, 整数型
    .参数 hDC

.DLL命令 GetTextExtentPoint32, 整数型, "gdi32", "GetTextExtentPoint32A"
    .参数 hdc, 整数型
    .参数 lpString, 文本型
    .参数 c, 整数型
    .参数 lpSize, SIZE, 传址

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject"
    .参数 hdc, 整数型
    .参数 hObject, 整数型