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;