Глюки DynamicSkinForm

[k1r1ch]

Я думаю, это довольно популярный компонент, может кто сталкивался с такими проблемами:
1) У компонента TspSkinTrayIcon в подсказку выводится только первая буква свойства Hint.
2) У некоторых тем вокруг кнопок на TspSkinToolBar видны черные точки.
Никто не сталкивался?

[Kotofff]

Вряд ли компонент был куплен официально ... так ведь?
Тогда просто скачай откуда-нить с другого места и переустанови.
Если повторится - переустанови Delphi.

P.S. Как устанавливал ? Через bpl посредством установки пакета или через dpk ?

[k1r1ch]

1. Через bpl.
2. Понятно не официальный)
3. У меня была версия 10.10, и там были оба глюка, я понадеялся, что это исправили в будущих версиях. Установил 10.34 и все то же самое. Если вы действительно считаете, что дело может быть из-за Delphi, то я завтра попробую установить на ноутбуке.
З.Ы.: Может скинуть исходники? Сразу предупреждаю, там используется также TMS Component Pack Pro.

[k1r1ch]

И еще появилась проблема: хочу сделать, чтобы программа читала названия скинов и их описание из Ini-файла такого типа:
<Название>=<Описание>
А потом загружала их в компонент TspCompressedSkinList и ComboBox, при изменении комбобокса менялся бы скин. Вроде все должно работать, но загружается только стандартный скин, хотя описания скинов в комбо все же пишутся, но не меняются при выборе нового. Вот код:

var
  Ini: TIniFile;
  SknList: TStrings;

procedure TMainForm.FormShow(Sender: TObject);
var i, Num: integer;
//Загрузка скинов
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Skins\Skins.sknlist'); //Это Ini-файл со списком скинов
  SknList := TStringList.Create;
  Ini.ReadSection('Skins', SknList);
  for i := 0 to SknList.Count - 1 do
    begin
      MainForm.SkinListM.Skins.Add; //SkinListM - это TspCompressedSkinList
      Num := MainForm.SkinListM.Skins.Count - 1;
      MainForm.SkinListM.Skins[Num].CompressedFileName :=
        ExtractFilePath(Application.ExeName) + 'Skins\' + SknList[i] + '.skn';
      MainForm.SkinListM.Skins[Num].Description :=
        Ini.ReadString('Skins', SknList[i], SknList[i]);
    end;
  for i := 0 to MainForm.SkinListM.Skins.Count - 1 do
    MainForm.SkinList.Items[i] := MainForm.SkinListM.Skins[i].Description;
  MainForm.SkinList.ItemIndex := 0; //SkinList - комбобокс
  Ini.Free;

procedure TMainForm.SkinListChange(Sender: TObject);
begin
    SkinData.SkinIndex := SkinList.ItemIndex
end;

Что неправильно?

[uberchel]

Надо прописывать по другому, а то указываешь только номер итемса а не то что написано там !!!

procedure TMainForm.SkinListChange(Sender: TObject);
begin
    SkinData.SkinIndex := SkinList.Items[SkinList.ItemIndex];
end;

[k1r1ch]

Нет, в SkinIndex ставится именно номер, указывающий на скин из списка SkinListM, а у меня номера в комбобоксе совпадают с номерами скинлиста!