Delphiの環境設定

設定タブ

• 「エディタファイル」の自動保存をON。
  要するにソースコードが自動で保存されるかどうか。 デフォルトは恐ろしい事にOFFなんです。

デザイナタブ

• 「グリッドの大きさ」を小さくする。
  8×8では大きすぎます。 RAD時、コントロールの配置はこれに位置合せされるわけですからもっと小さくしておきましょう。 お薦めは4×4。位置合せの手間を惜しまないのであれば「グリッドに合せる」を切る方法もありますが。
• 「テキスト形式で作成」をOFF。
  詳しくは省きますが、要するにデフォルトではリソースがテキスト形式で、画像も全てテキストで保存されて、ディスクの無駄遣いです。勿論リンクする時はバイナリーになりますが。
• 「自動生成の対象に追加」をOFF。
  ダイアログボックスを作る時も、自動で起動時から常に隠しウィンドウとしてメモリー上に置かれる状態になります。 プロジェクトオプションで個々のフォームについて設定はできますが、根っこから切っておきましょう。 設定忘れのメモリーの無駄づかいを防げます。 これをOFFにしても、メインフォームだけは自動生成されますので心配無用です。

オブジェクトインスペクタ

• 「インスタンス一覧を表示」をOFF。
  上のインスタンス選択コンボボックスはDelphi 1からあるものなのですが、Delphi 6になってオブジェクトツリーという便利なものができたので、いらない。
• 「ステータスバーを表示」をOFF。
  オブジェクトツリーができて、ただでさえインスペクタの高さが無くなったのに画面のスペースの無駄遣いです。

Delphi Direct

• 「ネットワーク経由で自動的に確認を行う」をOFF。

コンパイラ

• 「型付き@演算子」をON。
  Pascalの@は、C/C++の単項&と同じでアドレスを取ります。 このオプションがOFFの場合、なんと、整数型の変数のアドレスを取っても、実数型の変数のアドレスを取っても、全てPointer型(Cのvoid*)になってしまいます。 恐ろしいのでこのチェックはONです。
  なお、この状態では、たまに他の人の書いたソースがコンパイルできなくなることがあります。 その時は、そのソースの先頭に{$TYPEDADDRESS OFF}と書いてやればそのソースだけこのオプションがOFFの状態でコンパイルできます。 (本当は直してもらうべきなのでしょうが)

ディレクトリ/条件

• ユニット出力ディレクトリを、新たに作った作業用ディレクトリに。
  ここが空だと、ユニットと同じ位置に*.dcu(C/C++の*.obj)ができます。 それでもいい人はいじらなくていいです。私は全プロジェクトで同じユニット出力ディレクトリを使用していて、そこを消すだけで中間ファイルが一掃できるという寸法です。

パッケージ

• 設計時パッケージの一覧から、Borland Sample Inmported ActiveX ControlsとMicrosoft Office 200 Sample Automation Wrapper Componentsを探し出して、チェックをOFFにする。
  滅多に使わないのに、メモリーの無駄、かつ、パレットのスペースを食うだけです。 使わないコンポーネントを提供しているパッケージはチェックを切っておきましょう。 ただし中には、アドインとして機能しているものもあるので注意。
• 実行時パッケージ
  実行時パッケージは、使うと*.exeサイズは確かに減りますが、配布には別に*.bpl(特殊な*.dll)が必用になり、メモリー使用量も増えます。 普通の*.dllではできないパッケージならではの技もあるのですが、そういった理由がない限り使わないのがいいと思います。 デフォルトのOFFは正解なのでいじらないように。

Ctrl+[でbegin、Ctrl+]でendを入力

まず、このリンク先のソースをユニットとして保存します。 パッケージを新規に作成し、上のユニットを追加。 "requires"に、Delphi 6のディレクトリのどこかにあるdesignide.dcpを探して来て追加。 オプションで、設計時パッケージとします。説明文は適当に書きます。 後は、構築(デフォルトではC:Program FilesBorlandDelphi6ProjectsBPLに作成されます)して、インストールすればOKです。

