易语言改变控件字体源码

系统结构:API_发送消息,API_用指定属性创建逻辑字体,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_发送消息
           |  |
           |  |---[dll]------   API_用指定属性创建逻辑字体

调用的DLL命令:

.DLL命令 API_发送消息, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 API_用指定属性创建逻辑字体, 整数型, "gdi32", "CreateFontA", , 用指定的属性创建一种逻辑字体　执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 字体高度, 整数型, , IfHeight
    .参数 字体宽度, 整数型, , IfWidth
    .参数 旋转, 整数型, , IfEscapement
    .参数 Orientation, 整数型, , IfOrientation
    .参数 加粗, 整数型, , IfWeight
    .参数 倾斜, 整数型, , IfItalic
    .参数 下划线, 整数型, , IfUnderline
    .参数 删除线, 整数型, , IfStrikeOut
    .参数 内码, 整数型, , IfCharSet
    .参数 OutputPrecision, 整数型, , IfOutputPrecision
    .参数 CP, 整数型, , IfClipPrecision
    .参数 输出质量, 整数型, , IfQuality
    .参数 PAF, 整数型, , IfPitchAndFamily
    .参数 新字体名, 文本型, , IfFaceName;