MoveTo,LineToがわかっているのでそれを使って→や←のように矢印を書くプロパティとかメソッドとかないでしょうか?
よろしくお願いします.
線を描くためのメソッドが MoveTo や LineTo であり
MoveTo や LineTo を使って矢印を書くプロパティやメソッドって?
意味不明
例えば、Canvasのメソッドなんかに、Arrowがあって、
その記述が以下のようなもので、矢印を書くのがねぇっすか?
procedure TCanvas.Arrow(X1, Y1, X2, Y2, Size: Integer);
var
XA, YA: Integer;
begin
MoveTo(X1, Y1);
LineTo(X2, Y2);
//てきとうな計算
//羽根1
LineTo(XA, YA);
//てきとうな計算
//羽根2
MoveTo(X2, Y2);
LineTo(XA, YA);
end;
ということでしょ?
少なくとも、TCanvasには、そんなのねぇ。
・・・から、関数の一個ぐらい作れ。
もしくは、手抜きして TextOut, TextRect で「→」書けばえぇ。
http://software.nikkeibp.co.jp/software/download/down99c.html#199905
1999/5 Delphiかんたんソフト工房 第5回 ビットマップに矢印や文字を描こう
がとても参考になります。
ツイート | ![]() |