当前位置: 代码迷 >> PB >> pb11.5开发的toolbar,怎的去掉边框
  详细解决方案

pb11.5开发的toolbar,怎的去掉边框

热度:438   发布时间:2016-04-29 05:37:17.0
pb11.5开发的toolbar,怎样去掉边框?
请问怎样去掉toolbar的边框?

我的是pb11.5


------解决方案--------------------
给你个方法,把对象的边框去掉


long ll_handle
ws_position lws_pointapi[]

int li_xpos, li_ypos, li_width, li_height
li_xpos = 3
li_ypos = 25
li_width = 3
li_height = 3

lws_pointapi[1].xpos = li_xpos
lws_pointapi[1].ypos = li_ypos

lws_pointapi[2].xpos = UnitsToPixels(this.width, xunitstopixels!) - li_width
lws_pointapi[2].ypos = li_ypos

lws_pointapi[3].xpos = UnitsToPixels(this.width, xunitstopixels!) - li_width
lws_pointapi[3].ypos = UnitsToPixels(this.height, yunitstopixels!) - li_height

lws_pointapi[4].xpos = li_xpos
lws_pointapi[4].ypos = UnitsToPixels(this.height, yunitstopixels!) - li_height

ll_handle = CreatePolygonRgn(lws_pointapi[], 4, 1)

//其中第 1 个参数为多边形各个顶点坐标值的数组
//其中第 2 个参数为多边形边数,可修改,配合数组值
//其中第 3 个参数为填充模式 ALTERNATE /WINDING 

SetwindowRgn(handle(this), ll_handle, true)

return 1

函数声明如下:


Function ulong CreatePolygonRgn (ref ws_position lppt[], int cPoints, int fnPolyFillMode ) Library "gdi32.dll" 

FUNCTION ulong SetWindowRgn(ulong hWnd,ulong hRgn,boolean bRedraw) LIBRARY "user32.dll" 


//ws_position结构如下
long xpos
long ypos
  相关解决方案