PowerBuilder制作IE风格的图标按钮[3]

if not sb_SuppressHoverBorder then

lr_Borderleft =

lr_Bordertop =

lr_Borderright = UnitsToPixels

(thisWidth XUnitsToPixels!)

lr_Borderbottom = UnitsToPixels

(thisHeight YUnitsToPixels!)

if flags < > then

DrawEdge(GetDC(handle(this))

lr_Border +++)

else

// Left Button Down

DrawEdge(GetDC(handle(this))

lr_Border +++)

end if

end if

else

// 检测鼠标是否滑出按钮区域？

if (XPos < or YPos < ) or (XPos >

thisWidth or YPos > thisHeight) then

ib_MouseCaptured = FALSE

ReleaseCapture()

in_State =

thisPictureName = is_PicNormal

end if

end if

return

//

// *** end mousemove event ***

// LButtonDown 事件代码

// *** begin lbuttondown event ***

//

rect lr_Border

if ib_MouseCaptured then

ib_MouseCaptured = FALSE

ReleaseCapture()

end if

in_State =

thisPictureName = is_PicClickDown

SetCapture(handle(this))

ib_MouseCaptured = TRUE

if not sb_SuppressHoverBorder then

lr_Borderleft =

lr_Bordertop =

lr_Borderright = UnitsToPixels

(thisWidth XUnitsToPixels!)

lr_Borderbottom = UnitsToPixels

(thisHeight YUnitsToPixels!)

[] [] [] []