掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
直線描画の端点を変更するには？ (ID：9033)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のソースを試してみてください。 function CreateGeometricPen(Width:integer;Color:TColor):HPEN; var lb:TLogBrush; begin lb.lbStyle := BS_SOLID; lb.lbColor := Color; lb.lbHatch := 0; result := ExtCreatePen(PS_GEOMETRIC or PS_SOLID or PS_ENDCAP_FLAT or PS_JOIN_MITER,Width,lb,0,nil); end; procedure TForm1.Button1Click(Sender: TObject); begin PaintBox1.Canvas.Pen.Handle := CreateGeometricPen(14,clYellow); PaintBox1.Canvas.MoveTo(100,100); PaintBox1.Canvas.LineTo(300,100); PaintBox1.Canvas.Pen.Width := 1; PaintBox1.Canvas.MoveTo(100,100); PaintBox1.Canvas.LineTo(300,100); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.