PB12.5评测
pb12.5已经出来很久了，对12.5数据窗口新增的自绘功能比较欣赏，抽时间做了个例子，供大家参考
New Win32 DataWindow Features:
User-Drawn Controls in the DataWindow
参考源代码如下：
global type MyDrawPieSlice from function_object
end type
forward prototypes
global function boolean mydrawpieslice (long al_dc, long al_x, long al_y, long al_w, long al_h)
end prototypes
global function boolean mydrawpieslice (long al_dc, long al_x, long al_y, long al_w, long al_h);
long ll_handle
ws_position lws_pointapi[]
// 图形2
long ll_pen, ll_brush
//创建一个画笔
ll_pen = CreatePen(0, 1, rgb(0, 0, 255))
SelectObject(al_dc, ll_pen)
//创建一个刷子
ll_brush = CreateSolidBrush(rgb(0, 255, 255))
SelectObject(al_dc, ll_brush)
//画一个三角形
lws_pointapi[1].xpos = al_x + 26
lws_pointapi[1].ypos = al_y + 1
lws_pointapi[2].xpos = al_x + 51
lws_pointapi[2].ypos = al_y + 26
lws_pointapi[3].xpos = al_x + 1
lws_pointapi[3].ypos = al_y + 26
Polygon(al_dc, lws_pointapi, 3)
//画一个四边形
al_x += 30
al_y += 50
lws_pointapi[1].xpos = al_x
lws_pointapi[1].ypos = al_y
lws_pointapi[2].xpos = al_x - 20
lws_pointapi[2].ypos = al_y + 20
lws_pointapi[3].xpos = al_x + 40
lws_pointapi[3].ypos = al_y + 20
lws_pointapi[4].xpos = al_x + 60
lws_pointapi[4].ypos = al_y
Polygon(al_dc, lws_pointapi, 4)
//画一个六连形
al_x += 100
al_y -= 20
lws_pointapi[1].xpos = al_x
lws_pointapi[1].ypos = al_y
lws_pointapi[2].xpos = al_x - 50
lws_pointapi[2].ypos = al_y + 50
lws_pointapi[3].xpos = al_x
lws_pointapi[3].ypos = al_y + 100
lws_pointapi[4].xpos = al_x + 100
lws_pointapi[4].ypos = al_y + 100
lws_pointapi[5].xpos = al_x + 150
lws_pointapi[5].ypos = al_y + 50
lws_pointapi[6].xpos = al_x + 100
lws_pointapi[6].ypos = al_y + 0
Polygon(al_dc, lws_pointapi, 6)
//写几个字
string ls_text
//gl_once = gl_once + 1
ls_text = '当前的文本是画出来的'
//ls_text = string(gl_once)
ws_rect lws_rect
lws_rect.left = al_x - 100
lws_rect.top = al_y + 130
lws_rect.right = al_w - 220
lws_rect.bottom = al_h
DrawText(al_dc, ls_text, lenA(ls_text), lws_rect, 1)
//画个饼图
al_x += 150
Pie(al_dc, al_x, al_y, al_x + 100, al_y + 100, al_x + 50, al_y + 50, al_x + 20, al_y + 20)
//画一个长方体
al_x += 50
al_y += 80
//画正面
lws_pointapi[1].xpos = al_x - 20
lws_pointapi[1].ypos = al_y + 20
lws_pointapi[2].xpos = al_x + 40
lws_pointapi[2].ypos = al_y + 20
lws_pointapi[3].xpos = al_x + 40
lws_pointapi[3].ypos = al_y + 100
lws_pointapi[4].xpos = al_x - 20
lws_pointapi[4].ypos = al_y + 100
Polygon(al_dc, lws_pointapi, 4)
//deleteobject(ll_brush)
//ll_brush = CreateSolidBrush(rgb(252, 213, 180))
//SelectObject(al_dc, ll_brush)
//画上边
lws_pointapi[1].xpos = al_x
lws_pointapi[1].ypos = al_y
lws_pointapi[2].xpos = al_x - 20
lws_pointapi[2].ypos = al_y + 20
lws_pointapi[3].xpos = al_x + 40
lws_pointapi[3].ypos = al_y + 20
lws_pointapi[4].xpos = al_x + 60
lws_pointapi[4].ypos = al_y
Polygon(al_dc, lws_pointapi, 4)
//画侧面
lws_pointapi[1].xpos = al_x + 60
lws_pointapi[1].ypos = al_y
lws_pointapi[2].xpos = al_x + 40
lws_pointapi[2].ypos = al_y + 20
lws_pointapi[3].xpos = al_x + 40
lws_pointapi[3].ypos = al_y + 100
lws_pointapi[4].xpos = al_x + 60
lws_pointapi[4].ypos = al_y + 80
Polygon(al_dc, lws_pointapi, 4)
//释放画笔和画刷
deleteobject(ll_pen)
deleteobject(ll_brush)
return true
end function