PSet 点の描画 PSet 点の描画
PSet は指定した座標に「点」を描画します。
Delphi では Canvas クラスの Pixels プロパティを使います。
以下のサンプルは PaintBox に赤い点を描画します。
| ■ Pixels プロパティの使用例 |
procedure TForm1.Button1Click(Sender: TObject);
var
x, y : integer;
begin
for x := 0 to 10 do begin
for y := 0 to 10 do begin
PaintBox1.Canvas.Pixels[x * 2,y * 2] := clRed;
end;
end;
end;
|
Pixels はプロパティなので指定座標の色を取得することもできます。