開発室:備忘録 - 版の履歴

Admin: /* アイコン */

2017-03-28T13:19:05Z

アイコン

← 古い版		2017年3月28日 (火) 22:19時点における版
61行目:		61行目:
	[[ファイル:Mery_Icon2.png]]		[[ファイル:Mery_Icon2.png]]
	[[ファイル:Mery_Icon3.png]]		[[ファイル:Mery_Icon3.png]]

			*最終候補
			[[ファイル:Mery_Icon4.png]]

	==Delphi 10 Seattle の不具合==		==Delphi 10 Seattle の不具合==

2016年12月23日 (金) 09:23にAdminによる

2016-12-23T09:23:57Z

← 古い版		2016年12月23日 (金) 18:23時点における版
3行目:		3行目:

	Alpaca と Alpaka のどっちが正しいのか分からないけど、K の方が文字のバランスが良いし '''Mortal Kombat''' みたいでカッコイイ。		Alpaca と Alpaka のどっちが正しいのか分からないけど、K の方が文字のバランスが良いし '''Mortal Kombat''' みたいでカッコイイ。


	==予定==		==予定==
11行目:		10行目:
	*Tidy HTML5 採用		*Tidy HTML5 採用
	:→ 2.5 で対応済		:→ 2.5 で対応済


	==開発環境==		==開発環境==
24行目:		22行目:
	**Visual C++ 2015 だとオーバースペック		**Visual C++ 2015 だとオーバースペック
	**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い		**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い


	==現状==		==現状==
