GDI+ 学习记录(1): 画笔 - Pen

原创

JLee79 2021-04-30 14:20:42 ©著作权

©著作权归作者所有：来自51CTO博客作者JLee79的原创作品，请联系作者获取转载授权，否则将追究法律责任

//画笔
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;