Delphi ListView DynamicAppearance如何在代码中指定一个Item文本的颜色？

编程问答 2022-08-15

问题描述

如何在Delphi TlistView DynamicAppearance中更改TextColor属性？

这是我添加项目和文本的代码

function TForm1.Remplissage_ListViewNews(debut_news,fin_news:Integer) :Integer;
var
 _Image,_Title,_Location,_Infos,_Details,_Url:TField;
 _Item: TListViewItem;

begin

     MysqLQuery_News.sql.Text := 'SELECT * FROM news' + ' LIMIT '+IntToStr(debut_news)+','+IntToStr(fin_news);
     MysqLQuery_News.Active   :=  True;
     MysqLQuery_News.Open;

     if MysqLQuery_News.RecordCount > 0 then
        begin
            MysqLQuery_News.First;
            MysqLQuery_News.disableControls;

            _Image    := MysqLQuery_News.FieldByName('id_news');
            _Title    := MysqLQuery_News.FieldByName('nom_expo');
            _Location := MysqLQuery_News.FieldByName('location');
            _Infos    := MysqLQuery_News.FieldByName('infos');
            _Details  := MysqLQuery_News.FieldByName('commentaire_fr');
            _Url      := MysqLQuery_News.FieldByName('url_fr');


            try

              ListView_News.BeginUpdate;
              ListView_News.EditMode := True;
              ListView_News.Visible  := false;

              while (not MysqLQuery_News.EOF) do begin
                _Item := ListView_News.Items.Add;
                _Item.Data['Title']   := _Title.Asstring;
                _Item.Data['Infos']   := _Location.Asstring + ' - ' + _Infos.Asstring;
                _Item.Data['Details'] := copy(_Details.Asstring,1,350);
                _Item.Data['Url']     := _Url.Asstring;
                _Item.Data['Image']   := RecupereImage(Image_url + 'news/'+ _Image.Asstring + '.jpg');
                MysqLQuery_News.Next;
              end;

            finally

              MysqLQuery_News.EnableControls;
              ListView_News.Visible  := True;
              ListView_News.EditMode := False;
              ListView_News.EndUpdate;

            end;

           Result := ListView_News.ITems.Count;

        end
        else
        begin
            showmessage('Aucun enregistrement trouvé');
            Result := 0;
        end;

 end;

我想通过代码为每个文本项指定TextColor属性，因为在我的情况下（Android应用程序），使用概念模式的参数TextColor在更改智能手机的方向之前不起作用！难以置信...

有人可以通过使TextColor参数起作用或将其放入代码中的解决方案吗？

非常感谢有人可以帮助我

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphidelphifiremonkeylistviewlistview