procedure TForm1.ListView1UpdateObjects(const Sender: TObject;
const AItem: TListViewItem);
var
i: integer;
begin
for i := 0 to ListView1.ItemCount - 1 do
begin
if ContainsText(ListView1.Items.Objects.FindObjectT<TListItemText>
('Text4').Text, '-') = true then
begin
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextColor
:= TAlphacolors.Red;
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextAlign
:= TTextAlign.Trailing;
end
else
begin
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextColor
:= TAlphacolors.Green;
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextAlign
:= TTextAlign.Leading;
end;
if ListView1.Items.Objects.FindObjectT<TListItemText>('Text3').Text = 'бензин'
then
begin
ListView1.Items.Objects.FindObjectT<TListItemText>('Text3').TextColor
:= TAlphacolors.Blueviolet;
end;
end;
end;
А после
FDQuery1.activ:=False;
FDQuery1.activ:=True;
Получается что последняя запись не соответствует условию. Не пойму почему.
Вопрос
Aleks133
procedure TForm1.ListView1UpdateObjects(const Sender: TObject;
const AItem: TListViewItem);
var
i: integer;
begin
for i := 0 to ListView1.ItemCount - 1 do
begin
if ContainsText(ListView1.Items.Objects.FindObjectT<TListItemText>
('Text4').Text, '-') = true then
begin
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextColor
:= TAlphacolors.Red;
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextAlign
:= TTextAlign.Trailing;
end
else
begin
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextColor
:= TAlphacolors.Green;
ListView1.Items.Objects.FindObjectT<TListItemText>('Text4').TextAlign
:= TTextAlign.Leading;
end;
if ListView1.Items.Objects.FindObjectT<TListItemText>('Text3').Text = 'бензин'
then
begin
ListView1.Items.Objects.FindObjectT<TListItemText>('Text3').TextColor
:= TAlphacolors.Blueviolet;
end;
end;
end;
А после
FDQuery1.activ:=False;
FDQuery1.activ:=True;
Получается что последняя запись не соответствует условию. Не пойму почему.
Ссылка на комментарий
0 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.