線の描画
キャンバス上に直線を描くには,キャンバスの LineTo メソッドを使用します。
LineTo では現在のペン位置から指定した点まで線を描画し,線の終端を現在のペン位置にします。キャンバスでは直線をペンで描画します。
たとえば,フォームを表示するときフォーム全体に交差する斜線を描画するメソッドは次のようになります。
procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
MoveTo(0, 0);
LineTo(ClientWidth, ClientHeight);
MoveTo(0, ClientHeight);
LineTo(ClientWidth, 0);
end;
end;
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->MoveTo(0,0);
Canvas->LineTo(ClientWidth, ClientHeight);
Canvas->MoveTo(0, ClientHeight);
Canvas->LineTo(ClientWidth, 0);
}