早速フォームを作るのかしら？フォームを作ってからメニューを実装するってこと？そうすると、完成まで、あとどれくらい作業があるのかな？教えて、高橋先生！

コンポーネントまで配置してあるなんて便利ね。すぐに作ってみようっと。それには、まずプロジェクトを開きます。Turbo Delphiを起動して、画面中央の「ホームページ」で「Drawing.bdsproj」を選択。もし一覧に表示されていなければ、ツールバーの[プロジェクトを開く(Ctrl+F11)]ボタンをクリックします。「プロジェクトを開く」ダイアログボックスから「Drawing.bdsproj」を探します。

テンプレートを使ってバージョン情報ダイアログを作成します。ツールバーの[新規作成]ボタンをクリックして、「新規作成」ダイアログボックスを表示します。

Hide image

図01 [新規作成]ボタン

項目カテゴリで「Delphi ファイル」を選択し、表示されたアイコン一覧から「バージョン情報ダイアログ」を選択して[OK]ボタンをクリックします。

Hide image

図02 新規作成ダイアログボックス

「バージョン情報ダイアログ」用のユニットのコードエディタが表示されますので、フォームデザイナに切り替えます。

わぁ。本当に画面ができているのね。バージョン情報ダイアログのコンポーネントは、テンプレートのものをそのまま使用して、プロパティだけ変更します。

AboutBox(フォーム)

ProductName(ラベル　「製品名」)

Version(ラベル　「バージョン」)

Hide image

図03 バージョン情報ダイアログ

バージョン情報ダイアログが完成したら、保存します。ツールバーの[すべて保存]ボタンをクリックします。バージョン情報ダイアログのファイル名は「FormABOUT.pas」とします。

「バージョン情報(A)...」メニューを実装するのよね。メソッドなんかを使えばすぐにできそうだけど、どうなんだろう？教えて、高橋先生！

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls;

unit UnitA;
interface
uses Windows, SysUtils, UnitB;
//UnitAでは、Windows, SysUtils, UnitBが使える
…
implementation
…

unit UnitC;
interface
uses UnitA;
//UnitCでは、Windows, SysUtils, UnitB, UnitAが使える
…
implementation
…

unit UnitB;
interface
uses UnitA;
//UnitBでは、UnitA, Windows, SysUtils, UnitBが使える
…
implementation
…

循環参照はちょっと難しかったけれど、インターフェース部に闇雲に追加しちゃだめだってことはわかったわ。では、簡単な方法でuses節を追加します。画面上部の「FormDrawing」のタブをクリックして画面を切り替えます。表示はコードエディタのままでいいので、メニューバーの[ファイル(F)|ユニットを使う(U)...]をクリックします。「ユニットの使用」ダイアログボックスが表示されたら、「FormABOUT」ユニットを選択して[OK]ボタンをクリックします。実装部の1行目にuses節が追加されました。

implementation
uses FormABOUT;
{$R *.dfm}

これで、コードでフォームを表示することができるのね。

では、バージョン情報ダイアログを表示できるようにコードを記述します。フォームデザイナでMainMenu1をダブルクリック、もしくはマウスの右ボタンクリックで[メニューデザイナ(Y)...]を選択します。メニューデザイナで、[ヘルプ(H)|バージョン情報(A)...]メニューを選択します。オブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」をダブルクリックします。コードエディタに切り替わったら、太字部分を追加します。

procedure TfrmMain.A1Click(Sender: TObject);
begin
  frmAboutBox.ShowModal;
end;

コードの記述ができたら、保存して実行します。ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行テストします。メインフォームが表示できたら、メニューバーで[ヘルプ(H)|バージョン情報(A)...]メニューを選択します。これで、作成したバージョン情報ダイアログが表示できます。

Hide image

図05 バージョン情報ダイアログ表示

やりました！新しいフォームをちゃんと表示できたわ。あ、でも何にもコーディングしてないけど、[OK]ボタンをクリックしたらフォームが閉じちゃった。

バージョン情報ダイアログは完成！この調子でサイズ変更ダイアログも作っちゃおう。

えー、なんかちょっと心配だけど、とにかく画面を作成するところから始めます。ツールバーの新規作成ボタンをクリックして、新規作成ダイアログボックスを表示します。項目カテゴリで「Delphi ファイル」を選択し、表示されたアイコン一覧から「標準ダイアログ(縦並び)」を選択して、[OK]ボタンをクリックします。画面をフォームデザイナに切り替えます。

