随笔 - 2146  文章 - 97 评论 - 11765 trackbacks - 253

//填充与描边
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;
posted on 2007-12-27 18:56 万一 阅读(...) 评论(...) 编辑 收藏