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

[Kibermanick]

Что-то у меня не выходит, пишет что дубликаты не допускаются.

Что не так?

Code: [Select]

procedure Execute(Sender, Arguments: TComponent);                                           
var
  text, cont, a, b, c, : Integer;
begin

  text := FindObject('TextDisplayEx').Get('PlaceInfo.ActualWidth');
  cont := FindObject('LayoutContainer11').Get('PlaceInfo.Size.Width');
  a := text + 86;
  b := cont - 86;
 
  if text <= cont then
 
  begin
 
    FindObject('Panel29').Set('PlaceInfo.Size.Width', cont);
   
  end
 
  else
 
  begin
 
    FindObject('Panel29').Set('PlaceInfo.Size.Width', a);
       
  end;
 
end;


[Black_AVP_Bim]

"Пишет" - кто?
У контейнеров нет свойства PlaceInfo, а PlaceInfo.Size.Width лучше не испоьзовать, в справке есть упоминание об этом.

[Kibermanick]

"Пишет" - кто?
У контейнеров нет свойства PlaceInfo, а PlaceInfo.Size.Width лучше не испоьзовать, в справке есть упоминание об этом.

При применении скина вылазит окно с сообщением.

У меня не контейнер а панель. Понял.

[Black_AVP_Bim]

2 Kibermanick
Ты бы сделал нечто вроде макета на пустом проекте - намного проще было бы помочь, зная конкретную задачу.

[Kibermanick]

2 Kibermanick
Ты бы сделал нечто вроде макета на пустом проекте - намного проще было бы помочь, зная конкретную задачу.

Да все уже, разобрался.)))

Спасибо всем за помощь!!!

[Kibermanick]

Как поменять true на false у AutoSize в скрипте для TextDisplayEx?

[Black_AVP_Bim]

Установить:
  FindObject('TextDisplayEx').Set('AutoSize', '[csHeight, csWidth]');

Сбросить:
  FindObject('TextDisplayEx').Set('AutoSize', '[]');

[Kibermanick]

Установить:
  FindObject('TextDisplayEx').Set('AutoSize', '[csHeight, csWidth]');

Сбросить:
  FindObject('TextDisplayEx').Set('AutoSize', '[]');

Спасибо.)))

[Black_AVP_Bim]

Если только по одной координате надо, то:
 FindObject('TextDisplayEx').Set('AutoSize', '[csHeight]')
 FindObject('TextDisplayEx').Set('AutoSize', '[csWidth]')
но, всё равно, в квадратных скобках.

[Kibermanick]

FindObject('TextDisplayEx').Set('PlaceInfo.Anchors', '[akRight]');

Как здесь задать отступ?

[Kibermanick]

Кажется понял, через Margins...

[Kibermanick]

Теперь у меня AIMP вообще вылетает Когда срабатывает условие.

Code: [Select]

procedure Execute(Sender, Arguments: TComponent); 
                                       
var
  text, cont, a, b, c, : Integer;
 
begin
  text := FindObject('TextDisplayEx').Get('PlaceInfo.ActualWidth');
  cont := FindObject('LayoutContainer11').Get('ActualWidth');
  a := text + 86;
  b := cont - 86;
 
  if text >= cont then
                                                                                         
  begin   
    FindObject('Panel29').Set('PlaceInfo.Size.Width', cont);
    FindObject('TextDisplayEx').Set('AutoSize', '[]');                                     
    FindObject('TextDisplayEx').Set('PlaceInfo.Anchors', '[akLeft, akTop, akRight,]');
    FindObject('TextDisplayEx').Set('PlaceInfo.Margins.Right', 43);
    FindObject('TextDisplayEx').Set('PlaceInfo.Margins.Left', 43);
    FindObject('TextDisplayEx').Set('PlaceInfo.Size.Width', b);       
  end
 
  else
 
  begin   
    FindObject('Panel29').Set('PlaceInfo.Size.Width', a);
    FindObject('TextDisplayEx').Set('PlaceInfo.Anchors', '[akLeft, akTop]');
    FindObject('TextDisplayEx').Set('PlaceInfo.Margins.Left', 43);
    FindObject('TextDisplayEx').Set('AutoSize', '[csWidth]');         
  end;
 
end;

[Kibermanick]

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

[Black_AVP_Bim]

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

Да, в событии onResize нельзя менять собственные размеры, будет зацикливание, надо повесить это событие на другой связанный элемент.

[Candy]

Именно то что я хотел, но есть пара вопросов и пожеланий:
1. Будет ли данная функция интегрирована в официальный скин? Очень бы хотелось.
2. Будет ли данная функция дорабатываться? Извините, но выглядит ну очень кустарно. Было бы очень удобно если бы всё выглядело как в оф. скине, только плашки активировались бы при нажатии на А-В.
Из пожеланий - чтобы можно было изменять положение плашки изменяя само число, при чем не только вбивая цифры, но и например при зажатии ЛКМ была бы возможность крутить вверх или вниз.
Так же чтобы при изменении позиции плашки репит не сбрасывался.
Спасибо.