PaintBoxの使い方
PaintBoxを使うとイメージを描画するアプリケーションを簡単に作ることができます。
PaintBoxに描画するには
PaintBoxはCanvasプロパティを持っています。CanvasプロパティはTCanvas型なので描画のためのプロパティやメソッドを多く備えています。Canvasに対してこれらのメソッドを使用することによって描画を行うことができます。
ユーザの操作に応答するには
ユーザがマウスを使ってPaintBoxに描画を行うと、いろいろなイベントが発生します。これらのイベントに応答するハンドラを用意して、描画の開始、終了処理を記述します。
例
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin X0 := X; Y0 := Y; PaintBox1.Canvas.MoveTo(X0, Y0); fDraw := True; end; procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if fDraw = True then begin PaintBox1.Canvas.LineTo(X, Y); X0 := X; Y0 := Y; end; end; procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin fDraw := False; end;