设为首页 加入收藏

TOP

[示例] 用代码设置 ListView 颜色 (只适用 Win 平台,无需修改官方源码)
2017-10-10 12:03:35 】 浏览:6710
Tags:示例 代码 设置 ListView 颜色 适用 Win 平台 无需 修改 官方 源码

如果可以使用代码随意设置 ListView 的颜色,而不用加载额外的 Style 及修改官方的源码,那该有多好?! 其实 Style 提供了很强了扩充性及可塑性,可以很容易的去操作它。

下面以 ListView 为例,用代码设置它的 ItemBackgroud 颜色(其它的控件基本上也能用相同的方法来设置):

procedure TForm1.ListView1ApplyStyleLookup(Sender: TObject);
var o1: TFmxObject;
    o2: TFmxObject;
    c: TAlphaColor;
begin
     if Sender = ListView1 then
          c := TAlphaColorRec.Lightyellow
     else c := TAlphaColorRec.Mistyrose;

     o1 := TStyleManager.ActiveStyleForScene(Screen.ActiveForm as IScene).FindStyleResource('listviewstyle');
     o2 := o1.FindStyleResource('itembackground');

     // 需要判断第一次才设置颜色,否则会影响效能
     if (o2 is TColorObject) and (TColorObject(o2).Color <> c) then
     begin
          TColorObject(o2).Color := c;
          TListView(Sender).NeedStyleLookup;
     end;
end;

注意:此方法仅适用 Windows 平台,移动平台还是乖乖的用 Style 吧!

 

示例下载:[示例]用代码设置ListView颜色_Aone.zip

 

效果:(多个 ListView 可以各别设置不同颜色)

 

】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇RTC相关文章收集 下一篇[笔记] 升級到 Delphi 10.2 Tokyo..

最新文章

热门文章

Hot 文章

Python

C 语言

C++基础

大数据基础

linux编程基础

C/C++面试题目