Delphi GDI+学习记录（1）画笔 - Pen

Delphi GDI+学习记录（1）画笔 - Pen2012-03-20 cnblogs 万一//画笔

var
 g: TGPGraphics;
 p: TGPPen;
begin
 g := TGPGraphics.Create（Canvas.Handle）;
 p := TGPPen.Create（aclRed, 2）;
 {参数1颜色; 参数2是笔宽, 笔宽是可选, 默认 1}
 g.DrawEllipse（p, 11, 11, 222, 111）;
 p.Free;
 g.Free;
end;

//设置笔宽与颜色

var
 g: TGPGraphics;
 p: TGPPen;
begin
 g := TGPGraphics.Create（Canvas.Handle）;
 p := TGPPen.Create（aclBlack）;
 {建立时应该不给参数是可以的, 但在测试中不行, 至少要给一个颜色}
 p.SetColor（aclBlue）; {设置颜色}
 p.SetWidth（10）;   {设置笔宽}
 g.DrawEllipse（p, 11, 11, 222, 111）;
 p.Free;
 g.Free;
end;

//获取笔宽与颜色

var
 g: TGPGraphics;
 p: TGPPen;
 c: TGPColor;
begin
 g := TGPGraphics.Create（Canvas.Handle）;
 p := TGPPen.Create（MakeColor（128,0,0,255）, 10）;
 g.DrawEllipse（p, 11, 11, 222, 111）;
 p.GetColor（c）;            {获取颜色给 c}
 ShowMessage（IntToHex（c, 8））;     {转换为十六进制: 800000FF}
 ShowMessage（FloatToStr（p.GetWidth））; {10}
 p.Free;
 g.Free;
end;

首页 / 软件开发 / Delphi / Delphi GDI+学习记录（1） 画笔 - Pen

首页 / 软件开发 / Delphi / Delphi GDI+学习记录（1）画笔 - Pen