[変更点 (2013/08/11)]

• heColorManager.pas で背景色を変更すると前景色が変更される問題を修正。

[変更点 (2013/08/15)]

• スクロールバーを VCL Style 対応にした。
• TDFMFountain を追加 (コンポーネントとしては登録されない)

[スクロールバーと VCL Style]
VCL スタイルを使うとスクロールバーが浮いてしまうので、スクロールバーだけは VCL スタイルで描画するようにしました。他の部分は VCL スタイルの影響を受けません…どうしてかというと Ruler や LeftBar 等の処理に困るのと、TEditor の Tips には自前で描画するものが多いので VCL スタイルの影響を受けるとメンドイ事になるからです。

[TDFMFountain]
これは "使う人がまずいない" と思われるのでコンポーネントにはしてありませんし、パッケージにも含めてありません。

ちょっと面白い記述になっています。普通に書くとこうなりますが、

var
  i, Cnt: Integer;
begin
  SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, Cnt, 0);
  if (WheelDelta > 0) then
    begin
      if (ssCtrl in Shift) or (Cnt = -1) then
        Sendmessage(Self.Handle, WM_VSCROLL, SB_PAGEDOWN, 0)
      else
        begin
          for i:=1 to Cnt do
            Sendmessage(Self.Handle, VSCROLL, SB_LINEDOWN, 0);
        end;
    end
  else
    begin
      if (ssCtrl in Shift) or (Cnt = -1) then
        Sendmessage(Self.Handle, WM_VSCROLL, SB_PAGEUP, 0)
      else
        begin
          for i:=1 to Cnt do
            Sendmessage(Self.Handle,WM_VSCROLL, SB_LINEUP, 0);
        end;
    end;
end;

　
こうなっています。

const
  StateNumber: array [Boolean, Boolean] of WPARAM =
    ((SB_LINEDOWN, SB_PAGEDOWN),(SB_LINEUP, SB_PAGEUP));
var
  i, Cnt: Integer;
  OP: WPARAM;
begin
  SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, Cnt, 0);
  OP := StateNumber[(WheelDelta > 0), (ssCtrl in Shift) or (Cnt = -1)];
  case OP of
    SB_LINEUP,
    SB_LINEDOWN:
      for i:=1 to Cnt do
        Sendmessage(Self.Handle, WM_VSCROLL, OP, 0);
    SB_PAGEUP,
    SB_PAGEDOWN:
      Sendmessage(Self.Handle, WM_VSCROLL, OP, 0)
  end;
end;

　
この書き方を知らない方には？？？なコードかもしれませんね。

なお、SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, Cnt, 0); はホイールがページスクロールの場合には Cnt に -1 が返り、行スクロールの場合には設定されたスクロール行数が返ります。

See Also:
[Delphi と 三項演算子 (条件演算子) (Delphi Forum)]
http://ht-deko.minim.ne.jp/delphiforum/?vasthtmlaction=viewtopic&t=270

[SystemParametersInfo function (Microsoft)]
http://msdn.microsoft.com/en-us/library/windows/desktop/ms724947%28v=vs.85%29.aspx

[変更点 (2013/08/18)]

• デフォルトのポップアップメニューのショートカットが効かなかった問題を修正。
• フォーカスをロストした後にマウスでクリックしてもキャレットが表示されない問題を修正。
• Delphi Fountain の予約語を追加。

・等幅フォントでワードラップしたとき、折り返した行末にある文字の右側1pxが欠ける

　上記のような現象を確認したので、お知らせしておきます。
　欠けてしまうのは、たとえば、下記のような文字です。
　・MSゴシック・16px（ビットマップフォント）・U+FF3F（全角のアンダーライン）
　　→TEditorでは15pxしか表示されません

　確認した環境は、下記のとおりです。
　・TEditor 2.52 Unicode Rel.25
　　→TEditorMarksはすべて表示しない・禁則処理しない
　・Delphi XE Starter
　・Windows 7 64bit

　確認したコードは、下記のとおりです。とりあえず。

  Editor1.Align := alClient;
  Editor1.Font.Name := 'ＭＳ ゴシック';
  Editor1.Font.Size := 12;
  Editor1.WordWrap := True;
  Editor1.WrapOption.WrapByte := 80;
  Editor1.Lines.LoadFromFile('hoge.txt');