|
本帖最后由 tmplinshi 于 2015-10-31 02:26 编辑
测试版本: v1.8.9.1
- #Include <class_xcgui>
- #NoEnv
- #SingleInstance Force
- SetWorkingDir %A_ScriptDir%
- SetBatchLines -1
- xcgui.XInitXCGUI()
- hWindow := xcgui.XWnd_Create(0, 0, 300, 200, "炫彩界面库窗口")
- xcgui.XBtn_SetType( xcgui.XBtn_Create(10, 5, 60, 20, "close", hWindow), 3 )
- ; 创建 3 个图片控件
- hShape1 := xcgui.XShapePic_Create(20, 50, 50, 50, hWindow)
- hShape2 := xcgui.XShapePic_Create(120, 50, 50, 50, hWindow)
- hShape3 := xcgui.XShapePic_Create(220, 50, 50, 50, hWindow)
- ; 创建 3 个图片句柄
- ; 句柄1 - 载入图片其中一块再设置九宫图,失败!
- hImage1 := xcgui.XImage_LoadFileRect("image\button.png", 15, 0, 15, 27)
- xcgui.XImage_SetDrawTypeAdaptive(hImage1, 2, 2, 2, 2)
- ; 句柄2 - 以九宫格方式载入图片,成功!
- hImage2 := xcgui.XImage_LoadFileAdaptive("image\btn_hot.png", 2, 2, 2, 2)
- ; 句柄3 - 载入整个图片再设置九宫格,成功!
- hImage3 := xcgui.XImage_LoadFile("image\btn_hot.png")
- xcgui.XImage_SetDrawTypeAdaptive(hImage3, 2, 2, 2, 2)
- ; 设置图片
- xcgui.XShapePic_SetImage(hShape1, hImage1)
- xcgui.XShapePic_SetImage(hShape2, hImage2)
- xcgui.XShapePic_SetImage(hShape3, hImage3)
- ; 创建 3 个文本控件
- xcgui.XShapeText_Create(20, 50, 50, 50, "1", hWindow)
- xcgui.XShapeText_Create(120, 50, 50, 50, "2", hWindow)
- xcgui.XShapeText_Create(220, 50, 50, 50, "3", hWindow)
- xcgui.XWnd_ShowWindow(hWindow)
- xcgui.XRunXCGUI()
- xcgui.XExitXCGUI()
复制代码
截图
测试文件下载: http://pan.baidu.com/s/1c02UEQW
|
-
-
|