[示例] 用代码设置 ListView 颜色 （只适用 Win 平台，无需修改
发布时间：2020-12-15 04:39:13 所属栏目：大数据 来源：网络整理
导读：如果可以使用代码随意设置 ListView 的颜色，而不用加载额外的 Style 及修改官方的源码，那该有多好？！其实 Style 提供了很强了扩充性及可塑性，可以很容易的去操作它。 下面以 ListView 为例，用代码设置它的 ItemBackgroud 颜色（其它的控件基本上也能用
|
如果可以使用代码随意设置 ListView 的颜色，而不用加载额外的 Style 及修改官方的源码，那该有多好？！其实 Style 提供了很强了扩充性及可塑性，可以很容易的去操作它。 下面以 ListView 为例，用代码设置它的 ItemBackgroud 颜色（其它的控件基本上也能用相同的方法来设置）：
Sender = ListView1 = c :=
o1 :</span>= TStyleManager.ActiveStyleForScene(Screen.ActiveForm <span style="color: #0000ff">as</span> IScene).FindStyleResource(<span style="color: #800000">'</span><span style="color: #800000">listviewstyle</span><span style="color: #800000">'</span><span style="color: #000000">);
o2 :</span>= o1.FindStyleResource(<span style="color: #800000">'</span><span style="color: #800000">itembackground</span><span style="color: #800000">'</span><span style="color: #000000">);
</span><span style="color: #008000">//</span><span style="color: #008000"> 需要判断第一次才设置颜色，否则会影响效能</span>
<span style="color: #0000ff">if</span> (o2 <span style="color: #0000ff">is</span> TColorObject) <span style="color: #0000ff">and</span> (TColorObject(o2).Color <> c) <span style="color: #0000ff">then</span>
<span style="color: #0000ff">begin</span><span style="color: #000000">
TColorObject(o2).Color :</span>=<span style="color: #000000"> c;
TListView(Sender).NeedStyleLookup;
</span><span style="color: #0000ff">end</span><span style="color: #000000">;
<span style="color: #0000ff">end;
示例下载： 效果：
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
