透明编辑框支持修改窗口尺寸和字体

易语言 2020-06-21 18:29:01

_启动窗口.底图 = 画板1.取图片 (_启动窗口.取用户区宽度 (), _启动窗口.取用户区高度 ())
OldMainProc = SetWindowLongA (取窗口句柄 (), #GWL_WNDPROC, 到数值 (&NewProc_Main)) ' 子类化主窗口
OldEditProc = SetWindowLongA (编辑框1.取窗口句柄 (), #GWL_WNDPROC, 到数值 (&NewProc_Edit)) ' 子类化编辑框
局部位图.创建 (编辑框1.宽度, 编辑框1.高度, 24, )
窗口底图.复制到 (编辑框1.左边, 编辑框1.顶边, 编辑框1.取用户区宽度 (), 编辑框1.取用户区高度 (), 局部位图, 0, 0, )
.如果真 (取反 (ImageObject.是否为空 ()))
ImageObject.清除 ()
.如果真结束
ImageObject.创建图片对象 (局部位图.取位图数据 ())
hBkBitmap = ImageObject.读数值属性 (“handle”, )