「ステータスバー」から追加します。ステータスバーは通常、画面の下のほうに配置してあって、画面の状態などの情報を表示する部分なんですって。「お絵かきソフト」では何を表示するのかな？

まずは、前回保存したファイルを開きます。Turbo Delphiを起動して、画面中央の「ホームページ」で「Drawing.bdsproj」を選択。もし一覧に表示されていなければ、ツールバーの[プロジェクトを開く(Ctrl+F11)]ボタンをクリックします。「プロジェクトを開く」ダイアログボックスから「Drawing.bdsproj」を探します。

画面右下のツールパレット「Win32」カテゴリの「TStatusBar」コンポーネントを探して、フォーム上の適当な位置に配置します。デフォルトのAlignプロパティが「alBottom」なので、パネルか、スクロールボックスの下のほうに配置しています。スクロールボックスの方に配置した場合は、フォーム上にステータスバーが見えないので注意してくださいって、高橋先生が言ってました。ステータスバーをフォームに配置したいので、構造ペインで位置を変更します。構造ペインの「Panel1」か「sbxDraw」の下にある「StatusBar1」を「frmMain」の上にドラッグで移動します。移動できたらステータスバーのNameプロパティを設定します。StatusBar1コンポーネントを選択していることを確認します。オブジェクトインスペクタ、プロパティページの「その他」カテゴリで「Name」プロパティを探します。右側の入力欄に「stbMain」と入力します。

次に表示用パネルも作ります。stbMain ステータスバーコンポーネントの上で、マウスの右ボタンをクリックして「パネルの設定(P)...」を選択します。この「パネルの設定」ダイアログボックスで、ツールバーの[新規追加(Ins)]ボタンをクリックして、表示用パネルを3つ作成します。

Hide image

図02 パネルの設定

追加できたら、幅を調整するためにプロパティを設定します。「パネルの設定」ダイアログボックスで「0 - TStatusPanel」を選択します。オブジェクトインスペクタ、プロパティページの「レイアウト」カテゴリで「Width」プロパティに「100」を入力します。次に「1 - TStatusPanel」を選択して、「レイアウト」カテゴリの「Width」プロパティに「100」を入力します。ここまで設定できたら「パネルの設定」ダイアログボックスは閉じます。

Hide image

図03 ステータスバーの追加

これで、ステータスバーが作成できました。ここにマウスポインタの位置を表示するんですよね。ペイントボックスの上での位置を表示するんだから、ペイントボックスのイベントで記述すればいいのよね。高橋先生。

StatusBar1.Panels[0]

StatusBar1.Panels[0].Text

var
  a : array [1..12] of Integer;

本当に簡単なのかな？先にマウスポインタの位置を表示します。画面をコードエディタに切り替えます。コードエディタでpbxDrawMouseMoveイベントハンドラを探します。マウス位置は「X」パラメータ、「Y」パラメータに入ってきますが整数型なので、文字列型でステータスバーに表示するには型変換が必要なんですって。型変換は「第7回 計算機に機能追加」で紹介してあったなぁ。型が異なるプロパティや変数に代入するとき、関数を使って型を変更しちゃうんだったわね。今回は「IntToStr」でInteger型をstring型に型変換します。それぞれの値の前に「'X = '」と「'Y = '」をつけます。代入先はステータスバーの「Panel[0].Text」プロパティと「Panel[1].Text」プロパティです。太字部分を追加します。

procedure TfrmMain.pbxDrawMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  w: Integer;
  c: TColor;
begin
  stbMain.Panels[0].Text := 'X = ' + IntToStr(X);
  stbMain.Panels[1].Text := 'Y = ' + IntToStr(Y);

  if GetKeyState(VK_LBUTTON) < 0 then
  begin
    if sbtnHoso.Down then
      w := 5
    else
      w := 20;
    c := shpColor.Brush.Color;
    pbxDraw.Canvas.Pen.Mode  := pmCopy;
    pbxDraw.Canvas.Pen.Width := w;
    pbxDraw.Canvas.Pen.Color := c;
    pbxDraw.Canvas.MoveTo(preX, preY);
    pbxDraw.Canvas.LineTo(X, Y);
    bmpBuf.Canvas.Pen.Mode  := pmCopy;
    bmpBuf.Canvas.Pen.Width := w;
    bmpBuf.Canvas.Pen.Color := c;
    bmpBuf.Canvas.MoveTo(preX, preY);
    bmpBuf.Canvas.LineTo(X, Y);
  end;
  preX := X;
  preY := Y;
end;

次にペイントボックスからマウスが離れたとき、ステータスバーを空にします。画面をフォームデザイナに切り替えます。フォーム中央のペイントボックスを選択します。オブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnMouseLeave」をダブルクリックします。ステータスバーの2つのパネルに「''」を代入。太字部分を追加します。

