Canvasに描画する線の幅を太くした時、実線にならない方法は？ Part2 (ID：6666)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

前回の幅の太さを変えても実線にならない方法は解決したのですが。

今回は、DrawPathの引数にTPenを渡し、そのスタイルによって線種を変えようと内部のプログラムを変更しようとしたのですが。

procedure DrawPath(Path      : TPath;
                    ACanvas  : TCanvas;
                    Color    : TColor;
                    Width    : Integer;
                    PStyle   : TPen;
                    Cap      : TCapStyle = csFlat);
var
 PenStyle : array of Double;
begin
  // 描画する線種を引数から判断しセットする。
  Case PStyle.Style of
    psSolid :
    begin
      SetLength(PenStyle,2);
      PenStyle := [1e6, 1];
    end;
    psDot :
    begin
      SetLength(PenStyle,2);
      PenStyle := [1, 1];
    end;
    psDashDot :
    begin
      SetLength(PenStyle,4);
      PenStyle := [2, 1, 1, 1];
    end;
    psDashDotDot :
    begin
      SetLength(PenStyle,6);
      PenStyle := [2,1,1,1,1,1];
    end;
  end;
のようにしているのですが、
[エラー] PathUtils.pas(221): 順序型が必要です
[エラー] PathUtils.pas(225): '集合型' と 'dynamic array' には互換性がありません
[エラー] PathUtils.pas(229): '集合型' と 'dynamic array' には互換性がありません
[エラー] PathUtils.pas(233): '集合型' と 'dynamic array' には互換性がありません
とでて、コンパイルが通りません。

どなたかご教授お願いいたします。

←解決時は質問者本人がここをチェックしてください。

戻る