掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
直線描画の端点を変更するには？ (ID：9035)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
このサンプル、Win98にゃとウマクいかないにゃ〜 まだまだWin98ユーザーも多いから困るにゃ〜 これでどうかにゃ〜 var DC : HDC; NewPen, OldPen : HPEN; begin with PaintBox1.Canvas do begin DC := Handle; // path bracketに線を引くにゃ〜 BeginPath(DC); MoveToEx(DC, 20, 20, nil); Windows.LineTo(DC, 300, 20); MoveToEx(DC, 20, 40, nil); Windows.LineTo(DC, 300, 320); EndPath(DC); // 端が平らな太いペンに持ち替えるにゃ〜 NewPen := CreateGeometricPen(18, $77ffaa); OldPen := SelectObject(DC, NewPen); // 新しいペンでキャンバスに描くにゃ〜 StrokePath(DC); // 元のペンに戻すにゃ〜 SelectObject(DC, OldPen); DeleteObject(NewPen); // 元の細いペンでキャンバスに線を描くにゃ〜 MoveTo(20, 20); LineTo(300, 20); MoveTo(20, 40); LineTo(300, 320); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.