開発室のソースを表示

== Mery 3 (コードネーム: Alpaka) ベータ版置き場の予定 ==


Mery のエディタエンジン TNotePad の作者さんの開発記録によると TNotePad (真魚) の 64 ビット版は開発・公開を中止されたようです。Delphi XE2 では無理という雰囲気の内容でしたので、Mery の 64 ビット対応についても私の技術力でどこまで対応できるかは分かりませんが、最悪、やっぱ開発やめますというケースも想定してこの「開発室」でこっそりベータ版を公開していこうと思います。


=== 予定 ===

*64 ビット対応
*正規表現エンジン「鬼車」から「鬼雲」に変更
*Tidy HTML5 採用


=== やってみたいこと ===

*ツールバーの大きいアイコンが欲しい
:[http://www.glyfz.com/ Glyfz] の「Office 2016」が素敵。でも「Office 2010」の全部セットで $125 でも良いかもしれない
*オシャレな exe アイコンが欲しい
:デザインが統一された商用のアプリケーションアイコン一式が欲しい
*自動アップデートの実装
:技術的好奇心でやってみたいけど、サーバ増強が必要かもしれない
:自動でアップデートされてしまうとブログサイトの閲覧数が確実に減る (アイコンとか買いたいのでアフィ踏んで欲しい)
:通信するアプリはデジタル署名がないとノートン先生に消される率が高そう


=== 開発環境 ===

*Embarcadero Delphi XE2
**Delphi 10 Seattle だとオーバースペック
**exe のファイルサイズが 400KB 程膨らむけど Delphi 10 Seattle よりはだいぶマシ
**ちなみにその 400KB は XE2 から搭載されたスキン機能のせいらしい
::(どうせならスキン機能使ってみるか？と思ったらダサいのしかなかった)
:[[ファイル:Mery3_01.png|border]]


*Microsoft Visual C++ 2008
**Visual C++ 2015 だとオーバースペック
**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い


=== 現状 ===

*本体の 64 ビット対応
:Active Script の 64 ビット対応がヤバかった
*Tidy HTML5 採用
:なんかできそうな気がしてきた
*[https://github.com/k-takata/Onigmo 鬼雲] 64 ビット版のビルド
:良く分からなかったけどなんかできたっぽい
:ヘッダの 64 ビット対応もほぼ完了
*[https://github.com/hunspell/hunspell Hunspell] 64 ビット版のビルド
:そもそも 64 ビット版なんてないし、64 ビットでビルドすればいいだけなのか謎
*[https://github.com/htacg/tidy-html5 Tidy HTML5] 64 ビット版のビルド
:そもそも MSVC でビルドする方法が分からない


=== 問題 ===

*64 ビット対応しても恩恵少なくね？
:TNotePad の設計上、大きいファイルの扱いは苦手
:開いているファイルすべての合計が 2GB 以上いけるようになるので、まあ恩恵といえばそれぐらい
*フラットデザインにするかどうか？
:私はまだ Windows 7 なのでフラットデザインが似合わない
*Delphi XE2 ではビルド番号の自動更新が無くなってる
:ビルド番号があると「がんばってる感」があるんだけど、まぁ無くても良いか
*Delphi XE2 だと不具合でリソースが英語 (1033) になる
:それほど問題はなさそうだけどなんだかなぁ…


=== 既知の不具合 ===
*印刷プレビューがマルチモニタ対応していない
:→ がんばる


=== ご意見・ご要望 ===
*'''Tidy HTML5'''
:→ 実験中
*(検討) アウトラインのドラッグドロップで並べ替え
:→ できなくはない気がするけど、ツリービューのドラッグドロップを Delphi でやるのが面倒
*(検討) 自動マーカー、手動マーカー
:→ 面白そうだけどかなり大変
*(検討) 開いているファイルから置換
:→ なかなか大変
*(検討) バックアップ
:→ 個人的には必ずオフにする機能なので作るのめんどい
*(保留) EXE アイコンがダサい？ 有志の方作成：[[ファイル:Icons.zip]]
:→ EXE アイコンってアプリケーションの顔だと思うので簡単には決められない
*(保留) 単語分断折り返し？
:→ 折り返しは内部でキッチリ決まってるので手の着けようがなさそう
*(保留) 矩形選択で文字入力したときにイイ感じに入力されると良いな
:→ 作ってみたけど問題多すぎ
*(保留) CSV / TSV 編集機能の研究
:→ Excel 使え！？
*(保留) トリプルクリックからの論理行選択
:→ 物理行選択派な人もいそう
*(完了) ウィンドウの縦分割
:→ 実装した。上下左右同時分割は実装しない
*(完了) 特殊文字入力のインターフェイス考察
:→ 特殊文字を入力するマクロを同梱した
*(完了) 書き換え禁止モードをわかりやすくする？
:→ タブに鍵マークを表示するようにした
*(完了) 先頭大文字で Don'T になっちゃう
:→ アポストロフィは無視するようにした
*(完了) 最大化→最小化→復元時のファイルの更新チェックを走らせる手段の調査
*(完了) バイナリなどを開いたときの確認ダイアログで「キャンセル」したい
*(完了) 文字間隔の設定
*(完了) グレーアイコンが濃すぎる？
*(完了) 新規作成時のエンコードの指定方法について検討
*(完了) ドラッグ中にメッセージボックスを表示させるとフリーズすることがある
*(完了) 起動時引数行番号と一緒に桁番号も指定
*(完了) 単語補完の自動起動
*(完了) 0x200Fの挙動
*(完了) 画面中央付近でキャレットを固定したい
:→ ScrollMargin を最大値に設定
*(完了) 起動時引数エンコードの指定
*(完了) 起動時引数編集モードの指定
*(不要) SJIS、UTF8 とかごとの文字コード表示
:→ UTF8 標準化により却下


=== アイコン ===

*[https://github.com/paomedia/small-n-flat small-n-flat]
:パブリックドメインだし SVG なので使いやすい。種類も豊富なので他のアプリとデザインを統一できる
:試しにこのアイコンに変更してみたらサイズが 100KB も縮んだw
[[ファイル:Mery_Icon.png]]


*[http://graphicloads.com/ GraphicLoads]
:完全無料。PNG (256x256) と AI 形式がある。他にも有料 (割と安い) で各種アイコンあり
[[ファイル:Mery_Icon2.png]]
[[ファイル:Mery_Icon3.png]]


== Delphi 10 Seattle の不具合 ==

Windows 10、ディスプレイ 1 (メイン: 125%)、ディスプレイ 2 (サブ: 100%) の Per-Monitor DPI で確認

=== Per-Monitor DPI にてフォーム表示直後にスケーリングされない ===

*フォームにボタンでも適当に貼りつけて起動するだけで発生

:BorderStyle が bsSizeable の場合が駄目っぽい
:起動直後に WM_DPICHANGED が飛んでこないためスケーリングされないようだ
::ステータスバーを貼りつけるとなぜか直る
::WS_POPUP を含めるとなぜか直る (Position で poDefault が効かないなどの副作用あり)

*<span style="color:crimson;">なお、Delphi 10 Seattle Update 1 ではもっと派手にぶっ壊れている模様</span>

=== Per-Monitor DPI にて Constraints を指定していると正常に動作しない ===

[http://qc.embarcadero.com/wc/qcmain.aspx?d=77955 http://qc.embarcadero.com/wc/qcmain.aspx?d=77955]

*Vcl.Forms.pas の問題
:ScaleConstraints(M, D) で制約のサイズを変更している箇所がフォームのサイズを変更した後になってるため
:先に ScaleConstraints(M, D) を呼ぶようにしてやれば直る

<source lang="delphi">
procedure TCustomForm.ChangeScale(M, D: Integer);
var
  PriorHeight: Integer;
begin
  // modified begin
  ScaleConstraints(M, D);
  // modified end
  ScaleScrollBars(M, D);
  ScaleControls(M, D);
  if IsClientSizeStored then
  begin
    PriorHeight := ClientHeight;
    ClientWidth := MulDiv(ClientWidth, M, D);
    ClientHeight := MulDiv(PriorHeight, M, D);
  end;
  Font.Height := MulDiv(Font.Height, M, D);
  // modified begin
  (*
  ScaleConstraints(M, D);
  *)
  // modified end
end;
</source>

=== FormCreate 時のフォームの PixelsPerInch がおかしい ===

*親フォームの場合
:BorderStyle が bsSizeable だと PixelsPerInch が Screen.PixelsPerInch のまま
:ステータスバーを貼りつけると直る

*子フォームの場合
:WS_POPUP を含めずステータスバーを貼りつけている場合、起動時の PixelsPerInch が入っている
:WS_POPUP を含めてステータスバーを貼りつけている場合、Screen.PixelsPerInch が入っている
:WS_POPUP を含めてステータスバーを貼りつけていない場合、Screen.PixelsPerInch が入っている

*いずれの場合も FormShow 以降に処理を書けば正しい PixelsPerInch を取得できる

=== WM_DPICHANGED の実装における問題 ===

*Vcl.Forms.pas の問題
:WM_DPICHANGED で飛んでくる LPARAM (DPI 変更後の推奨ウィンドウサイズ) を使用せずに ChangeScale(Message.YDpi, FPixelsPerInch); の部分で自前でサイズを計算しているが、このやり方だとディスプレイをまたぐ位置によってはサイズが変更されなかったり、無限ループに陥ることも考えられる

<source lang="delphi">
procedure TCustomForm.WMDpiChanged(var Message: TWMDpi);
var
  I: Integer;
  OldPPI: Integer;
begin
  if not (csDesigning in ComponentState) then
  begin
    if (Message.YDpi = 0) or (FPixelsPerInch = 0) then
    begin
      if (Application.MainForm <> nil) and (Application.MainForm.PixelsPerInch <> 0) then
        FPixelsPerInch := Application.MainForm.PixelsPerInch
      else
        Exit;
    end;

    if Message.YDpi <> FPixelsPerInch then
    begin
      if Assigned(FOnBeforeMonitorDpiChanged) then
        FOnBeforeMonitorDpiChanged(Self, FPixelsPerInch, Message.YDpi);

      ChangeScale(Message.YDpi, FPixelsPerInch);
      for I := 0 to MDIChildCount - 1 do
        MDIChildren[I].ChangeScale(Message.YDpi, FPixelsPerInch);
      OldPPI := FPixelsPerInch;
      FPixelsPerInch := Message.YDpi;
      if Assigned(FOnAfterMonitorDpiChanged) then
        FOnAfterMonitorDpiChanged(Self, OldPPI, FPixelsPerInch);
    end;
    Message.Result := 0;
  end;
end;
</source>

*対策としては Message.ScalledRect^ の値を使用して MS のマニュアル通り SetWindowPos でウィンドウサイズを変更する
:[https://msdn.microsoft.com/ja-jp/library/windows/desktop/dn312083(v=vs.85).aspx https://msdn.microsoft.com/ja-jp/library/windows/desktop/dn312083(v=vs.85).aspx]

*さらなる問題。MS のマニュアル通りにするとウィンドウの高さが若干おかしい
:これの理由は LPARAM に含まれているウィンドウの高さの値がタイトルバーも含めた値のため
::Windows 10 では Per-Monitor DPI でディスプレイをまたいでもタイトルバーの高さは変更されない (むしろ変更できないっぽい)
::ディスプレイをまたいで本来変更されるはずのタイトルバーの高さが変更されないので、その差分だけクライアント領域が狭くなる
::でも自前で高さを変更しちゃうと先に述べたとおり無限ループなどの原因になる
::<span style="color:crimson;">→ つまり回避不能</span>

*でも Windows 10 の電卓みたいな標準アプリはタイトルバーの高さも変わるぞ？
:調べたみたらタイトルバーの高さが変わるのは、実はあのタイトルバーは本物のタイトルバーではなく、クライアント領域に描かれている絵らしい
:しかしメニューのサイズとかも変わっているので、もしかすると MS が裏技を用意しているのかも？

=== FormCreate でフォームのフォントを変更してもスケーリングされない ===

*Vcl.Forms.pas を見ると TCustomForm.ReadState の部分でフォントのサイズなどのスケーリングを行っているが、ReadState は FormCreate より前に呼び出されているので FormCreate でフォントを設定しても時すでに遅し
:かといって TCustomForm.ReadState より前にフォントを設定したとしても ReadState でリソースからフォントを上書きされてしまうので無意味
:フォントを変更したい場合は FormShow 以降に PixelsPerInch を使用して自前でフォントの Height をスケーリングしてやる必要がある