わぁ、さっきのバージョン情報ダイアログとは違う画面が作成できました。枠飾りは「TBevel」コンポーネントっていうんですって。この中にTLabelとTEditを2つずつ配置します。画面右下のツールパレットの「Standard」カテゴリから「TLabel」と「TEdit」を上下に２つずつ配置します。さらにツールパレットの「Win32」カテゴリで「TUpDown」コンポーネントを探して、2つずつ配置します。TEditの右横あたりにそれぞれ適当に並べます。

TUpDownコンポーネントはそのままにしておいて、ほかのコンポーネントのプロパティを先に設定しておきます。

OKCANCL1(フォーム)

Label1(ラベル)

Label2(ラベル)

Edit1(エディット)

Edit2(エディット)

Hide image

図06 サイズ変更ダイアログコンポーネント配置

あとは、TUpDownコンポーネントね。さっそく教えてもらおう。

では、プロパティを設定します。フォームデザイナの画面でUpDown1コンポーネントを選択します。画面左下のプロパティページで「リンク」カテゴリ、「Associate」プロパティの[▼]プルダウンボタンをクリックして「edtWidth」を選択します。edtWidthのTextプロパティが「0」に変わって、UpDown1が右隣に並んで配置されました。ほかにMaxプロパティとMinプロパティを設定します。最大値は「640」、最小値は「1」にしておきます。初期値としてPositionプロパティに、幅を「640」、高さを「480」とします。

UpDown1(上下ボタン)

UpDown2(上下ボタン)

プロパティが設定できたら保存しておきます。ツールバーの[すべて保存]ボタンをクリックして保存します。「OKCANCL1に名前をつけて保存」ダイアログボックスが表示されたら「FormPaintSize.pas」と名前をつけて保存します。

これで、サイズ変更ダイアログは完成ね。次はメニューから呼び出せば完成かな。

バージョン情報ダイアログは「ShowModal」メソッドで表示できたけど、今度のサイズ変更ダイアログも同じでいいのかな？

では、コードより先にスクロールボックスのプロパティ設定をします。画面上部の「FormDrawing」タブをクリックして、画面を切り替えます。フォームデザイナで「sbxDraw」を選択して、プロパティページで「表示」カテゴリの「Color」プロパティに「clBtnFace」を選択しておきます。これでペイントボックスとスクロールボックスの区別がしやくなります。

次に、uses節にユニットを追加します。FormDrawingユニットを表示していることを確認して、[ファイル(F)｜ユニットを使う(U)...]メニューをクリックします。「ユニットの使用」ダイアログボックスの一覧から「FormPaintSize」を選択して、[OK]ボタンをクリックします。設定できたら、コードエディタで、実装部のuses節を確認します。太字部分が追加されています。

implementation
uses FormABOUT, FormPaintSize;
{$R *.dfm}

uses節にユニットが追加できたら、イベントハンドラを作成します。フォームデザイナでMainMenu1をダブルクリック、もしくはマウスの右ボタンクリックで[メニューデザイナ(Y)...]を選択します。メニューデザイナで、[編集(E)|サイズ変更(S)...]メニューを選択します。オブジェクトインスペクタ、イベントページで「入力」カテゴリの「OnClick」をダブルクリックします。幅と高さは変数に入れておくので、数値が入れられる変数を2つ用意しておきます。また、白く塗りつぶすため「クリア」メニューで使った「TRect」型の変数も用意します。コードエディタに切り替わったら、太字部分を追加します。

procedure TfrmMain.S2Click(Sender: TObject);
var
  intW: Integer;
  intH: Integer;
  r   :  TRect;
begin

end;

サイズ変更ダイアログをモード付きフォームとして表示して、戻り値が「mrOk」かどうか調べるIf文を記述します。そして、サイズ変更ダイアログで入力した幅と高さを、それぞれ変数に代入します。太字部分を追加します。

procedure TfrmMain.S2Click(Sender: TObject);
var
  intW: Integer;
  intH: Integer;
begin
  if frmSizeDlg.ShowModal = mrOk then
  begin
    intW := StrToIntDef(frmSizeDlg.edtWidth.Text, 640);
    intH := StrToIntDef(frmSizeDlg.edtHeight.Text, 480);
  end;
end;

