再学 GDI+[53]: 路径 - SetFillMode
2008-06-19 22:13
501 查看
本例效果图:
代码文件:
窗体文件:
代码文件:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: TRadioGroup; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPOBJ, GDIPAPI, TypInfo; procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin RadioGroup1.Columns := 2; RadioGroup1.Caption := '路径填充模式'; for i := 0 to 1 do RadioGroup1.Items.Add(GetEnumName(TypeInfo(TFillMode), i)); RadioGroup1.ItemIndex := 0; end; procedure TForm1.FormPaint(Sender: TObject); var g: TGPGraphics; b: TGPBrush; p: TGPPen; path: TGPGraphicsPath; rect: TRect; begin g := TGPGraphics.Create(Canvas.Handle); b := TGPHatchBrush.Create(HatchStyleCross, aclSilver, aclKhaki); p := TGPPen.Create(aclRed, 1.75); path := TGPGraphicsPath.Create; rect := Bounds(10, 20, 150, 100); path.AddEllipse(MakeRect(rect)); OffsetRect(rect, 60, 0); path.AddEllipse(MakeRect(rect)); if RadioGroup1.ItemIndex = 1 then path.SetFillMode(FillModeWinding); g.FillPath(b, path); g.DrawPath(p, path); p.Free; b.Free; path.Free; g.Free; end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin Repaint; end; end.
窗体文件:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 184 ClientWidth = 233 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object RadioGroup1: TRadioGroup Left = 5 Top = 137 Width = 224 Height = 39 Caption = 'RadioGroup1' TabOrder = 0 OnClick = RadioGroup1Click end end
相关文章推荐
- 再学 GDI+[64]: 路径画刷(4) - 还是 SetCenterColor、SetSurroundColors
- FillMode指定如何填充闭合路径的内部
- 再学 GDI+[61]: 路径画刷(1) - SetCenterColor、SetSurroundColors
- 再学 GDI+[65]: 路径画刷(5) - SetGammaCorrection
- GDI+[60] SetSmoothingMode - 绘图质量
- 再学 GDI+[62]: 路径画刷(2) - SetCenterPoint、GetCenterPoint
- 再学 GDI+[63]: 路径画刷(3) - SetFocusScales、GetFocusScales
- 再学 GDI+[68]: 路径画刷(8) - SetBlendTriangularShaped、SetBlendBellShape
- 再学 GDI+[60]: TGPGraphics.SetSmoothingMode - 绘图质量
- 再学 GDI+[69]: 路径画刷(9) - SetInterpolationColors 与 SetSurroundColors 的区别
- MFC FillSolidRect SetBKMode绘图
- setDefaultKeyMode 用法介绍
- GDI+ 学习记录(11): 路径渐变画刷 - PathGradientBrush
- GDI+ 学习记录(19): 路径 - Path
- GDI+ 路径 - IsVisible、IsOutlineVisible
- android 画图之setXfermode 处理两图相交叉的情况
- setDefaultKeyMode 用法介绍
- CDC::SetBkMode
- ERROR 1839 (HY000): @@GLOBAL.GTID_PURGED can only be set when @@GLOBAL.GTID_MODE = ON
- ORA-00265: instance recovery required, cannot set ARCHIVELOG mode