38行目:		35行目:
	*[https://github.com/htacg/tidy-html5 Tidy HTML5] 64 ビット版のビルド		*[https://github.com/htacg/tidy-html5 Tidy HTML5] 64 ビット版のビルド
	:→ なんかビルドできたっぽい		:→ なんかビルドできたっぽい


	==注意==		==注意==
	*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する		*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する
	:→ 完了		:→ 完了


	==問題==		==問題==
55行目:		50行目:
	*Delphi XE2 だと不具合でリソースが英語 (1033) になる		*Delphi XE2 だと不具合でリソースが英語 (1033) になる
	:それほど問題はなさそうだけどなんだかなぁ…		:それほど問題はなさそうだけどなんだかなぁ…


	==アイコン==		==アイコン==
67行目:		61行目:
	[[ファイル:Mery_Icon2.png]]		[[ファイル:Mery_Icon2.png]]
	[[ファイル:Mery_Icon3.png]]		[[ファイル:Mery_Icon3.png]]


	==Delphi 10 Seattle の不具合==		==Delphi 10 Seattle の不具合==

Admin: /* Delphi 10 Seattle の不具合 */

2016-12-23T09:23:17Z

Delphi 10 Seattle の不具合

← 古い版		2016年12月23日 (金) 18:23時点における版
73行目:		73行目:

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


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

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


	===Per-Monitor DPI にて Constraints を指定していると正常に動作しない===		===Per-Monitor DPI にて Constraints を指定していると正常に動作しない===
122行目:		120行目:
	end;		end;
	</source>		</source>


	===Constraints を指定しているとスケーリング後のフォームサイズがおかしい===		===Constraints を指定しているとスケーリング後のフォームサイズがおかしい===
130行目:		127行目:

	この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。		この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。


	===FormCreate 時のフォームの PixelsPerInch がおかしい===		===FormCreate 時のフォームの PixelsPerInch がおかしい===
143行目:		139行目:

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


	===WM_DPICHANGED の実装における問題===		===WM_DPICHANGED の実装における問題===
207行目:		202行目:
	function EnableNonClientDpiScaling; external user32 name 'EnableNonClientDpiScaling' delayed;		function EnableNonClientDpiScaling; external user32 name 'EnableNonClientDpiScaling' delayed;
	</source>		</source>


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

2016年12月23日 (金) 09:22にAdminによる

2016-12-23T09:22:30Z

← 古い版		2016年12月23日 (金) 18:22時点における版
1行目:		1行目:
	==~~はじめに~~==		==Mery 3 (コードネーム: Alpaka)==
	Mery のエディタエンジン TNotePad の作者さんの開発記録によると TNotePad (真魚) の 64 ビット版は開発・公開を中止されたようです。Delphi XE2 では無理という雰囲気の内容でしたので、Mery の 64 ビット対応についても私の技術力でどこまで対応できるかは分かりませんが、最悪、やっぱ開発やめますというケースも想定してこの「開発室」でこっそりベータ版を公開していこうと思います。		Mery のエディタエンジン TNotePad の作者さんの開発記録によると TNotePad (真魚) の 64 ビット版は開発・公開を中止されたようです。Delphi XE2 では無理という雰囲気の内容でしたので、Mery の 64 ビット対応についても私の技術力でどこまで対応できるかは分かりませんが、最悪、やっぱ開発やめますというケースも想定してこの「開発室」でこっそりベータ版を公開していこうと思います。

2016年9月25日 (日) 07:22にAdminによる

2016-09-25T07:22:23Z

← 古い版		2016年9月25日 (日) 16:22時点における版
26行目:		26行目:


	===現状===		==現状==
	*本体の 64 ビット対応		*本体の 64 ビット対応
	:→ Active Script の 64 ビット対応がヤバかった		:→ Active Script の 64 ビット対応がヤバかった

2016年9月25日 (日) 07:22にAdminによる

2016-09-25T07:22:09Z

← 古い版		2016年9月25日 (日) 16:22時点における版
1行目:		1行目:
	===はじめに===		==はじめに==

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

6行目:		5行目:


	===予定===		==予定==

	*64 ビット対応		*64 ビット対応
	*正規表現エンジン「鬼車」から「鬼雲」に変更		*正規表現エンジン「鬼車」から「鬼雲」に変更
14行目:		12行目:
	:→ 2.5 で対応済		:→ 2.5 で対応済

	~~===開発環境===~~

			==開発環境==
	*Embarcadero Delphi XE2		*Embarcadero Delphi XE2
	**Delphi 10 Seattle だとオーバースペック		**Delphi 10 Seattle だとオーバースペック
26行目:		24行目:
	**Visual C++ 2015 だとオーバースペック		**Visual C++ 2015 だとオーバースペック
	**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い		**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い


	===現状===		===現状===

	*本体の 64 ビット対応		*本体の 64 ビット対応
	:→ Active Script の 64 ビット対応がヤバかった		:→ Active Script の 64 ビット対応がヤバかった
41行目:		39行目:
	:→ なんかビルドできたっぽい		:→ なんかビルドできたっぽい

	===注意===
			==注意==
	*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する		*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する
	:→ 完了		:→ 完了

	~~===問題===~~

			==問題==
	*64 ビット対応しても恩恵少なくね？		*64 ビット対応しても恩恵少なくね？
	:TNotePad の設計上、大きいファイルの扱いは苦手		:TNotePad の設計上、大きいファイルの扱いは苦手
57行目:		56行目:
	:それほど問題はなさそうだけどなんだかなぁ…		:それほど問題はなさそうだけどなんだかなぁ…

	~~===アイコン===~~

			==アイコン==
	*[https://github.com/paomedia/small-n-flat small-n-flat]		*[https://github.com/paomedia/small-n-flat small-n-flat]
	:パブリックドメインだし SVG なので使いやすい。種類も豊富なので他のアプリとデザインを統一できる		:パブリックドメインだし SVG なので使いやすい。種類も豊富なので他のアプリとデザインを統一できる
68行目:		67行目:
	[[ファイル:Mery_Icon2.png]]		[[ファイル:Mery_Icon2.png]]
	[[ファイル:Mery_Icon3.png]]		[[ファイル:Mery_Icon3.png]]


	==Delphi 10 Seattle の不具合==		==Delphi 10 Seattle の不具合==

	Delphi 10 Seattle の VCL で発生する高 DPI 環境向けの開発における不具合を愚痴ってみました。		Delphi 10 Seattle の VCL で発生する高 DPI 環境向けの開発における不具合を愚痴ってみました。

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


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

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

85行目:		84行目:

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


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

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

123行目:		122行目:
	end;		end;
	</source>		</source>


	===Constraints を指定しているとスケーリング後のフォームサイズがおかしい===		===Constraints を指定しているとスケーリング後のフォームサイズがおかしい===

	上記の現象を回避したうえでこの問題が発生する。		上記の現象を回避したうえでこの問題が発生する。

131行目:		130行目:

	この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。		この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。


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

	*親フォームの場合		*親フォームの場合
	:BorderStyle が bsSizeable だと PixelsPerInch が Screen.PixelsPerInch のまま		:BorderStyle が bsSizeable だと PixelsPerInch が Screen.PixelsPerInch のまま
144行目:		143行目:

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


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

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


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

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

2016年9月25日 (日) 07:20にAdminによる

2016-09-25T07:20:39Z

← 古い版		2016年9月25日 (日) 16:20時点における版
1行目:		1行目:
	=== 予定 ===		===はじめに===

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

			Alpaca と Alpaka のどっちが正しいのか分からないけど、K の方が文字のバランスが良いし '''Mortal Kombat''' みたいでカッコイイ。


			===予定===

	*64 ビット対応		*64 ビット対応
7行目:		14行目:
	:→ 2.5 で対応済		:→ 2.5 で対応済

	=== 開発環境 ===		===開発環境===

	*Embarcadero Delphi XE2		*Embarcadero Delphi XE2
20行目:		27行目:
	**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い		**鬼雲、Tidy、Hunspell の 32 ビット版、64 ビット版がそれぞれビルドできれば何でも良い

	=== 現状 ===		===現状===

	*本体の 64 ビット対応		*本体の 64 ビット対応
34行目:		41行目:
	:→ なんかビルドできたっぽい		:→ なんかビルドできたっぽい

	=== 注意 ===		===注意===
	*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する		*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する
	:→ 完了		:→ 完了

	=== 問題 ===		===問題===

	*64 ビット対応しても恩恵少なくね？		*64 ビット対応しても恩恵少なくね？
50行目:		57行目:
	:それほど問題はなさそうだけどなんだかなぁ…		:それほど問題はなさそうだけどなんだかなぁ…

	=== アイコン ===		===アイコン===

	*[https://github.com/paomedia/small-n-flat small-n-flat]		*[https://github.com/paomedia/small-n-flat small-n-flat]
62行目:		69行目:
	[[ファイル:Mery_Icon3.png]]		[[ファイル:Mery_Icon3.png]]

	== Delphi 10 Seattle の不具合 ==		==Delphi 10 Seattle の不具合==

	Delphi 10 Seattle の VCL で発生する高 DPI 環境向けの開発における不具合を愚痴ってみました。		Delphi 10 Seattle の VCL で発生する高 DPI 環境向けの開発における不具合を愚痴ってみました。
68行目:		75行目:
	Windows 10、ディスプレイ 1 (メイン: 125%)、ディスプレイ 2 (サブ: 100%) の Per-Monitor DPI で確認		Windows 10、ディスプレイ 1 (メイン: 125%)、ディスプレイ 2 (サブ: 100%) の Per-Monitor DPI で確認

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

	*フォームにボタンでも適当に貼りつけて起動するだけで発生		*フォームにボタンでも適当に貼りつけて起動するだけで発生
79行目:		86行目:
	*<span style="color:crimson;">なお、Delphi 10 Seattle Update 1 ではもっと派手にぶっ壊れている模様</span>		*<span style="color:crimson;">なお、Delphi 10 Seattle Update 1 ではもっと派手にぶっ壊れている模様</span>

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

	[http://qc.embarcadero.com/wc/qcmain.aspx?d=77955 http://qc.embarcadero.com/wc/qcmain.aspx?d=77955]		[http://qc.embarcadero.com/wc/qcmain.aspx?d=77955 http://qc.embarcadero.com/wc/qcmain.aspx?d=77955]
117行目:		124行目:
	</source>		</source>

	=== Constraints を指定しているとスケーリング後のフォームサイズがおかしい ===		===Constraints を指定しているとスケーリング後のフォームサイズがおかしい===

	上記の現象を回避したうえでこの問題が発生する。		上記の現象を回避したうえでこの問題が発生する。
125行目:		132行目:
	この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。		この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。

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

	*親フォームの場合		*親フォームの場合
138行目:		145行目:
	*いずれの場合も FormShow 以降に処理を書けば正しい PixelsPerInch を取得できる		*いずれの場合も FormShow 以降に処理を書けば正しい PixelsPerInch を取得できる

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

	*Vcl.Forms.pas の問題		*Vcl.Forms.pas の問題
202行目:		209行目:
	</source>		</source>

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

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

Admin: /* WM_DPICHANGED の実装における問題 */

2016-09-25T07:03:22Z

WM_DPICHANGED の実装における問題

← 古い版		2016年9月25日 (日) 16:03時点における版
194行目:		194行目:
	:::WM_NCCREATE で呼び出して引数にウィンドウハンドルを渡してやれば DPI の変更に合わせてタイトルバーやメニューのサイズが変更されるが、スクロールバーやポップアップメニューのサイズまでは変更されない模様		:::WM_NCCREATE で呼び出して引数にウィンドウハンドルを渡してやれば DPI の変更に合わせてタイトルバーやメニューのサイズが変更されるが、スクロールバーやポップアップメニューのサイズまでは変更されない模様
	:::(2016/06/11 時点での Windows 10 現行品では EnableNonClientDpiScaling は使用できず)		:::(2016/06/11 時点での Windows 10 現行品では EnableNonClientDpiScaling は使用できず)
			:::Windows 10 Anniversary Update で正式に実装された模様
			:::ただし、ポップアップメニューや開くダイアログなどの Per-Monitor DPI 対応方法は不明
	<source lang="delphi">		<source lang="delphi">
	function EnableNonClientDpiScaling(hWnd: HWND): BOOL; stdcall;		function EnableNonClientDpiScaling(hWnd: HWND): BOOL; stdcall;

2016年9月25日 (日) 02:40にAdminによる

2016-09-25T02:40:12Z

← 古い版		2016年9月25日 (日) 11:40時点における版
1行目:		1行目:
			=== 予定 ===

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

			=== 開発環境 ===

			*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 採用
			:→ 2.5 で対応済
			*[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 ビット版のビルド
			:→ なんかビルドできたっぽい

			=== 注意 ===
			*プラグインメソッドの Editor_SetCaretPos などの引数 TPoint が 32 ビットなので TNativePoint に変更する
			:→ 完了

	=== 問題 ===		=== 問題 ===

Admin: ページの作成:「=== 問題 === *64 ビット対応しても恩恵少なくね？ :TNotePad の設計上、大きいファイルの扱いは苦手 :開いているファイルすべて...」

2016-09-25T02:38:54Z

ページの作成:「=== 問題 === *64 ビット対応しても恩恵少なくね？ :TNotePad の設計上、大きいファイルの扱いは苦手 :開いているファイルすべて...」

新規ページ

=== 問題 ===

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

=== アイコン ===

*[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 の不具合 ==

Delphi 10 Seattle の VCL で発生する高 DPI 環境向けの開発における不具合を愚痴ってみました。

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) で制約のサイズを変更している箇所がフォームのサイズを変更した後になってるため
:スケールが小さくなる場合は先に制約のサイズを小さくしておかないと制約にひっかかってフォームのサイズを縮小できない
:スケールが大きくなる場合は後から制約のサイズを大きくしないと制約にひっかかってフォームのサイズを拡大できない
:それを踏まえて修正してみるとこんな感じかもしれない

<source lang="delphi">
procedure TCustomForm.ChangeScale(M, D: Integer);
var
PriorHeight: Integer;
begin
// modified begin
if M < D then
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);
*)
if M > D then
ScaleConstraints(M, D);
// modified end
end;
</source>

=== Constraints を指定しているとスケーリング後のフォームサイズがおかしい ===

上記の現象を回避したうえでこの問題が発生する。

そもそも Constraints は ClientWidth、ClientHeight ではなく Width、Height が基準なので MaxHeight、MinHeight にはタイトルバーの高さも含まれている。Vcl.Controls.pas の ScaleConstraints メソッドでは単純に数値のみでスケーリングを行っているため Per-Monitor DPI 状況下でタイトルバーのサイズが一定ということが考慮されておらず、結果としてクライアント領域が計算上より狭くなってしまう。

この問題は ChangeScale の後でタイトルバーの高さをスケーリングした場合の差分を足してやることで回避は可能だが結果的に高さが WM_DPICHANGED で送られてくる LPARAM の中の高さと異なってしまうため、ディスプレイをまたぐ位置によってはサイズが変更されなかったり無限ループが発生する恐れがあると思われる。

=== 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 が裏技を用意しているのかも？
::EnableNonClientDpiScaling という API が存在するらしいがまだ公式には発表されていない
:::Windows 10 Anniversary Update の Insider Preview (ビルド 14342) にて EnableNonClientDpiScaling の動作を確認
:::WM_NCCREATE で呼び出して引数にウィンドウハンドルを渡してやれば DPI の変更に合わせてタイトルバーやメニューのサイズが変更されるが、スクロールバーやポップアップメニューのサイズまでは変更されない模様
:::(2016/06/11 時点での Windows 10 現行品では EnableNonClientDpiScaling は使用できず)

<source lang="delphi">
function EnableNonClientDpiScaling(hWnd: HWND): BOOL; stdcall;

function EnableNonClientDpiScaling; external user32 name 'EnableNonClientDpiScaling' delayed;
</source>

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

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