[修正点]

• 展開ボタンとチェックボックスの位置とサイズの調整 (代替ダイアログ)

説明:
テーマなし、クラシック (テーマはある)、テーマ有、テーマ有 (Vista 以降) でコントロールのサイズと位置が変わってしまうので、「1ドットでも違っていたら腹を切る ^*1」 なんてカッコいい事は言えません。展開ボタンはデフォルトで 高さ 21px なのに、チェックボックスと一緒の時はチェックボックスとの差が 20px しかありません。1px カブっていますので、代替ダイアログ (Vista よりも前) の場合には 1px 欠ける事になります。これを回避しようとすると、当然の事ながらオリジナルの位置とは若干ズレる事になりますが仕方ありません。

^{*1 X68000 (初代) 付属のグラディウスの移植に関して開発元である SPS の方が言ったとされている。後に「1ドットくらいは違うかも…」と言ったとも。}

Delphi の (Vcl.)dialog.TTaskDialog はちょっぴり残念なトコがあります。何が残念かって、

XE 以前の TTaskDialog はテーマが有効でないとエラーになる

って事です。XP 以前で動作しないのはともかく、Vista 以降でもデスクトップがクラシック表示だとエラーになります。

…こんな感じで。XE2 以降でこの制限がなくなっているのが救いといえば救いです。「クラシックになんかにしないから別にいい」と仰るかもしれませんが、Server 2008 / R2とかのサーバ OS はクラシック表示ですよ？

TaskDialog の必須条件は「Vista 以降の OS かつアプリケーションマニフェストが組み込まれている (= ランタイムテーマ有効)」です。つまりクラシック表示であるか否かは本来関係ありません。ここで改良を加えている代替ダイアログにはその制限がありません。但し、Comctrl32.dll のバージョンが 6 未満だとハイパーリンクが使えなかったり、マーキーが使えなかったりといった制限があります。

大体落ち着いたと書きましたが、コマンドリンクが残っていますね。これはカスタムコンポーネントを作らないと実現できませんので、もう少し後になるかと思います。Vista 以降で動作させるのであれば Delphi 標準のコマンドリンクボタンが使えるのですが (Delphi 2009 以降) 、用途が代替ダイアログなので結局は使えません。

「Delphi にコマンドリンクボタンなんてあったっけ？」と思った方はフォームに TButton を貼って、Style プロパティを bsCommandLink に変更してみましょう。

[修正点]

• Delphi 2007 でコンパイルしたものを実行するとエラーになる事があるのを修正。
• コマンドリンクと (コモン) ボタンを併用できないバグを修正。 (ネイティブダイアログ)

説明:
Delphi 2007 の GetThemeFont() の定義が間違っており、ここで取得した LOGFONT を CreateFontIndirect に渡すとコケます。

[GetThemeFont (MSDN)]
http://msdn.microsoft.com/en-us/library/windows/desktop/bb759745%28v=vs.85%29.aspx

GetThemeFont() の pFont は LOGFONTW で、GetThemeFontA() なんて API もないハズです。Delphi 2007 の TLOGFONT は TLOGFONTA なので、

  GetThemeFont: function(hTheme: HTHEME; hdc: HDC; iPartId, iStateId, iPropId: Integer;
    var pFont: LOGFONTW): HRESULT; stdcall;

　
コレが正しいと思われます (GetThemeSysFont も同様)。LOGFONTW でデータを受けると CreateFontIndirect() も CreateFontIndirectW() にしなくてはならないのでそのように修正してあります。

[修正点]

• プログレスバーの全体から見た位置をネイティブダイアログと合わせた。(代替ダイアログ)
• 正しいフラグの組み合わせでもプログレスバーが表示されない事があったのを修正。(代替ダイアログ)
• 展開テキストがフッターエリアにあり、ダイアログアイコンが表示されている時の展開テキストの位置をネイティブダイアログと合わせた。(代替ダイアログ)
• 不正なフラグの組み合わせでエラーを吐いて落ちるのを回避するようにした。(ネイティブダイアログ)

説明:
フラグの組み合わせ × OS の数 (通常テーマ/クラシック) × Delphi のバージョン数の検証は大変です。

[修正点]

• コマンドリンク / 展開ボタン / チェックボックスのアクセラレーターキー/フォーカス矩形周りの処理を見直した。(代替ダイアログ)

説明:
コマンドリンク / 展開ボタン / チェックボックスのオーナードローで参考にしたのは TBitBtn のソースコードなのですが、TBitBtn はキャプションに &Caption と指定すると常に C にアンダーバーが表示されます。これは通常のボタンのアクセラレータキー表示とは異なります。試行錯誤してみましたが Windows 2000 以降を対象とするのであれば Mod 37 の処理でいいようです。TBitBtn は Win9x でも動作するコードのようですね…だからアクセラレーターキー表示の処理が違うのでしょう。

ボタンのオーナードローに必要なのは、

• CreateParams のオーバーライド (Params.Style にBS_OWNERDRAW を追加)
• SetButtonStyle のオーバーライド (空でもいいのでオーバーライドが必要)
• 適切なフォーカス矩形処理とアクセラレーターキー処理

突き詰めればこれだけのようです。

※ 続きは ↓ の Page [5] をクリック。