掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
RGBで色指定の方法とPlygonなどのAPI使用方法 (ID：10273)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
sadoyama様ありがとうございました。 「打ちこんでみて覚える」で早速canvasにPolygonを描く例をマネしてやってみました。当方で実際に使うには「色、XYの位置を変数で指定」できないと使えませんので自分で工夫してやってみました。結果は下記のように書いて成功しました。ありがとうございました。ここでまた質問させていただきます ①第２、第３例のようにBMPをcreateしてimage1にコピーする目的、ご利益は何でしょうか？（まだ実験していませんが） ②「下記の例は非常に遅い」「通常はscanlineを使う」とのことでしたのでscanlineをキーワードにHELPを捜しましたがどうやってこの目的に使うのか分かりません。教えてください。 ********** 大成功 ************ procedure TForm1.Button1Click(Sender: TObject); var Color: TColor; x1,y1,x2,y2,x3,y3,x4,y4 : integer; c:longint; DC:string; begin x1:=10; y1:=10; x2:=150; y2:=10; x3:=200; y3:=200; x4:=100; y4:=200; dc:='$02ff8844'; c:=strtoint(dc); //c:=$02ff8844; Canvas.pen.Color := TColor(c); Canvas.Brush.Color := TColor(c); Canvas.Polygon([Point(x1, y1), Point(x2, y2), Point(x3, y3), Point(x4, y4)]); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.