完璧に思えるのですが、実はCtrl+[というのはエスケープキーのキーコードとかぶっています。 $1b……DOSのころはエスケープシーケンスの入力にCtrl+[使ってましたしね。 編集中にエスケープキーに用事はほとんど無いのですが、IME入力を取り消そうとしてエスケープキーを連打していてbeginが入力されたら焦ります。 BeginProc中にGetKeyState(VK_ESCAPE) and $80 <> 0とでも書き加えて、本当にエスケープキーが押されていたら何もしないようにしたほうがいいでしょう。

同じようにさえすれば任意のキーで任意の文字列を挿入できるわけですから、サンプルとしても使いでがあります。 匿名の作者様に感謝！

F1ヘルプでMicrosoft Platform SDKを引く

Borland Community Home Page中のCodeCentralの中のDelphiのOpenToolsのAnders Melanderさんの"MSDN Help integration"。

Project JEDIのJCL(JEDI Code Library)にも似たようなものがありますが、昔試した時はBuggyでした。

非デバッグ実行

普通にエクスプローラなどから実行したような実行を行うメニューをIDEに追加します。 DirectXやシェルの名前空間で、何故かデバッガだと実行できなくなる場合があるので、そんな時は便利かもです。

Borland Community Home Pageにいくつかあります。 実は、%1を実行するバッチファイルにして、ツールメニューに追加、だけでも用は足せるのですが。

一次資料

OpenToolsAPIのヘルプファイルDel6IOTA.hlpは、Borland米国本家のページからダウンロードできます。

Ctrl+Shift+[でbegin、Ctrl+Shift+]でendを入力 for Delphi 8

とりあえずbegin-end短縮入力だけでも使えないと、苦痛ですので、移植してみました。 C#BuilderのOpenToolsAPIの解説が無いと、ほぼ不可能だったことでしょう……。

メニューのショートカットに割り当てて無理やり実現しています。 Ctrl+[が何かにぶつかってるのか機能しませんので、キーは変えてます。 プロジェクトソースでは何故かEditor = nilで動かないのが謎です。何か必要な記述が足りてないものと思われますが……。Update 2で動くようになりました。

unit UBeginEnd;

// http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?
//   bo=lounge&vi=1007345219&rm=100
//
// copyright デフォルトの名無しさん
// modified for Delphi8 by YT

{$WARN UNIT_PLATFORM OFF}

{$DEFINE END_WITH_UNINDENT}
{$DEFINE DISTINGUISH_ESC}

interface

uses
  Windows, SysUtils, Borland.Vcl.Menus, Borland.Studio.ToolsAPI;

type
  TBeginEnd = class(TObject{, IOTAKeyboardBinding})
  private class var
    FInsertBeginItem: IOTAMenuItem;
    FInsertEndItem: IOTAMenuItem;
  public
    class procedure IDERegister; static;
    class procedure InsertBegin(Sender: TObject; e: EventArgs); static;
    class procedure InsertEnd(Sender: TObject; e: EventArgs); static;
    class procedure UpdateShortCuts(Sender: TObject; e: FileNotificationEventArgs); static;
  end;

implementation

function CurrentSourceEditor: IOTASourceEditor;

  function GetEditorFromModule(const Module: IOTAModule): IOTASourceEditor;
  var
    I: Integer;
    Editor: IOTAEditor;
    Owner: IOTAModule;
  begin
    Editor := Module.CurrentEditor;
    if Editor is IOTASourceEditor then
      Result := Editor as IOTASourceEditor
    else
    begin
      for I := 0 to Module.ModuleFileCount - 1 do
      begin
        Editor := Module.ModuleFileEditors(I);
        if Editor is IOTASourceEditor then
        begin
          Result := Editor as IOTASourceEditor;
          Exit;
        end
      end;
      for I := 0 to Module.OwnerModuleCount - 1 do
      begin
        Owner := Module.GetOwnerModule(I);
        if Owner <> Module then
        begin
          Result := GetEditorFromModule(Owner);
          if Result <> nil then Exit;
        end
      end;
      Result := nil;
    end
  end;

var
  Module: IOTAModule;
begin
  Module := (BorlandIDE.GetService(typeof(IOTAModuleServices)) as IOTAModuleServices).CurrentModule;
  if Module = nil then
  begin
    MessageBox(0, 'Module = nil', 'IDEUtils', 0);
    Result := nil
  end
  else
    Result := GetEditorFromModule(Module)
end;

{ TBeginEnd }

class procedure TBeginEnd.IDERegister;
var
  MenuService: IOTAMainMenuService;
  Service: IOTAService;
begin
  MenuService := BorlandIDE.GetService(typeof(IOTAMainMenuService)) as IOTAMainMenuService;

  {end}

  FInsertEndItem := MenuService.AddMenuItem('EditSelectAll', OTAMenuItemLocation.otamlAfter,
    'InsertEndItem', 'endを挿入');

  Include(FInsertEndItem.Executed, InsertEnd);

  {begin}

  FInsertBeginItem := MenuService.AddMenuItem('EditSelectAll', OTAMenuItemLocation.otamlAfter,
    'InsertBeginItem', 'beginを挿入');

  Include(FInsertBeginItem.Executed, InsertBegin);

  {-}

  MenuService.AddMenuItem('EditSelectAll', OTAMenuItemLocation.otamlAfter,
    'BeginEndSeparatorItem', '-');

  {shortcut}

  Service := BorlandIDE.GetService(typeof(IOTAService)) as IOTAService;
  Include(Service.FileNotification, UpdateShortCuts);
end;

class procedure TBeginEnd.InsertBegin(Sender: TObject; e: EventArgs);
var
  Editor: IOTASourceEditor;
begin
  Editor := CurrentSourceEditor;
  if Editor = nil then
    MessageBox(0, 'Editor = nil', 'IDEUtils', 0)
  else if Editor.EditViewCount = 0 then
    MessageBox(0, 'ViewCount = 0', 'IDEUtils', 0)
  else
    Editor.GetEditView(0).Position.InsertText('begin'#13#10#9);
end;

class procedure TBeginEnd.InsertEnd(Sender: TObject; e: EventArgs);
var
  Editor: IOTASourceEditor;
  View: IOTAEditView;
begin
  Editor := CurrentSourceEditor;
  if Editor = nil then
    MessageBox(0, 'Editor = nil', 'IDEUtils', 0)
  else if Editor.EditViewCount = 0 then
    MessageBox(0, 'ViewCount = 0', 'IDEUtils', 0)
  else
  begin
    View := Editor.GetEditView(0);
    View.Position.Tab(-1);
    View.Position.InsertText('end');
  end
end;

class procedure TBeginEnd.UpdateShortCuts(Sender: TObject; e: FileNotificationEventArgs);
const
  Shift = $2000;
  Control = $4000;
  Alt = $8000;
begin
  if (e.NotifyCode = OTAFileNotification.ofnPackageInstalled) or
    (e.NotifyCode = OTAFileNotification.ofnPackageUninstalled) or
    (e.NotifyCode = OTAFileNotification.ofnFileOpened) then
  begin
    FInsertBeginItem.Shortcut := TextToShortCut('Ctrl+@');
    FInsertEndItem.Shortcut := TextToShortCut('Ctrl+:');
  end
end;

end.

環境オプション

• エディタファイルの自動保存をON。
  当然。
  ちなみに「実行中のデザイナを隠す」は、デバッグ時のレイアウトが初期状態から別になっている以上、ほとんど意味がありません。
• オブジェクトインスペクタ
  如何にコンポーネントパレットが無くなって縦に広く使えるようになったといえどほんの少し。 インスタンス一覧とステータスバーはやはり非表示です。 
• ツールパレット
  ものすごい細かい色指定ができます。 おすすめは虹色系。 カテゴリ毎に色が変わるので案外見易いです。 後は「カテゴリを自動的に閉じる」ONとか……これも趣味ですね。
• コードエクスプローラ
  設定ダイアログにバグがあって、ソース順にできません……。 ですのでレジストリエディタでHKEY_CURRENT_USER\Software\Borland\BDS\3.0\Code ExplorerのソーティングをSourceにします。 ……これ絶対、レジストリ項目までローカライズしてしまったとしか思えないのですが……おーい……。
• 各種デザイナ
  グリッドが8単位は荒すぎますので4単位に。
  「テキスト形式で作成」「自動生成の対象に追加」は両方OFF。

エディタ設定

バックアップの挙動が以前と変わって、__historyという隠しディレクトリに連番付けてバックアップされるようになりました。 エディタの下のタブから差分とか見えます。 ……で……バックアップを作らないように設定しても、確かにバックアップファイルは作られなくなりますが、空の__historyディレクトリだけは作られてしまうんですよこれが……。 今までこの設定はOFFにしてましたが、どうせならとやけくそ気味にONにしてます。 まあ便利といえば便利かもしれないのですが、私は「最適なパディング」もONにしていますので、SPACEとTABの違いだけの行でも差分扱いしてく……ま、まあ、流石に贅沢ですねこれは……。

コード補完とコードパラメータはOFF。 欲しいときはキーボードから呼べますしね。
新機能のHelp Insightですが、マウスを識別子の上に乗せると情報を表示という意味では以前のバージョンからある識別子定義の表示(Symbol Insight)と被っています。 見た目が派手にはなっていますが、スタイルシートとか使ってるってことはIEコンポーネント！？なんて思ってしまいますので、とりあえず切っておきます。 Symbol InsightはON。
あと、Error Insightは、コンパイルしなおさなくてもエラーがわかるという点便利といえば便利なのですが、Delphi for .NETの構文をベースに解析しているらしく、varargsなんてWin32にしかない構文を使うとその箇所以降ぐだぐだになってくれます。 ですのでError InsightもOFF。

HTML/ASP.NET オプション

こんなの使わな……なんて思っては勿体ないです。 私は、.NETをほとんど使わないので、Delphi8の利用法はもっぱらHTMLの編集でした。 今思えばバージョンアップ代金が凄い勿体ないです。 しかし、これを使わないのも勿体ないのです。

ホームページビルダーなどは汚いHTMLを吐きますが、Tidy(というオープンソースのHTML整形ツール)を内蔵したこのHTMLエディタは、手書きより奇麗なHTMLを吐いてくれます。 XHTMLにもしてくれます。 騙されたと思って「Tidyをデフォルトのフォーマッタとして使う」をON！

デバッガオプション

「エディタを書き込み禁止とする」とか。
イベントログを弄ってみるとか。

Together

「自動的に有効にする」はもちろんOFF。
[プロジェクト]-[Together サポート...]からプロジェクト単位でON/OFFできます。