|
楼主 |
发表于 2015-11-26 12:26:17
|
显示全部楼层
本帖最后由 tmplinshi 于 2015-11-26 12:28 编辑
谢谢指点。我这样写的,没有成功:
- xc.XInitXCGUI()
- m_hWindow := xc.XWnd_Create(0, 0, 300, 200, "炫彩界面库窗口")
- hEle := xc.XEle_Create(20, 50, 100, 100, m_hWindow)
- XE_PAINT := 2
- XE_PAINT_END := 3
- ; xc.XEle_EnableEvent_XE_PAINT_END(hEle, True)
- xc.XEle_RegEventC2(hEle, 2, "ele.OnDraw")
- xc.XWnd_ShowWindow(m_hWindow)
- xc.XRunXCGUI()
- xc.XExitXCGUI()
- Return
- class ele {
- OnDraw(hEle, hDraw) {
-
- VarSetCapacity(pRect, 16, 0)
- NumPut(0, pRect, 0, "Int")
- NumPut(0, pRect, 4, "Int")
- NumPut(20, pRect, 8, "Int")
- NumPut(20, pRect, 12, "Int")
- ; xc.XEle_GetRect(hEle, pRect)
- ; rc := RectToObj(pRect)
- ; xc.XDraw_DrawLine(hDraw, rc.left, rc.top, 20, 20)
- xc.XDraw_GradientFill2(hDraw, 0xFA1010, 255, 0x0E49EE, 255, pRect, 1)
- hBKInfoM := xc.XEle_GetBkInfoManager(hEle)
- xc.XBkInfoM_Draw(hBkInfoM, hDraw, pRect)
- ; xc.XDraw_LineTo(hDraw, 30, 50) ; <-- 这个函数可以成功
- }
- }
- RectToObj(ByRef struct) {
- Return { left : NumGet(struct, 0, "Int")
- , top : NumGet(struct, 4, "Int")
- , right : NumGet(struct, 8, "Int")
- , bottom: NumGet(struct, 12, "Int") }
- }
复制代码 |
|