procedure TfrmMain.pbxDrawMouseLeave(Sender: TObject);
begin
  stbMain.Panels[0].Text := '';
  stbMain.Panels[1].Text := '';
end;

記述できたら、マウスポインタの形を変更します。pbxDrawペイントボックスを選択して、オブジェクトインスペクタ、プロパティページで「表示」カテゴリの「Cursor」プロパティに「crCross」を設定します。

設定できたら、保存して実行してみます。ツールバーの[すべて保存]ボタンをクリックして保存します。次にツールバーの[実行]ボタンで実行テストします。ペイントボックス上でマウスを動かすと、ステータスバーの数値がマウスにあわせて変わります。

Hide image

図04 ステータスバーへの表示

ステータスバーはこれで、OKね。次は、メニューを作るって言ってたわよね。メニューコンポーネントなんていうのがあるのかな？教えて、高橋先生！

今回メニューにしたい項目は［ファイル］メニューの中に［開く］［名前をつけて保存］［区切り線］［終了］、［編集］メニューの中に[サイズ変更]、［クリア］、［ヘルプ］メニューの中に［バージョン情報］です。では、作ってみますね。フォームデザイナの画面でTMainMenuコンポーネントを配置します。ツールパレットの「Standard」カテゴリから「TMainMenu」コンポーネントを探して、フォームの適当な位置に配置します。非ビジュアルコンポーネントだから、どこに配置してもいいのよね。

配置したMainMenu1をダブルクリック、もしくはマウスの右ボタンをクリックして表示されるメニューから「メニューデザイナ」を選択します。メニューデザイナを表示したら、画面の左上に破線でできた枠を表示しているのを確認します。これが新規作成するメニューになるんですって。オブジェクトインスペクタ、プロパティページで「ローカライズ対象」の「Caption」プロパティに「ファイル(&F)」と入力します。入力ができると、「ファイル(F)」の右に新しい枠を表示しますので、選択して「編集」メニューを作ります。枠を選択して、プロパティページで「ローカライズ対象」の「Caption」プロパティに「編集(&O)」と入力します。次に、新しくできた右側の枠を選択して「ヘルプ」メニューを作ります。枠を選択して、プロパティページで「ローカライズ対象」の「Caption」プロパティに「ヘルプ(&H)」と入力します。

ここまでできたら各メニューを選択して、中のメニュー項目を作成します。「ファイル(F)」を選択すると、下に新しい枠を表示しますので選択します。まずは「開く」メニューを作ります。プロパティページで「ローカライズ対象」の「Caption」プロパティに「開く(&O)...」と入力します。メニューをクリックして別の画面を表示するように作るとき、後ろに「...」と付けるんですって。さらにショートカットも追加します。プロパティページで「ローカライズ対象」の「ShortCut」プロパティで「Ctrl+O」を選択します。同様にして以下の表のようにメニューを作成します。途中、［名前をつけて保存］メニューと［終了］メニューの間に区切り線を入れておきます。Captionプロパティに半角で「-」(ハイフン)を入力します。

ファイルメニュー(F1)

編集メニュー(E1)

ヘルプメニュー(H1)

ファイル - 開くメニュー(O1)

ファイル - 名前をつけて保存メニュー(S1)

ファイル - 区切り線(N1)

ファイル - 終了メニュー(X1)

編集 - サイズ変更メニュー(S2)

編集 - クリアメニュー(C1)

ヘルプ - バージョン情報メニュー(A1)

Hide image

図05 メニューデザイナ

メニューがついただけで、なんだかいろいろできそうな気がしますね。これだけじゃメニューを選んでも何も動かないので、コードを書いて動くようにします。今回コードを書くのは、［終了］メニューのイベントハンドラだけです。計算機を作ったとき「Close」メソッドでプログラムを終了しましたが、今回も同じかしら？教えて、高橋先生！

先に終了メニューをクリックしたとき、プログラムを終了するようにコードを書きます。画面をフォームデザイナに切り替えます。MainMenu1メインメニューコンポーネントをダブルクリックするなどして「メニューデザイナ」を表示します。「ファイル(F)」をクリックして、メニュー項目を展開します。表示したメニューの中から「終了(X)」を選択します。次にオブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」をダブルクリックして、イベントハンドラを作成します。「Close」メソッドを書けばいいのね。太字部分を追加します。

procedure TfrmMain.X1Click(Sender: TObject);
begin
  Close;
end;

