Как объединить два StileBook динамически?

[Ra72]

Уважаемые эксперты!

Часть элементов в моем приложении видоизменяются отдельно от других.

Чтобы избежать комбинаторного взрыва решил сделать две группы StileBook-ов, но вот проблема, как их теперь попарно объединить в приложении?

Пробовал так:

  FBinary: TMemoryStream;
begin
  FBinary := TMemoryStream.Create;
  TStyleStreaming.SaveToStream(StyleBook1.Style, FBinary);
  MainStyleBook.CurrentItem.LoadFromStream(FBinary);

Выдает ошибку "stream read error"...

 

[kami]

В качестве самой очевидной ошибки:

перед LoadFromStream нужно сделать

FBinary.Seek(0, soBeginning);

или

FBinary.Position:=0;

Изменено 11 декабря, 2015 пользователем kami

[Равиль Зарипов (ZuBy)]

так в любом случае не получится

1) нужно вставить не полностью файл, а только сами объекты

2) переименовать StyleLookup'ы, т.к. один будет одинаковы

3) вы уверены что предусмотрено загрузка двух картинок?

[Ra72]

Zuby,

1. как вставить объекты?

2. переименовывать не надо, названия разные.

3. не понял...

 

Kami, спасибо.

Изменено 16 декабря, 2015 пользователем Ra72

[AngryOwl]

Может я не правильно Вас понял, но думаю, что самый простой способ - это создать один стиль объединив несколько.

Смысл заключается в следующем:

- помещаете в ваш стиль нужные изображения с элементами компонентов

- создаете одинаковые (например) кнопки, только с разным названием стиля. Например одна будет "buttonstyle" и будет использовать Background SourceLookup из одного изображения, а вторая "buttondarkstyle" из другого изображения

- в программе Вам нужно лишь в соответствующий момент менять стиль кнопки

(к "кнопкам" не привязываемся - это я в качестве примера))

 

 

P.S. сорри за большие картинки, но так понятнее...