Mars M Опубликовано 24 мая, 2017 Поделиться Опубликовано 24 мая, 2017 Кинул на ScrollBox несколько TExpander, если у всех свойство isExpanded := True то все нормально. Если у какого выставить в false то с ним во время выполнения программы начинаются проблемы, может не раскрыться или исчезнуть заголовок. IDE Delphi Tokyo 10.2, в предыдущих версиях не проверял. Отрыл проект из папки samples, там у всех TExpander установлено true, если устанавливаю в false то тоже такая же проблема. Проблема только в Токио или во всех версиях так? PS: пока вышел из положения вот так. Выставил у всех isExpanded := True и в onCreate формы добавил for i := 0 to ComponentCount - 1 do if Components[i] is TExpander then TExpander(Components[i]).IsExpanded := False; Работает конечно, но в дальнейшем могут быть неудобства, нужно будет проверять какие нужны раскрыты а какие нет. Цитата Ссылка на комментарий
0 beeoz Опубликовано 11 декабря, 2018 Поделиться Опубликовано 11 декабря, 2018 Проблема сохранилась и в IDE Delphi Rio 10.3 . Причиной оказалось то, что в модуле FMX.StdCtrls в процедуре TExpander.UpdateControlSize указана переменная FContentHeight вместо FContent.Height procedure TExpander.UpdateControlSize(const ChangingState: Boolean); begin FChangingState := ChangingState; try if FIsExpanded then begin FContent.Visible := FIsExpanded; if FButton <> nil then Height := FButton.Height + FContent.Height; // здесь заменил FContentHeight на FContent.Height и заработало Repaint; end else begin Repaint; FContent.Visible := FIsExpanded; if FButton <> nil then Height := FButton.Height; end; finally FChangingState := False; end; end; #WAMACO, Mars M, Евгений Корепов и 1 другой 4 Цитата Ссылка на комментарий
Вопрос
Mars M
Кинул на ScrollBox несколько TExpander, если у всех свойство isExpanded := True то все нормально.
Если у какого выставить в false то с ним во время выполнения программы начинаются проблемы, может не раскрыться или исчезнуть заголовок.
IDE Delphi Tokyo 10.2, в предыдущих версиях не проверял.
Отрыл проект из папки samples, там у всех TExpander установлено true, если устанавливаю в false то тоже такая же проблема.
Проблема только в Токио или во всех версиях так?
PS: пока вышел из положения вот так.
Выставил у всех isExpanded := True и в onCreate формы добавил
Работает конечно, но в дальнейшем могут быть неудобства, нужно будет проверять какие нужны раскрыты а какие нет.
Ссылка на комментарий
1 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.