喫茶XRAYトップページ

[スレッド全体]
[8016] ランイムテーマ有効時の再描画の問題返信　削除
2014/9/26 (金) 01:26:11 Mr.XRAY
> あたり前ですが，検索したページを読んだだけでは，
> 問題の解決になるわけではありません．
> あくまでも「検索の例」です．

深読みしてしまう方もいるかも知れませが，本当に「検索の例」です．
質問の文章だけでは，私には状況が理解できません．

某掲示板での質問の内容とは直接は関係ありませんが，
参考までに，「テーマをWindow7ベーシック」で思い出したのですが，
TListView に限らず，ランイムテーマを有効にすると，TButton 等でも
再描画の問題が発生することがあります．
そういう時は，コントロールに対して Invalidateとか Refresh を実行するしか
ないでしょうね．
掲示板等のスレッドを読んで，こういうことを思い出せば，知識の再確認が
できます．

[8017] Re:ランイムテーマ有効時の再描画の問題返信　削除
2014/9/26 (金) 13:29:29 Mr.XRAY
> TListView に限らず，ランイムテーマを有効にすると，TButton 等でも
> 再描画の問題が発生することがあります．

例えば，以下のサンプルでも現象が発生することがあります．
Delphi のバージョン，描画内容にも関係するようです．
詳しいことは分かりせん．

[792_エクスプーラの縮小表示機能を使用した画像のサムネイル表示]
http://mrxray.on.coocan.jp/Delphi/plSamples/792_ExplThumbnail.htm

[02_TButton の Enabled := False の時の描画の問題]
http://mrxray.on.coocan.jp/Delphi/plSamples/700_WaitSleep.htm#02

ワード操作フォームEx, エクセル操作フォームEx でも，この再描画の問題に
悩まされました．Word2007, Excel2007 では特に．
Word2010, Excel2010 では改善されています．

Windows 8 では GUI の仕様が変更されているので，もしかしたら再描画の問題は
発生しないのかも知れません．まだ確認はしていません．

[8018] Re:ランイムテーマ有効時の再描画の問題返信　削除
2014/9/26 (金) 13:43:46 Mr.XRAY
> そういう時は，コントロールに対して Invalidateとか Refresh を実行するしか

InvalidateRect, UpdateWindow というのもあります．

[8027] :ランイムテーマとは返信　削除
2014/9/27 (土) 20:52:47 Mr.XRAY
大変失礼しました．
当店のお客様の中には，ランタイムテーマには全く関係ない，
ふる〜い Delphi を使っている方もいらっしゃいます．
そこで...

ランタイムテーマは，Windows XP 以降のビジュアルスタイルに対応した機能です．
ランタイムテーマを有効にすると，下図のようになります．
最初の図が，ランタイムテーマが無効の時，その下が有効な場合です．
Windows 7 U64(SP1) + Delphi XE5 Pro です．

えっ? 何ですか? 嫌味に聞こえる?　それは多分気のせいです(笑)

[8028] Re::ランイムテーマとは返信　削除
2014/9/27 (土) 20:54:05 Mr.XRAY
> ランタイムテーマを有効にすると，下図のようになります．
> 最初の図が，ランタイムテーマが無効の時，その下が有効な場合です．
> Windows 7 U64(SP1) + Delphi XE5 Pro です．

Windows 8.1 で実行した場合です．

[8029] ランイムテーマの設定返信　削除
2014/9/27 (土) 20:55:26 Mr.XRAY
Delphi XE5 Pro の場合です．
[プロジェクト] [オプション] ダイアログの [アプリケーション] で設定します．

[8030] :ランイムテーマが有効かを判定返信　削除
2014/9/27 (土) 22:03:31 Mr.XRAY
実行時にランタイムテーマが有効かを判定する方法です．
uses に Themes を追加して，例えば以下のコードで判定できます．

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Themes.ThemeServices.Enabled then begin
    ShowMessage('テーマ有効');
  end else begin
    ShowMessage('テーマ無効');
  end;
end;

stackoverflow に次のようなコードがありました．
これを利用したコードです．
同じく uses に Themes が必要です．

http://stackoverflow.com/questions/2879820/importing-specific-in-my-case-themes-themesservice-themesenabled-function

function ThemesEnabled :Boolean;
const
  ComCtlVersionIE6 = $00060000;
var
  ThemeLib      : THandle;
  IsThemeActive : function: Boolean; stdcall;
  IsAppThemed   : function: Boolean; stdcall;
begin
  Result := GetFileVersion('comctl32.dll') >= ComCtlVersionIE6;
  if not Result then exit;

  ThemeLib := LoadLibrary('uxtheme.dll');
  try
    if ThemeLib > 0 then begin
      IsAppThemed   := GetProcAddress(ThemeLib, 'IsAppThemed');
      IsThemeActive := GetProcAddress(ThemeLib, 'IsThemeActive');
      Result := IsAppThemed and IsThemeActive;
    end else begin
      Result:=False;
    end;
  finally
   FreeLibrary(ThemeLib);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ThemesEnabled then begin
    ShowMessage('テーマ有効');
  end else begin
    ShowMessage('テーマ無効');
  end;
end;

[8031] テーマのスタイルの変更返信　削除
2014/9/27 (土) 22:23:23 Mr.XRAY
テーマのスタイルは，いろいろ変更できます(Delphi XE2以降)
これらはアプリケーション単位の変更です．
システム全体の変更ではありません．

VCL スタイル (Delphi XE2 以降)
http://ht-deko.minim.ne.jp/tech074.html

コンポーネント類もあります
[888_スキン変更用コンポーネン]
http://mrxray.on.coocan.jp/Delphi/plSamples/888_XPSkinForm.htm

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82