来源:蜘蛛抓取(WebSpider)
时间:2016-05-30 05:40
标签:
rr3 graphics怎么用
君,已阅读到文档的结尾了呢~~
广告剩余8秒
文档加载中
再学gdi+[20]- tgptextur..
扫扫二维码,随身浏览文档
手机或平板扫扫即可继续访问
再学GDI+[20]- TGPTextureBrush与TWrapMode
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由:
将文档分享至:
分享完整地址
文档地址:
粘贴到BBS或博客
flash地址:
支持嵌入FLASH地址的网站使用
html代码:
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布,请您等待!
3秒自动关闭窗口GDI+中TGPGraphics的create问题
[问题点数:40分,结帖人XD]
GDI+中TGPGraphics的create问题
[问题点数:40分,结帖人XD]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
本帖子已过去太久远了,不再提供回复功能。再学GDI+[64]: 路径画刷(4) - 还是 SetCenterColor、SetSurround
在本例中没有指定 CenterColor, 将默认白色; SurroundColors 原来是对应路径中的点(但按下面的做法在椭圆里不灵). 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs
在本例中没有指定 CenterColor, 将默认白色;
SurroundColors 原来是对应路径中的点(但按下面的做法在椭圆里不灵).
本例效果图:
代码文件:unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
Form1: TForm1;
implementation
{$R *.dfm}
uses GDIPOBJ, GDIPAPI;
procedure TForm1.FormPaint(Sender: TObject);
ColorArr: array[0..3] of TGPColor = ($FFFF0000, $FF00FF00, $FF0000FF, $FFFFFF00);
pts: array of TGPP
path1, path2: TGPGraphicsP
pb1,pb2: TGPPathGradientB
rt := Bounds(10, 10, 150, 150);
g := TGPGraphics.Create(Canvas.Handle);
{矩形路径}
path1 := TGPGraphicsPath.C
path1.AddRectangle(MakeRect(rt));
pb1 := TGPPathGradientBrush.Create(path1);
num := 4;
pb1.SetSurroundColors(PARGB(@ColorArr), num);
g.FillPath(pb1, path1);
{三角形路径}
OffsetRect(rt, 160, 0);
SetLength(pts, 3);
pts[0] := MakePoint(rt.Left + (rt.Right-rt.Left) p 2, rt.Top);
pts[1] := MakePoint(rt.Left, rt.Bottom);
pts[2] := TGPPoint(rt.BottomRight);
path2 := TGPGraphicsPath.C
path2.AddPolygon(PGPPoint(pts), Length(pts));
pb2 := TGPPathGradientBrush.Create(path2);
num := 3;
pb2.SetSurroundColors(PARGB(@ColorArr), num);
g.FillPath(pb2, path2);
窗体文件:object Form1: TForm1
Left = 0
Caption = 'Form1'
ClientHeight = 172
ClientWidth = 327
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnPaint = FormPaint
PixelsPerInch = 96
TextHeight = 13
(责任编辑:admin)
------分隔线----------------------------
[ 导读 ]本PS教程主要介绍如何利用调色的方法将模特照片处理成新潮艺术海报的素材,调...
在Excel中开始VBA程序 我所演示和开发测试的环境都是建立在Excel 2007上,读者如果想...
PwdType参数支持的枚举: 枚举含义 Cryptography.Decrypting使用了IsLine.Security空...
本文要叙述的是会造成硬盘毁灭性故障的错误及操作,不是一般的磁盘和系统错误,这些故...
系统资源(System Resource)和内存并不是同一个概念。 关于概念 系统资源(System Re...