DLL FMXBridge.dll для Inno Setup 09.08

[audiofeel]

"Живой" пример FPicShow

 

[audiofeel]

К сожалению, пришлось изменить API. Да, это неудобно и требует изменений в коде, но это необходимо для развития и расширения возможностей.

Вместо трёх отдельных форм для Mica, Tabbed и Acrylic теперь используется одна универсальная форма. Тип оформления указывается через параметр TBackdropType.

TBackdropType = (btAuto, btNone, btMain, btTabbed, btAcrylic);

function FCreateWinUIForm(
  WParent: HWND;
  FBackType: TBackdropType;
  FDark, FRound: Boolean
): HWND;

 

[audiofeel]

audiofeel обновил(а) ресурс FMXBridge.dll для Inno Setup новой записью:

FMXBridge - последние изменения

Основное изменение - наконец разобрались с правильной схемой владения окнами.

Раньше была неправильная модель: FMX-окно считалось отдельным top-level окном, а Inno Setup выступал просто как внешний хозяин. Из-за этого начали появляться побочные эффекты с окнами, отображением в системе.

Сейчас сделано как в обычном приложении:

окно FMX имеет правильный Owner через Application;
убрана лишняя независимость окна от приложения;
поведение окна стало ближе к обычному FMX-приложению.

После этого...

Узнать больше об этом обновлении...

 

[audiofeel]

Пример BassPlayer

 

[MarsBar]

Пример BassPlayer
Посмотреть вложение 10381

Зачем и почему сказал бы я, если бы у меня никто не просил никогда встроить музыку в инсталл с ползунками прогресса и громкости. Без шуток, но были такие хотелки...

 

[Хамик]

Пример BassPlayer

Так и задумано?

 

[audiofeel]

Зачем и почему сказал бы я, если бы у меня никто не просил никогда встроить музыку в инсталл с ползунками прогресса и громкости. Без шуток, но были такие хотелки...

Да, попросили пару песен подряд… и понеслось!

 

[audiofeel]

Так и задумано?

Посмотреть вложение 10383

значит ни чего нет в папке музыка.
скомпилируй сам, поправь путь

 

[audiofeel]

audiofeel обновил(а) ресурс FMXBridge.dll для Inno Setup новой записью:

FMXBridge - последние изменения

Полностью переработан компонент FWinTitleBar​

Интерфейс компонента был переработан и расширен:

Спойлер: code

FWinTitleBar = interface(IUnknown)
  '{31E29020-AF92-4FDB-9067-B8C573804370}'
  function FCreate(FParent: TFmxObject; FDark: Boolean): TFmxObject;
  procedure Cursor(FCursor: TCursor);
  procedure Height(FHeight: Single);
  procedure Offset(PY: Single);
  procedure SetClipParent(FValue: Boolean);
  procedure...

Узнать больше об этом обновлении...

 

[audiofeel]

После этого пришлось заново пройтись по внутреннему позиционированию и размеру клиентской области. Исправлена работа с client area - теперь содержимое окна правильно располагается относительно реального клиентского пространства, а не относительно внешнего размера окна.

procedure FMXDesigning;
begin
  FMXForm.FCreateBlankForm(WizardForm.Handle, 0, '', True);

  Test.FCreate(FMXForm.Handle);
  Test.Align(Client);
  Test.StrokeColor(ALRED);
  Test.StrokeSetting(1, scRound, sdSolid, sjMiter);
  Test.HitTest(False);
end;

Спойлер: Image

 

[audiofeel]

audiofeel обновил(а) ресурс FMXBridge.dll для Inno Setup новой записью:

FMXBridge - последние изменения

Обновление FBASS Player
В компонент FBASS Player добавлена встроенная визуализация спектра воспроизводимого аудио.

Возможности:
1 - Анализ выполняется на основе BASS_DATA_FFT4096.
2 - Используется логарифмическое распределение частот.
3 - Уровень сигнала преобразуется в децибелы с последующей нормализацией.
4 - Рабочий диапазон спектра...

Узнать больше об этом обновлении...

 

[Salamandra]

Подскажите как например тут сделать шрифт жирным ну то есть Bold или косой или же косой и жирный???
PageNameLbl[1].FCreate(FMXForm.Handle);
PageNameLbl[1].Text('ГЛАВНАЯ');
PageNameLbl[1].FontSetting('{#MyFontName2}', 12, ColorSetOpacity($FFF5F5F5, 0.8));
PageNameLbl[1].TextSetting(False, txLeading, txLeading);
PageNameLbl[1].AutoSize(True);
PageNameLbl[1].Position(112, 20);

 

[audiofeel]

Подскажите как например тут сделать шрифт жирным ну то есть Bold или косой или же косой и жирный???
PageNameLbl[1].FCreate(FMXForm.Handle);
PageNameLbl[1].Text('ГЛАВНАЯ');
PageNameLbl[1].FontSetting('{#MyFontName2}', 12, ColorSetOpacity($FFF5F5F5, 0.8));
PageNameLbl[1].TextSetting(False, txLeading, txLeading);
PageNameLbl[1].AutoSize(True);
PageNameLbl[1].Position(112, 20);

в обертку FLabel добавлена процедура
procedure FontStyle(FStyle: TFontStyles);

Пример
Text.FontStyle([fsItalic, fsUnderline]);
[fsBold, fsItalic, fsUnderline, fsStrikeOut]

 

[Salamandra]

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

в обертку FLabel добавлена процедура
procedure FontStyle(FStyle: TFontStyles);

Пример
Text.FontStyle([fsItalic, fsUnderline]);
[fsBold, fsItalic, fsUnderline, fsStrikeOut]
Посмотреть вложение 10407

так тоже работает ExitBtnText.FontSetting('{#MyFontName2} Bold', 12, ColorSetOpacity($FFF5F5F5, 0.8));

 

[Salamandra]

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

так тоже работает ExitBtnText.FontSetting('{#MyFontName2} Bold', 12, ColorSetOpacity($FFF5F5F5, 0.8));

вашь способ не помогает по чему то ошибки типа такого метода нет FontStyle

 

[Salamandra]

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

 

[Salamandra]

я прописал так но это не пашет
ExitBtnText.FCreate(ExitBtn.Handle);
ExitBtnText.Text('ВЫХОД');
ExitBtnText.Align(Client);
ExitBtnText.FontSetting('{#MyFontName2}', 12, ColorSetOpacity($FFF5F5F5, 0.8));
ExitBtnText.FontStyle([fsBold]); // <-- Добавлен жирный стиль
ExitBtnText.TextSetting(False, txCenter, txCenter);
ExitBtnText.OnMouseEnter(@CommonOnEnter);
ExitBtnText.OnMouseLeave(@CommonOnLeave);
ExitBtnText.OnClick(@CommonOnClick);
пишет что ункнов индифер в общем

 

[Salamandra]

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