PaintBoxの使い方

PaintBoxを使うとイメージを描画するアプリケーションを簡単に作ることができます。

サンプル

PaintBoxに描画するには

ＰａｉｎｔＢｏｘはＣａｎｖａｓプロパティを持っています。ＣａｎｖａｓプロパティはTCanvas型なので描画のためのプロパティやメソッドを多く備えています。Canvasに対してこれらのメソッドを使用することによって描画を行うことができます。

ユーザの操作に応答するには

ユーザがマウスを使ってＰａｉｎｔＢｏｘに描画を行うと、いろいろなイベントが発生します。これらのイベントに応答するハンドラを用意して、描画の開始、終了処理を記述します。

例

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;