鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

[示例] 用代码设置 ListView 颜色 (只适用 Win 平台,无需修改

来源:互联网 作者:佚名 时间:2017-09-02 12:30
如果可以使用代码随意设置 ListView 的颜色,而不用加载额外的 Style 及修改官方的源码,那该有多好?!其实 Style 提供了很强了扩充性及可塑性,可以很容易的去操作它。 下面以 ListView 为例,用代码设置它的 ItemBackgroud 颜色(其它的控件基本上也能用

如果可以使用代码随意设置 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 可以各别设置不同颜色)

 

网友评论
<