//填充與描邊
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;