次にメッセージボックスを表示するコードを、OnCloseQueryに記述します。画面をフォームデザイナに切り替えて、構造ペインから「frmMain」を選択します。オブジェクトインスペクタ、イベントページで「表示」カテゴリの「OnCloseQuery」をダブルクリックして、イベントハンドラを作成します。MessageDlg関数を呼び出します。メッセージは「'終了しますか？'」、メッセージボックスの種類は「mtConfirmation」、ボタンの種類は「[mbOK, mbCancel]」にします。戻り値が「mbOK」だったら、CanCloseに「True」を代入します。「mbOK」ではなかったら、CanCloseに「False」を代入します。太字部分を追加します。

unit FormDrawing;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, XPMan, Buttons, Menus, ExtDlgs, ComCtrls;

type
  TfrmMain = class(TForm)
    sbxDraw: TScrollBox;
    XPManifest1: TXPManifest;
    Panel1: TPanel;
    pbxDraw: TPaintBox;
    sbtnHoso: TSpeedButton;
    sbtnFuto: TSpeedButton;
    shpColor: TShape;
    ColorDialog1: TColorDialog;
    stbMain: TStatusBar;
    MainMenu1: TMainMenu;
    F1: TMenuItem;
    E1: TMenuItem;
    H1: TMenuItem;
    N1: TMenuItem;
    O1: TMenuItem;
    S1: TMenuItem;
    N2: TMenuItem;
    X1: TMenuItem;
    C1: TMenuItem;
    A1: TMenuItem;
    procedure pbxDrawMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure pbxDrawMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure pbxDrawPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure shpColorMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure X1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure pbxDrawMouseLeave(Sender: TObject);
  private
    { Private 宣言 }
    preX: Integer;
    preY: Integer;
    bmpBuf: TBitmap;
  public
    { Public 宣言 }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('終了しますか？', mtConfirmation, [mbOK, mbCancel], 0)
   = mrOk then
    CanClose := True
  else
    CanClose := False;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  preX := -1;
  preY := -1;
  bmpBuf := TBitmap.Create;
  bmpBuf.PixelFormat := pf32bit;
  bmpBuf.SetSize(640, 480);
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
//  ReportMemoryLeaksOnShutdown := True;

  if Assigned(bmpBuf) then
  begin
    bmpBuf.FreeImage;
    FreeAndNil(bmpBuf);
  end;
end;

procedure TfrmMain.pbxDrawMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if GetKeyState(VK_LBUTTON) < 0 then
  begin
    pbxDrawMouseMove(Sender, Shift, X, Y);
  end;
end;

procedure TfrmMain.pbxDrawMouseLeave(Sender: TObject);
begin
  stbMain.Panels[0].Text := '';
  stbMain.Panels[1].Text := '';
end;

procedure TfrmMain.pbxDrawMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var
  w: Integer;
  c: TColor;
begin
  stbMain.Panels[0].Text := 'X = ' + IntToStr(X);
  stbMain.Panels[1].Text := 'Y = ' + IntToStr(Y);

  if GetKeyState(VK_LBUTTON) < 0 then
  begin
    if sbtnHoso.Down then
      w := 5
    else
      w := 20;
    c := shpColor.Brush.Color;
    pbxDraw.Canvas.Pen.Mode  := pmCopy;
    pbxDraw.Canvas.Pen.Width := w;
    pbxDraw.Canvas.Pen.Color := c;
    pbxDraw.Canvas.MoveTo(preX, preY);
    pbxDraw.Canvas.LineTo(X, Y);
    bmpBuf.Canvas.Pen.Mode  := pmCopy;
    bmpBuf.Canvas.Pen.Width := w;
    bmpBuf.Canvas.Pen.Color := c;
    bmpBuf.Canvas.MoveTo(preX, preY);
    bmpBuf.Canvas.LineTo(X, Y);
  end;
  preX := X;
  preY := Y;
end;

procedure TfrmMain.pbxDrawPaint(Sender: TObject);
begin
  pbxDraw.Canvas.CopyMode := cmSrcCopy;
  pbxDraw.Canvas.Draw(0, 0, bmpBuf);
end;

procedure TfrmMain.shpColorMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
  if ColorDialog1.Execute then
    shpColor.Brush.Color := ColorDialog1.Color;
end;

procedure TfrmMain.X1Click(Sender: TObject);
begin
  Close;
end;

end.

記述できたら保存して実行してみましょう。ツールバーの[すべて保存]ボタンをクリックしてから[実行]ボタンをクリックします。メニューバーから「終了(X)」メニューを選択して、メッセージボックスを表示します。[キャンセル]ボタンをクリックして、終了しないことを確認します。次にフォームの[×](閉じる)ボタンをクリックして、メッセージボックスが表示されるかな？やった。うまくいきました。ここでは[OK]ボタンをクリックして通常の終了をするか確認します。

Hide image

図06 終了メッセージ