次にビットマップオブジェクトを破棄して、変数に代入したサイズで作り直します。そして、ビットマップオブジェクトを白く塗りつぶします。太字部分を追加します。

procedure TfrmMain.S2Click(Sender: TObject);
var
  intW: Integer;
  intH: Integer;
  r   : TRect;
begin
  if frmSizeDlg.ShowModal = mrOk then
  begin
    intW := StrToIntDef(frmSizeDlg.edtWidth.Text, 640);
    intH := StrToIntDef(frmSizeDlg.edtHeight.Text, 480);
    if Assigned(bmpBuf) then
    begin
      FreeAndNil(bmpBuf);
    end;
    bmpBuf := TBitmap.Create;
    bmpBuf.PixelFormat := pf32bit;
    bmpBuf.SetSize(intW, intH);

    r.Left   := 0;
    r.Top    := 0;
    r.Right  := intW;
    r.Bottom := intH;
    bmpBuf.Canvas.Brush.Color := clWhite;
    bmpBuf.Canvas.FillRect(r);
  end;
end;

最後にペイントボックスのサイズを設定してから、ビットマップオブジェクトの内容を「Repaint」メソッドで描画します。フォームのタイトルバーには「無題」と表示します。保存メニューの「Enabled」プロパティを「True」に設定します。太字部分を追加します。

unit FormDrawing;

interface
(中略)
implementation

uses FormABOUT, FormPaintSize;
{$R *.dfm}

procedure TfrmMain.A1Click(Sender: TObject);
begin
  frmAboutBox.ShowModal;
end;

procedure TfrmMain.C1Click(Sender: TObject);
var
  r: TRect;
begin
  r.Left   := 0;
  r.Top    := 0;
  r.Right  := bmpBuf.Width;
  r.Bottom := bmpBuf.Height;
  bmpBuf.Canvas.Brush.Color := clWhite;
  bmpBuf.Canvas.FillRect(r);
  pbxDraw.Repaint;
  S1.Enabled := True;
end;

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
    FreeAndNil(bmpBuf);
end;

procedure TfrmMain.O1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    if Assigned(bmpBuf) then
      FreeAndNil(bmpBuf);
    bmpBuf := TBitmap.Create;
    bmpBuf.LoadFromFile(OpenPictureDialog1.FileName);
    bmpBuf.PixelFormat := pf32bit;
    pbxDraw.Width  := bmpBuf.Width;
    pbxDraw.Height := bmpBuf.Height;
    pbxDraw.Repaint;
    Caption := Application.Title + ' - ' + OpenPictureDialog1.FileName;
  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);
    S1.Enabled := True;
  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.S1Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
  begin
    bmpBuf.SaveToFile(SavePictureDialog1.FileName);
    Caption := Application.Title + ' - ' + SavePictureDialog1.FileName;
    S1.Enabled := False;
  end;
end;

procedure TfrmMain.S2Click(Sender: TObject);
var
  intW: Integer;
  intH: Integer;
  r   : TRect;
begin
  if frmSizeDlg.ShowModal = mrOk then
  begin
    intW := StrToIntDef(frmSizeDlg.edtWidth.Text, 640);
    intH := StrToIntDef(frmSizeDlg.edtHeight.Text, 480);
    if Assigned(bmpBuf) then
    begin
      FreeAndNil(bmpBuf);
    end;
    bmpBuf := TBitmap.Create;
    bmpBuf.PixelFormat := pf32bit;
    bmpBuf.SetSize(intW, intH);

    r.Left   := 0;
    r.Top    := 0;
    r.Right  := intW;
    r.Bottom := intH;
    bmpBuf.Canvas.Brush.Color := clWhite;
    bmpBuf.Canvas.FillRect(r);

    pbxDraw.Width  := intW;
    pbxDraw.Height := intH;
    pbxDraw.Repaint;
    Caption := Application.Title + ' - ' + '無題';
    S1.Enabled := True;
  end;
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.

[サイズ変更(S)...]メニューが完成したら、保存して実行します。ツールバーの[すべて保存]ボタンで保存して、[実行]ボタンで実行テストします。実行できたら「お絵かきソフト」の[編集(E)|サイズ変更(S)...]メニューをクリックして、サイズ変更ダイアログを表示します。縦横のサイズを「200」程度にして[OK]ボタンをクリックします。左上に白い四角が表示されます。

Hide image

図07 完成図