Установил trial delphi 10 Seattle , не применяются стили к item

[kramler]

Установил trial delphi 10 Seattle , не применяются стили к item

 

Интересная вещь , создал стиль

добавил Trectangle залил его синим цветом , stylename = stitem

 

далее простой код

 

procedure TForm1.Button1Click(Sender: TObject);

Var

 Item : TListBoxItem;

begin

 Item := TListBoxItem.Create(nil);

 Item.Text:=IntToStr(ListBox1.Items.Count)+' строка';

 Item.StyleLookup:='stitem';

 Item.Parent:=ListBox1; 

end;

 

если компилировать для 

64-bit Windows то все хорошо добавляется синий item

а вот если компилировать в

32-bit то ни при каком обстоятельстве style не применяется,

 

может кто сталкивался и знает как исправить

Изменено 11 сентября, 2015 пользователем kramler