Редактор ListView 2 - DynamicAppearance

[master webs]

Доброго времени суток такая проблема  в берлине со списком ListView

есть основное текстовое поле на скрине указано стрелкой мне нужно сделать отступ с правой стороны в редакторе нет свойств   pending и margin

при смене размера нужно пересчитывать новую ширину 

 

[Равиль Зарипов (ZuBy)]

незнаю как в берлине, но в OnUpdateObjects можно найти нужный "контрол" и выставить ему новые размеры

[master webs]

8 минут назад, ZuBy сказал:

незнаю как в берлине, но в OnUpdateObjects можно найти нужный "контрол" и выставить ему новые размеры

да спасибо  видимо вчера  не стоило  сидеть за пк )

procedure TFrame3.ListView5UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
AItem.Objects.FindDrawable('Text1').Width:=ListView5.Width-60;
end;

 

[Равиль Зарипов (ZuBy)]

 

Только что, master webs сказал:

да спасибо  видимо вчера  не стоило  сидеть за пк )

procedure TFrame3.ListView5UpdateObjects(const Sender: TObject;
  const AItem: TListViewItem);
begin
AItem.Objects.FindDrawable('Text1').Width:=ListView5.Width-60;
end;

 

всегда присваивайте в переменную, проверьте на валидность, а потом проводите с ней различные операции. у меня много раз было AV, т.к. "контрол" не был создан

[master webs]

6 минут назад, ZuBy сказал:

 

всегда присваивайте в переменную, проверьте на валидность, а потом проводите с ней различные операции. у меня много раз было AV, т.к. "контрол" не был создан

типа такой конструкции ?

if FindComponent('ListView5')<>nil then
AItem.Objects.FindDrawable('Text1').Width:=ListView5.Width-85;

 

[Равиль Зарипов (ZuBy)]

как-то так

var
  iTitle: TListItemText;
begin
  iTitle := AItem.Objects.FindDrawable('Text1') as TListItemText;
  if iTitle <> nil then
   iTitle.Width:=ListView5.Width-85;
end;