程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi GDI+學習記錄(1) 畫筆 - Pen

Delphi GDI+學習記錄(1) 畫筆 - Pen

編輯:Delphi

//畫筆

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;

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved