[Krants]

Снова здрасте!

10.16 XE5

WordWrap не отключается)

[Krants]

Впринципе разобрался 🙄

проблема оказалась не только с TsButton, но и с другими компонентами(кроме TsSpeedButton), в одних отображалась только первая иконка, в других вообще никакой.

загвоздка оказалась в том, что TsVirtualImageList(при UseCache) не возвращает количество элементов!

пока вот такое решение решило проблему:

Code:

ImageList_SetImageCount(sVirtualImageList1.Handle, sVirtualImageList1.AlphaImageList.Count);

[Krants]

и также уже не воспринимаются значения цветов из раздела “Text сontour”

что более критично, т.к. эффект “Text сontour” использую во многих местах,

а заменить нечем, т.к. другие TsLabel(Sticky, HTML) тоже не воспринимают их

[Krants]

'Support' wrote:

Добавлю в следующем релизе.

Спасибо!

[Krants]

сейчас использую 7.70, там разрешается прозрачный!

проверьте на Демке 7.70

[Krants]

'Witcher' wrote:

Здравствуйте!

А если выключить sSkinManager (Active = False) – такое тоже наблюдается?

Не могу проверить, т.к. откатился на старую версию, но производилось даже без sSkinManager.

Насколько помню, смоделировать можно легко: на пустую форму положите два TsLabelFX(приравняв их по вертикали), у одного настройте тень как указано ранее, запустите приложение и проверьте результат:

procedure TForm1.Button1Click(Sender: TObject);

begin

Caption := IntToStr(sLabelFX1.Left) + ' ' + IntToStr(sLabelFX2.Left);

end;

[Krants]

'Support' wrote:

Если Animation.Active = True, а Time = 0, то это не анимация, а пререндеринг картинки в памяти перед выводом на экран, вашей проблеме должно помочь 🙂

Спасибо за совет, так все работает!

PS: А для отдельного окна(“About”) временно включаю FormShow/Fading, – помогло победить принудительную анимацию в Win7(при первом открытии окна)

[Krants]

как писал ранее, отключил всю анимацию по причине того, что иногда не прорисовывалось приложение после разворачивания из трея..

да и анимацию вообще не использую, меня интересует лишь дизайн некоторых форм/компонентов приложения,

в чем Ваш набор компонентов очень помог!

[Krants]

[attachment=5976:AlphaGradient.zip]

7.7 и Delphi7

на основе простого скина XPSilver, в качестве градиента выбрал RIBBONPAGE,

на форму добавил множество панелек в целях моделирования замедления прорисовки.

[Krants]

'Support' wrote:

Попробуйте положить на форму TsSkinProvider и сообщите о результате.

Здравствуйте!

TsSkinProvider имеется,

замечу что вся анимация отключена(и AllowExtBorders также).

PS: точно уже не помню но вроде причину “не прорисовки” нашел в обработке сообщ. WM_ERASEBKGND(TsPanel),

времени разбираться не было. Но проблема еще актуальна!

PS2: еще столкнулся с одной глобальной “не прорисовкой” главного окна приложения!

воспроизводилась рандомно, в разных средах, после разворачивания приложения(из минимизированного состояния/трея).

причину нашел в обработке сообщения wm_NCActivate (TsSkinProvider.NewWndProc) где реально перекрывалась прорисовка WM_SETREDRAW/0

точно по какой причине она там перекрывалась не помню, но что-то связанное с анимацией, хотя в TsSkinProvider была отключена.

решил эту проблему отключив в TsSkinManager все эффекты(кроме Glowing, т.к. использую)

[Author]

Posts