0 Members and 1 Guest are viewing this topic.
... при применении скина ...
Так ты погляди, тут ты обращаешься к кнопке, к ее связям, а не напрямую к провайдеру.
А что значит тогда в твоём вопросе:чем оно отличается от загрузки?
По вопросу - ничего не могу сказать, нужно смотреть на оба случая, какие факторы влияют. Предполагаю, что дело может быть в настройках, которые уже сохранились в конфиг скина.
Меня интересует, проще это сделать никак нельзя? Только ручной заменой макс. размеров корневого контейнера окна на значения из мин. размеров?
Можно попробовать запрещать AllowResize.
procedure Execute(var State: Integer);var container, B_max : TComponent; B_max_bindings : TASEBindings; window_is_max : boolean; begin container := FindObject('liMain'); B_max := FindObject('cmfButtonMaximize'); if container <> nil AND B_max <> nil then begin B_max_bindings := B_max.Get('Bindings'); //восстановление окна, если оно развёрнуто на весь экран window_is_max := B_max_bindings.GetDataAsBoolean('State'); if window_is_max then B_max_bindings.ExecuteAction('Action'); container.BeginUpdate; container.Set('AllowResizeByHeight', 'False'); container.Set('AllowResizeByWidth', 'False'); container.EndUpdate; container.BeginUpdate; container.Set('AllowResizeByHeight', 'True'); container.Set('AllowResizeByWidth', 'True'); container.EndUpdate; end; end;
Я просто не могу понять, почему в одном случае при применении скина скрипт со счётчиком равным 1 срабатывает (например, в скрипте открывается окно), а в другом - нет (скрипт меняет размеры контейнеров)?
Позже распишу подробнее, с примером.
Задать из скрипта ширину/высоту контейнера никак нельзя?
Как сделать прогресс подгрузки онлайн контента.
Какого онлайн контента?
Только в виде вэйвформ дисплея
Я где-то на форуме читал, что-то про вторую полосу прогресса. Как везде в интернете. Она обычно серая.
Что это?
Как обратиться к свойствам TASEBindingLink? По справке не понял.Нужно сначала получить доступ к TASEBindings? Потом через LinkFind?
procedure Execute(var State: Integer);var button : TComponent; button_bindings : TASEBindings; button_binding_link : TComponent; str1, str2 : string; begin button := FindObject('B_gw_maximize'); if (button = nil) then Exit; button_bindings := button.Get('Bindings'); button_binding_link := button_bindings.LinkFind('Action'); str1 := button_binding_link.Get('Expression'); str2 := button_binding_link.Get('SourcePin'); ShowMessage(str1); ShowMessage(str2);end;
function <TASEBindings>.LinkFind(const PinName: string): TASEBindingLink