掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ShapeのpsDotで、点線が動いているように見えるようにするには? (ID:38704)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
不連続が発生しないようちょっと修正 ... rc := Image1.ClientRect; // ClientRect以外の領域に描画する場合、矩形の外にはみ出さないよう // ここでクリッピング領域を設定しなくてはいけない。 // やり方はTCanvas.ClipRectのヘルプにあるExampleを参照 Dec(rc.Right); // Rectangleでは矩形の右と下の端を含まないお約束なので、それに合わせて調整 Dec(rc.Bottom); with Image1.Canvas do begin Pen.Style := psDot; MoveTo(rc.Left - FOffset, rc.Top); // offset分はみ出した位置から点線を引き始める LineTo(rc.Right, rc.Top); // 上 LineTo(rc.Right, rc.Bottom); // 右 LineTo(rc.Left, rc.Bottom); // 下 LineTo(rc.Left, rc.Top); // 左 end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.