FMX TreeViewでアイコン表示

解決

ウォレス 2018-11-15 01:07:55 No: 49601

Delphi10.2.3 です。
FMX TreeViewでアイコンを表示させることができずつまづいています。

TreeViewのImagesに Imagelistを指定し
TTreeViewItemのImageIndexを0以上にすればよいような気がしますが
(VCLではこれでよかった。。はず)表示されません。
（ImageListには少なくとも2つ画像を追加しています）

ググってもなかなか見つかりません。
宜しくお願いします。

Mr.XRAY 2018-11-17 03:22:54 No: 49602

>TTreeViewItemのImageIndexを0以上にすればよいような気がしますが

テストしてみました．
私の環境では 0 以上で表示されます．

[参考サンプル] (EXE 付き)
動作確認は以下です．
Windows 7 U64(SP1) + Delphi 10.2.3 Community + FireMonkey
http://mrxray.on.coocan.jp/Delphi/zip/QandA_18110004_TTreeView_FMX.zip

Mr.XRAY 2018-11-17 06:30:36 No: 49603

ちょっと調べてみたのですが，

[画像リストエディタ（FireMonke]
http://docwiki.embarcadero.com/RADStudio/Tokyo/ja/%E7%94%BB%E5%83%8F%E3%83%AA%E3%82%B9%E3%83%88_%E3%82%A8%E3%83%87%E3%82%A3%E3%82%BF%EF%BC%88FireMonkey%EF%BC%89

というのがあります．
TImageList コンポをダブルクリックすると現れるダイアログです．
この一番下の [List of Images] (画像のリスト) というのが実際に使用される画像です．
ここに目的の画像が表示されているか確認してみてください．

AAA 2018-11-18 09:40:02 No: 49604

DELPHI 10.2
StyleBook ありの場合

StyleBook1のオブジェクトインスペクターで
StyleBookのProperty Styles(StyleCollection) をクリック

StyleBook1.Stylesの編集で
Defaultを選んで

オブジェクトインスペクターで
Resource(リソース)をクリック

クリップボードに以下のテキストをコピーする
----------------------------------
object TGlyph
stylename = 'glyphstyle'
Align = Left
end
-----------------------------------

treeviewitemstyleの子 layout を選んで

popupMenuから
edit - 貼り付け

layout の子に glyphstyle が追加される

スタイルの変更内容を適用する

これで StyleBook があってもアイコンが表示されるようになる

AAA 2018-11-18 09:54:26 No: 49605

StyleBook ありの場合

FireMonkey Metropolis UIアプリケーションの事です

ウォレス 2018-11-19 22:11:28 No: 49606

皆さん、ありがとうございます。

Mr.XRAYさん、
>この一番下の [List of Images] (画像のリスト) というのが実際に使用される画像です．
>ここに目的の画像が表示されているか確認してみてください．
すみません。まさにこれでした。
左の「画像のソース」に追加して、これで追加したつもりになっていました。。。。
下の「画像のリスト」に追加しないといけないのですね（汗
微妙に（というか大分）VCLと勝手が違っており、全く勘違いをしておりました。
ただ、デフォルトでpngの透過が認識されるあたり、今風だなーと思いました。
逆に、bmpで左上隅を起点で透過とかはできないような？？？

AAAさん、
いろいろ調べていただきありがとうございます！
Metropolis UI はさらに敷居が高く（VCLでもMetropolis UIは作ったことがありません）、まだまだ手が届きそうにありません。
参考にさせていただきます。

宜しくお願いします。