---------在图片上画4边形,为什么没显示?---------- 本帖最后由 cowbobe 于 2013-09-01 19:26:20 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Canvas.Brush.Color := clGreen; Canvas.Brush.Style := bssolid;这两句设定的是form的画布属性吧 {建立多边形区域} Rgn := CreatePolygonRgn(pts, 4, WINDING); {绘制区域边界 } Image1.Canvas.Brush.Color := clGreen; // 加上 img1 Image1.Canvas.Brush.Style := bssolid; // 加上 img1 FrameRgn(Image1.Canvas.Handle, Rgn, Image1.Canvas.Brush.Handle, 4, 4); {当去掉image1} DeleteObject(Rgn); Image1.Refresh; // 刷新 timer控件为什么用了一个星期就停止运行了 放分为明天考试的DDMM祝福! text类型字段检索问题,谢谢 将汉字转换成编码,将编码转成汉子 一个关于汇编的问题,,,大家进来看看,,进者有分..... 网游的世界很精彩? 小问题 菜鸟说:谢谢 多线程问题!请帮忙!! 请问如何给我的程序加上帮助? WIN7 WIN8 下 DELPHI遍历系统声卡 修改系统MIC声音大小的办法! 请教Inno_Setup打包程序怎么执行sql脚本生成数据库?
Canvas.Brush.Style := bssolid;
这两句设定的是form的画布属性吧
{建立多边形区域}
Rgn := CreatePolygonRgn(pts, 4, WINDING); {绘制区域边界 }
Image1.Canvas.Brush.Color := clGreen; // 加上 img1
Image1.Canvas.Brush.Style := bssolid; // 加上 img1 FrameRgn(Image1.Canvas.Handle, Rgn, Image1.Canvas.Brush.Handle, 4, 4);
{当去掉image1} DeleteObject(Rgn);
Image1.Refresh; // 刷新