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