[FAQ] Вопросы по работе в AIMP SkinEditor v3.50+

[Black_AVP_Bim]

Помогите. Хочу сделать масштабируемую обложку альбома, так чтобы при изменении окна она сохраняла пропорции, но также когда достигнет определённого размера переставала растягиваться, а окно в котором она можно было дальше растягивать.

Делал я растягиваемое окно с сохранением пропопрций кавера (https://www.aimp.ru/forum/index.php?topic=51648.0), чтоб обложка всегда оставалась квадратной, однако людям это не понравилось, хотя АИМП и подразумевает, что каверы изначально квадратные.

[Aleksandr009]

Делал я растягиваемое окно с сохранением пропопрций кавера

Благодарю

[Aleksandr009]

Можно ли как-нибудь упростить(укоротить) скрипт, который меняет одно свойство у нескольких объектов одного вида?

У меня скриптом меняется цвет текстовых меток, их больше 10. Лень писать много однотипного текста в скрипте

[Black_AVP_Bim]

Можно ли как-нибудь упростить(укоротить) скрипт, который меняет одно свойство у нескольких объектов одного вида?

У меня скриптом меняется цвет текстовых меток, их больше 10. Лень писать много однотипного текста в скрипте

Если метки обозвать с изменяющимся номером (txt_1. txt_2, .. ,txt_10, например) то можно сделать в цикле по аналогии с https://www.aimp.ru/forum/index.php?topic=27831.msg313880#msg313880

[Aleksandr009]

Если метки обозвать с изменяющимся номером (txt_1. txt_2, .. ,txt_10, например) то можно сделать в цикле по аналогии с https://www.aimp.ru/forum/index.php?topic=27831.msg313880#msg313880

Спасибо
Но я не смог сделать скрипт

[Black_AVP_Bim]

Для текстовых меток с именами Label1, Label2, .. LabelN будет выглядеть так:

Code: [Select]

procedure Execute(var State: Integer);
var
  N: Integer;
 
begin
  for N:= 1 to 3 do
    FindObject('Label' + IntToStr(N)).Set('Font.Color', $FFFF0000)
end;

Конечный параметр цикла подставь свой по числу меток (вместо "3"), цвет в примере красный.

[Aleksandr009]

Для текстовых меток с именами Label1, Label2, .. LabelN будет выглядеть так:

Code: [Select]

procedure Execute(var State: Integer);
var
  N: Integer;
 
begin
  for N:= 1 to 3 do
    FindObject('Label' + IntToStr(N)).Set('Font.Color', $FFFF0000)
end;

Конечный параметр цикла подставь свой по числу меток (вместо "3"), цвет в примере красный.

Ещё раз благодарю!

[Aleksandr009]

Как изменить высоту контейнера через скрипт?

Сам понял)

Code: [Select]

XXX.Set('SizeMinimal.Width', N);
XXX.Set('SizeMinimal.Height', N);

[Aleksandr009]

Новый вопрос - не работает  скрипт почему?

Code: [Select]

procedure Execute(EventData: TComponent);
var
  CC, SMP: TComponent;
  SizeP : Integer; 
 
begin         
  CC:= FindObject('ControlsContainer2');   
  SMP:= FindObject('SizeMP1');
  SizeP:= SMP.Get('Position');
  CC.Set('SizeMinimal.Width', (140 + SizeP*8) );
  CC.Set('SizeMinimal.Height', (140 +SizeP*8) );
end;

//SizeMP1 - простой счётчик значение которого изменяются слайдером

И ещё как узнать текущую высоту контейнера?

[Black_AVP_Bim]

Новый вопрос - не работает  скрипт почему?

Насколько понял, приведённый скрипт у тебя для панели, на событие onResize. Но он будет выполняться только при изменении размеров панели - на то он и onResize.
Подключи  слайдер к скриптовому счетчику, в нём и напиши скрипт, что тебе нужен, а размеры можно будет вычислять из значения State.

[Zhenya]

И ещё как узнать текущую высоту контейнера?

Напрямую - никак.
Можно положить в него панель, привязать за все стороны с отступом 0 и считывать размеры уже у панели через PlaceInfo.ActualWidth и PlaceInfo.ActualHeight.

