文档章节

GDI+ 学习记录(12): 矩形 - Rectangle、Rectangles

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 145
阅读 4
收藏 0
//填充与描边
var
  g: TGPGraphics;
  p: TGPPen;
  sb: TGPSolidBrush;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  sb := TGPSolidBrush.Create(MakeColor(255,255,255));
  p := TGPPen.Create(MakeColor(255,0,0),6);

  g.FillRectangle(sb, 0, 0, Self.ClientWidth, Self.ClientHeight); {填充窗体矩形}
  g.DrawRectangle(p,11,11,111,111);                               {矩形描边}
  sb.SetColor(MakeColor(255,255,0));
  g.FillRectangle(sb,11,11,111,111);                              {填充矩形}

  p.Free;
  sb.Free;
  g.Free;
end;

 
 
 
 
 

 

 

  
//矩形组 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; rs: array[0..1] of TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(255,0,0),2); rs[0].X := 11; rs[0].Y := 11; rs[0].Width := 88; rs[0].Height := 111; rs[1].X := 111; rs[1].Y := 122; rs[1].Width := 88; rs[1].Height := 111; g.DrawRectangles(p, PGPRect(@rs), Length(rs)); g.FillRectangles(sb, PGPRect(@rs), Length(rs)); p.Free; sb.Free; g.Free; end;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/27/1017362.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Leetcode 223. Rectangle Area

Find the total area covered by two rectilinear rectangles in a 2D plane. Each rectangle is defined by its bottom left corner and top right corner as shown in the figure. 思路: ......

ShutLove
2017/12/05
0
0
LeetCode:Rectangle Area - 矩形交叉部分的面积

1、题目名称 Rectangle Area(矩形交叉部分的面积) 2、题目地址 https://leetcode.com/problems/rectangle-area/ 3、题目内容 英文:Find the total area covered by two rectilinear rect...

北风其凉
2015/09/01
671
0
判断使用给定的坐标能否组成正方形 Perfect Rectangle

问题: Given N axis-aligned rectangles where N > 0, determine if they all together form an exact cover of a rectangular region. Each rectangle is represented as a bottom-left po......

叶枫啦啦
2017/12/29
0
0
169. Why tables and classes are so useful @Ignatz

from:http://coolcodea.wordpress.com/2014/10/01/169-why-tables-and-classes-are-so-useful/ cache: http://cc.bingj.com/cache.aspx?q=169-why-tables-and-classes-are-so-useful&d=47736......

FreeBlues
2014/10/09
0
0
老司机都开火箭了!Cython 助力 Python NLP 实现百倍加速

雷锋网 AI 研习社按:本文的作者是来自 Hugging face 的科学家 Thomas Wolf,他的研究方向包括机器学习、自然语言处理和深度学习。在这篇博客中,他介绍了如何利用 Cython 和 spaCy 让 Pyth...

隔壁王大喵
06/26
0
0

没有更多内容

加载失败,请刷新页面

加载更多

中国龙-扬科
12分钟前
0
0
假若明天来临——《AI.未来》读后感3900字

假若明天来临——《AI.未来》读后感3900字: 你有没有想过,如果有一天你被确诊为癌症患者,你会做些什么?你有没有想过,在你百年之后,你希望你的墓碑上刻写着什么内容? 在我翻开李开复老...

原创小博客
18分钟前
0
0
tomcat线程模型

Connector结构 BIO模式 NIO模式

grace_233
58分钟前
2
0
Javascript

变量定义 以$,_,字母开头 大小写敏感 var 关键字声明变量 声明未赋值undefined 数据类型 字符串,数字,布尔,数组,NULL,undefined 变量均为对象 函数 无默认值 var声明的是局部变量 函数外声明...

关元
59分钟前
1
0
文件系统、服务、防火墙、SELINUX——安全四大金刚

一提到安全,大家都会想到防火墙,和文件系统权限。而实际工作环境中,我们在Linux的安全配置,会涉及到四个级别。我们思考一个场景,你要在百度盘中存放一个文件,这个动作需要考虑下面四个...

Linux就该这么学
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部