uses GDIPAPI, GDIPOBJ{, Winapi.GDIPUTIL};
procedure TForm1.Button1Click(Sender: TObject);
var
graphics: TGPGraphics;
pen: TGPPen;
begin
graphics := TGPGraphics.Create(Canvas.Handle);
pen := TGPPen.Create(MakeColor(255,0,0));
graphics.DrawRectangle(pen, MakeRect(11, 22, 33, 44));
pen.Free;
graphics.Free;
end;
graphics := TGPGraphics.Create(Canvas.Handle);
最新推荐文章于 2016-04-25 10:30:07 发布