工具栏操作类模块

易语言 2020-10-06 16:52:00

工具栏操作类模块

.子程序 属性_允许多行, 逻辑型, 公开, 如果未提供参数则为返回是否允许多行,提供了参数则为置是否允许多行
.参数 参数_允许多行, 逻辑型, 可空, 真为允许多行,假为不允许。
.局部变量 局部_风格, 整数型

局部_风格 = 取窗口风格_API (集_工具栏句柄, #GWL_STYLE)
.如果 (是否为空 (参数_允许多行))
返回 (选择 (位与 (局部_风格, #TBSTYLE_WRAPABLE) = #TBSTYLE_WRAPABLE, 真, 假))
.否则
.如果 (参数_允许多行 = 假)
.如果真 (位与 (局部_风格, #TBSTYLE_WRAPABLE) = #TBSTYLE_WRAPABLE)
局部_风格 = 位异或 (局部_风格, #TBSTYLE_WRAPABLE)
.如果真结束

.否则
局部_风格 = 位或 (局部_风格, #TBSTYLE_WRAPABLE)
.如果结束
置窗口风格_API (集_工具栏句柄, #GWL_STYLE, 局部_风格)
重画窗口_API (集_工具栏句柄, 0, 1)
返回 (真)