首页 »PHP教程 » GdiPlus[32]: IGPPen: LineJoin、MiterLimit »正文
GdiPlus[32]: IGPPen: LineJoin、MiterLimit
来源: 发布时间:星期四, 2009年12月17日 浏览:0次 评论:0
LineJoin 测试效果图: LineJoin 测试代码: uses GdiPlus; procedure TForm1.FormPa(Sender: TObject); const Pts: .gif' />[0 ..2 ] of TGPPo = ((X:90 ;Y:80), (X:240;Y:30), (X:240;Y:80)); var Graphics: IGPGraphics; Pen: IGPPen; begin Graphics := TGPGraphics.Create(Handle); Pen := TGPPen.Create(TGPColor.Red, 28); Pen.LineJoin := LineJoinMiter; //默认值 Graphics.DrawPolygon(Pen, Pts); Graphics.TranslateTransform(0, 80); Pen.LineJoin := LineJoinBevel; Graphics.DrawPolygon(Pen, Pts); Graphics.TranslateTransform(0, 80); Pen.LineJoin := LineJoinRound; Graphics.DrawPolygon(Pen, Pts); end; MiterLimit 测试效果图: MiterLimit 测试代码: unit Unit1; erface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = (TForm) TrackBar1: TTrackBar; procedure FormPa(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure FormCreate(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GdiPlus; procedure TForm1.FormCreate(Sender: TObject); begin TrackBar1.ShowSelRange := False; TrackBar1.Height := 23; TrackBar1.Min := 0; TrackBar1.Max := 100; TrackBar1.Position := TrackBar1.Max; end; procedure TForm1.FormPa(Sender: TObject); const PtArr: .gif' />[0..2] of TGPPo = ((X:90;Y:80), (X:240;Y:30), (X:240;Y:80)); var Graphics: IGPGraphics; Pen: IGPPen; begin Graphics := TGPGraphics.Create(Canvas.Handle); Pen := TGPPen.Create($FF2E8B57, 28); Pen.MiterLimit := TrackBar1.Position / 10; Graphics.DrawPolygon(Pen, PtArr); end; procedure TForm1.TrackBar1Change(Sender: TObject); begin Repa; end; end. MiterLimit 测试窗体: object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 138 ClientWidth = 266 Color = clBtnFace Font.Char = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate OnPa = FormPa PixelsPerInch = 96 TextHeight = 13 object TrackBar1: TTrackBar Left = 2 Top = 112 Width = 261 Height = 45 TabOrder = 0 OnChange = TrackBar1Change end end
标签:
相关文章
读者评论
发表评论
|
|