[Artem]

procedure Execute(EventData: TComponent); -> procedure Execute(var State: Integer);

[Aleksandr009]

Насколько понял, приведённый скрипт у тебя для панели, на событие onResize. Но он будет выполняться только при изменении размеров панели - на то он и onResize.
Подключи  слайдер к скриптовому счетчику, в нём и напиши скрипт, что тебе нужен, а размеры можно будет вычислять из значения State.

Скрипт для изменения размера окна, в частности миниплеера. Чтобы он квадратным оставался. И благодарю.

Artem, благодарю поправил, не внимательно скопировал-вставил.

Всё получилось!

Code: [Select]

procedure Execute(var State: Integer);     
var   
  CC: TComponent;
begin         
  CC:= FindObject('limpControlsContainer2');   
  CC.Set('SizeMinimal.Width', (140 + State *10) );
  CC.Set('SizeMinimal.Height', (140 +State *10) );
end;

Но всё таки очень хочется сделать без слайдера, так чтобы при изменении размера курсором окно сохраняло пропорции. Можно так сделать? Чтобы провайдер срабатывал при изменении размера.


Ну и ещё вопросик - можно ли через скрипт как нибудь поменять окно-мастер? Я хочу сделать чтобы при сворачивании главного окна окно настроек (в моей обложки Arc) переходило к миниплееру, т.е. оставалось на экране.

[Black_AVP_Bim]

Скрипт для изменения размера окна, в частности миниплеера. Чтобы он квадратным оставался. И благодарю.
Но всё таки очень хочется сделать без слайдера, так чтобы при изменении размера курсором окно сохраняло пропорции. Можно так сделать? Чтобы провайдер срабатывал при изменении размера.

Так, всё-таки, что тебе нужно? Я то подумал, что ты хочешь слайдером менять размеры контейнера. А если ресайзить мышкой, то зачем тогда слайдер?
Опиши задачу конкретнее, а то, по сведениям от Soolo, телепаты все в отпусках - лето... 

Ну и ещё вопросик - можно ли через скрипт как нибудь поменять окно-мастер? Я хочу сделать чтобы при сворачивании главного окна окно настроек (в моей обложки Arc) переходило к миниплееру, т.е. оставалось на экране.

Для этого у всех компонентов есть свойство Parent, но как определить переход в миниплеер и состояние плеера (развёрнут/свёрнут)? Вроде, это невозможно.

[Aleksandr009]

Так, всё-таки, что тебе нужно? Я то подумал, что ты хочешь слайдером менять размеры контейнера. А если ресайзить мышкой, то зачем тогда слайдер?
Опиши задачу конкретнее, а то, по сведениям от Soolo, телепаты все в отпусках - лето... 

Я хочу чтобы при изменении размера окна оно сохраняло пропорции - было квадратным. Т.е. если меняешь размер окна в большую сторону срабатывал скрипт и размер меньшей стороны приравнивал к большей, а когда уменьшаешь наоборот желательно.
А слайдер как запасной вариант, потому что давно где-то прочитал что пропорциональное окно сделать нельзя.
Я хотел сделать скрипт на основе твоего для обложки в панели. Но я не знаю как заставить сработать провайдер после изменения размера, изменения размеров можно узнать как предложил Zhenya

Можно положить в него панель, привязать за все стороны с отступом 0 и считывать размеры уже у панели через PlaceInfo.ActualWidth и PlaceInfo.ActualHeight.

Размер контейнера(окна) я меняю через "SizeMinimal.Width" и "SizeMinimal.Height", но тогда их после увеличения окно нельзя уменьшить, так что после того как скрипт уравняет стороны  SizeMinimal надо сбросить назад (может после выравнивания осуществить паузу, а затем сбросиить). А знаний для всего задуманного не хватает.

Для этого у всех компонентов есть свойство Parent, но как определить переход в миниплеер и состояние плеера (развёрнут/свёрнут)? Вроде, это невозможно.

Я хотел через видимость Главного окна и окна миниплеера, по логике они же не должны одновременно быть видимы.