Get RGN by Shape Control (20001121 Salf Gold Copyright

zhaozj2021-02-11  202

Get RGN by Shape Control (2000/11/21 Salf Gold Copyright

If you have any questions, please refer to the VCL library SHAPE component source code function getshapergn (Shape: Tshape): hrgn; var: hrgn; begin result: = 0; x: = shape.Left Shape.pen.Width Div 2; Y: = Shape.top Shape.pen.width Div 2; W: = shape.width- shape.pen.width 1; h: = shape.height-shape.pen. Width 1; if Shape.pen.width = 0 THEN BEGIN DEC (W); DEC (h); end; if w

Better more articles in the three gold homepage - Tian Mingxin Tree

http://vip.6to23.com/tianmingxin

转载请注明原文地址:https://www.9cbs.com/read-4405.html

New Post(0)