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