0 Members and 9 Guests are viewing this topic.
Просто через запятуюCode: [Select]var scaling: Double;x, y: TComponent;Лучше, чем в справке, я объяснить не смогу Если вообще ничего не понятно, посмотри базовые уроки по паскалю на ютубе
var scaling: Double;x, y: TComponent;
Напишите пожалуйста пример скрипта где один контейнер копирует высоту другого.
Как в скрипте мониторить высоту контейнера?
Я сделал пример - простой скрипт. Размер контейнера узнаём при помощи за панели которая растянута к краям контейнера и привязана к ним, в скрипте это - PlaceInfo.ActualWidth и PlaceInfo.ActualHeight.При изменении размера срабатывает событие OnResize.Можно Добавить и во второй контейнер панель и немного доработать скрипт,тогда при изменений размера любого, другой также изменит размер.
Я сделал пример - простой скрипт. Размер контейнера узнаём при помощи за панели...
Сейчас можно обойтись без неё и считывать (только считывать) размеры напрямую с элементов фона (то есть контейнера) через свойства Width / Height.
Спасибо, буду пробовать.)))
Благодарю! поправил.Я в начале просто ошибку в скрипте допустил, думал почему не работает решил попробовать с панелью и тогда не заработало. А когда нашёл ошибку обратно не вернул.Попробуй это.Прикрепил пример без панели.
Доброго здоровья! Такой вопрос. Почему при переходе, в середине трека, на другой скин идет откат на некоторое время или вообще на начало? Не на всех скинах это происходит. Только на единицах. К примеру на TEAC V-3RX .
Попробуй это.Прикрепил пример без панели.
Не подошло.( Мне надо чтобы один контейнер навязывал свою высоту другому, а другой что бы ничего не делал, и у первого, и у второго тип Top.
Убери у одного из контейнеров в свойствах событие onResize
Он не меняет высоту если тип контейнера тор.
Code: [Select]procedure Execute(Sender, Arguments: TComponent);var scaling: Double;begin scaling := BindingsGetDataAsInteger('AIMPMainForm', 'CurrentDPI') / 96; FindObject('X').Set('SizeMinimal.Height', FindObject('Y').Get('Height') / scaling);end;X копирует высоту Y
procedure Execute(Sender, Arguments: TComponent);var scaling: Double;begin scaling := BindingsGetDataAsInteger('AIMPMainForm', 'CurrentDPI') / 96; FindObject('X').Set('SizeMinimal.Height', FindObject('Y').Get('Height') / scaling);end;
Quoteprocedure Execute(Sender, Arguments: TComponent);var scaling: Double;begin scaling := BindingsGetDataAsInteger('AIMPMainForm', 'CurrentDPI') / 96; FindObject('X').Set('SizeMinimal.Height', FindObject('Y').Get('Height') / scaling);end;И этот не меняет?