FMXBridge.dll для Inno Setup

DLL FMXBridge.dll для Inno Setup 07.09

Нет прав для скачивания
Обзор Обновления (33) История Обсуждение
audiofeel обновил(а) ресурс FMXBridge для Inno Setup (внутренний проект) новой записью:

Небольшое обновление

Обновление аудиоподсистемы

1. Было:
Для фоновой музыки использовался FMX TMediaPlayer.
Для его работы система запускала дополнительные службы MIDI.
Это замедляло старт DLL и появление сплеш-формы.

2. Стало:
TMediaPlayer заменён на BASS.

3. Особенности:
Мы не подключаем отдельную DLL (bass.dll), как обычно делают.
Вместо этого используется объектный файл bass-omf-d.obj, встроенный прямо в DLL:
code_language.pascal: 
{$L bass-omf-d.obj}
Это значит, что весь...
Нажмите для раскрытия...

Узнать больше об этом обновлении...
 
audiofeel обновил(а) ресурс FMXBridge для Inno Setup (внутренний проект) новой записью:

Небольшое обновление

Добавлен компонент: FRatingBar

Основные возможности:
Отображение рейтинга (звезды).
Поддержка дробных значений.
Настройка количества звезд.
Управление максимальным значением.
Кастомизация внешнего вида (цвет, обводка, отступы).
Полный контроль через код (позиция, размеры, события).

Позиция и размер:
Left, Top, Width, Height
SetBounds
Position
Align
Margins / Padding

Внешний вид:
Color // цвет звезд
BackgroundColor // фон
StrokeColor //...
Нажмите для раскрытия...

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

Ключевые отличия от аналогичных проектов​

Поддержка текстовой каретки
Поля ввода (например, FEdit) имеют полноценный мигающий текстовый курсор (caret), что улучшает удобство использования и точность редактирования.

Отсутствие белой вспышки при запуске
Приложение запускается без характерного белого мерцания перед отрисовкой интерфейса.

Динамическое изменение цветов стиля
Стилизованные элементы поддерживают изменение цветов во время выполнения, даже если цвета заданы в ресурсах стиля (цвета переопределяются напрямую внутри стиля).

Современные эффекты окна DWM
Интеграция с продвинутыми эффектами Desktop Window Manager, такими как Mica, Acrylic и Tabbed.

Псевдомодальные диалоги
Диалоговые окна имитируют модальное поведение, не блокируя полностью основной поток или цикл сообщений.

Локализованные popup-элементы для FEdit
Всплывающие элементы, связанные с FEdit, могут локализоваться независимо.

Улучшенное размытие окна в Windows 10
Улучшенная реализация Blur-эффекта без типичных ограничений при перетаскивании или перемещении окна.

Корректная анимация сворачивания
Сворачивание окна выполняется с использованием нативной анимации вместо резкого исчезновения.

Отрисовка миниатюр в панели задач
Кастомная отрисовка превью (миниатюр) окна в панели задач.
 
MarsBar написал(а):
Поздравляю с успешным выходом на гитхаб. Как оказалось не так тяжело и удобно да? :acute:
Нажмите для раскрытия...
Он приват. Там у двух компонентов лицензия ... Скорее всего сразу же прилетит DMCA...
Могут закрыть или страйк. Или вообще компенсацию попросят:greeting:
 
audiofeel обновил(а) ресурс FMXBridge для Inno Setup (внутренний проект) новой записью:

Небольшое обновление

OSInfo: исправление нестабильности и некорректных значений.

Внесены изменения в реализацию получения информации о системе:
  • Данные (Caption / Version / Build) теперь инициализируются один раз в конструкторе объекта, вместо чтения при каждом вызове метода.
  • Устранена проблема, при которой значения могли “перемешиваться” при использовании интерфейса (зависимость от порядка методов / vtable).
  • Получение GetWinBuildNumber (build-номера) переведено на...
Нажмите для раскрытия...

Узнать больше об этом обновлении...
 
audiofeel обновил(а) ресурс FMXBridge для Inno Setup (внутренний проект) новой записью:

Небольшое обновление

Добавлен компонент: FUWPTiles

Основные возможности:
Создание и управление контейнером плиток
Полный контроль расположения и размеров
Добавление и настройка Tile-элементов
Управление стилями, текстом и изображениями
Поддержка событий клика и взаимодействия
Работа напрямую через NativeInt handle

Позиция и размер:
FCreate(FParent: NativeInt): NativeInt
Left
Top
Width
Height
SetBounds(FLeft, FTop, FWidth, FHeight: Single)
Position(X, Y: Single)
Align(Al: TAlignLayout)...
Нажмите для раскрытия...

Узнать больше об этом обновлении...
 
здравствуйте. вопрос тут больше к автору вот я задаю так цвета
#define MyFontColor1 "AlWhiteSmoke"
#define MyFontColor2 "$FFFF8C00"

#define ThemeColor1 "$FFFF8C00"
#define ThemeColor2 "$FFe3e3e3"
#define ThemeColor3 "$FFD35B08"
#define ThemeColor4 "AlBlack"
и допустим прописываю так ModCarousel.FontSetting('{#MyFont2Name}', 14, MyFontColor1); и он ругается на MyFontColor1 но если я так вот делаю FontSetting('{#MyFont2Name}', 14, '{#MyFontColor1}'); то все хорошо . вот и не понимаю по чему он не понимает первым способом
 
Salamandra написал(а):
здравствуйте. вопрос тут больше к автору вот я задаю так цвета
#define MyFontColor1 "AlWhiteSmoke"
#define MyFontColor2 "$FFFF8C00"

#define ThemeColor1 "$FFFF8C00"
#define ThemeColor2 "$FFe3e3e3"
#define ThemeColor3 "$FFD35B08"
#define ThemeColor4 "AlBlack"
и допустим прописываю так ModCarousel.FontSetting('{#MyFont2Name}', 14, MyFontColor1); и он ругается на MyFontColor1 но если я так вот делаю FontSetting('{#MyFont2Name}', 14, '{#MyFontColor1}'); то все хорошо . вот и не понимаю по чему он не понимает первым способом
Нажмите для раскрытия...
Что бы "он" понимал нужный тебе способ то нужно
code_language.pascal: 
[Code]
var
  Color1: TAlphaColor;

procedure FMXInit;
begin
  FMXForm:= InitFormHandle;

  Color1:= {#MyFontColor1};
 
audiofeel написал(а):
Что бы "он" понимал нужный тебе способ то нужно
code_language.pascal: 
[Code]
var
  Color1: TAlphaColor;

procedure FMXInit;
begin
  FMXForm:= InitFormHandle;

  Color1:= {#MyFontColor1};
Нажмите для раскрытия...
хорошо. а здесь тогда что нужно
Код: 
procedure WotList_Update(List: FComboBox);
var
  Buffer, Str: String;
  ClientsCount, Index, ListIndex: Integer;
  ClientRec: ClientRecord;
begin
  SetLength(Buffer, 1024);
  ListIndex:= List.GetItemIndex;
  ClientsCount:= WOT_GetClientsCount();
  List.Clear;
  if ClientsCount > 0 then
    for Index:= 0 to ClientsCount - 1 do
    begin
      ClientRec:= CLIENT_GetRecord(Index);
      Str:= CLIENT_FormatString(ClientRec);
      List.AddItem(Str);
    end;
  List.AddItem(ExpandConstant('{cm:openwg_browse}'));
procedure WotList_Update(List: FComboBox);
var
  Buffer, Str: String;
  ClientsCount, Index, ListIndex: Integer;
  ClientRec: ClientRecord;
begin
  SetLength(Buffer, 1024);
  ListIndex:= List.GetItemIndex;
  ClientsCount:= WOT_GetClientsCount();
  List.Clear;
  if ClientsCount > 0 then
    for Index:= 0 to ClientsCount - 1 do
    begin
      ClientRec:= CLIENT_GetRecord(Index);
      Str:= CLIENT_FormatString(ClientRec);
      List.AddItem(Str);
    end;
  List.AddItem(ExpandConstant('{cm:openwg_browse}'));
  List.ItemIndex(ListIndex);
  List.FontSetting('{#MyFont1Name}', 15, ALWhite);
end;
end;
здесь он ругается на эти строчки
List.ItemIndex(ListIndex);
List.FontSetting('{#MyFont1Name}', 15, ALWhite); а конкретно на ItemIndex и FontSetting в var у меня прописано только
wotlist_prev_idx : Integer; и есть еще WotList : array of FComboBox; в общем ункнов индифер пишет
 
audiofeel обновил(а) ресурс FMXBridge.dll для Inno Setup новой записью:

Небольшое обновление

Добавлены новые возможности:
FComboBox
метод StyledSettings
метод FontSetting (настройка шрифта и цвета элементов ComboBox)

code_language.pascal: 
 procedure StyledSettings(FStyledSettings: TStyledSettings);
 procedure FontSetting(const FontName: WideString; FontSize: Single; FontColor: TAlphaColor);

демонстрационный пример: Example_ComboBox.iss
Нажмите для раскрытия...

Узнать больше об этом обновлении...
 
еще вот тут например
MenuBar := InitRectangleHandle;
MenuBar.FCreate(MenuLayer.Handle);
MenuBar.Align(Client);
MenuBar.FillColor(ALBlack);
MenuBar.Opacity(StrToFloat(MenuOpacity));
MenuBar.StrokeColor(FMXColorSetOpacity(ALWhiteSmoke, 0.4));
MenuBar.StrokeSetting(1, scFlat, sdSolid, sjMiter);
MenuBar.Sides([tsRight]);
ругается в этой строчке MenuBar.Opacity(StrToFloat(MenuOpacity)); на MenuOpacity - ункнов индифер. подскажите как это исправить тоже и и это тоже ругается MenuBar.StrokeColor(FMXColorSetOpacity(ALWhiteSmoke, 0.4)); тоже не понимаю как исправить FMXColorSetOpacity что не так с ним. подскажите кто знает как это исправить
 
и еще вот я обновленный вашь пример запустил из архива этот Example_ImageList.iss то в этом блоке
procedure CommonOnClick(Sender: TObject);
begin
case Sender of

TObject(TitleBar.GetObjectMinBtn):
begin
MinimizeWindow(FMXForm.HandleHWND);
end;

он ругается на строку MinimizeWindow(FMXForm.HandleHWND); а конкретно MinimizeWindow пишет ункнов индифер

решил добавил в хендлер две константы
WM_SYSCOMMAND = $0112;
SC_MINIMIZE = $F020;
 
Последнее редактирование:
еще вопрос как это вот правильно подставлять
NextBtn.Height(28);
NextBtn.Width(110); потому что так как я написал бридж не понимает не Height не Width пишет что они отсутствуют
 
Salamandra написал(а):
ругается в этой строчке MenuBar.Opacity(StrToFloat(MenuOpacity)); на MenuOpacity - ункнов индифер. подскажите как это исправить тоже и и это тоже ругается MenuBar.StrokeColor(FMXColorSetOpacity(ALWhiteSmoke, 0.4)); тоже не понимаю как исправить FMXColorSetOpacity что не так с ним. подскажите кто знает как это исправить
Нажмите для раскрытия...
Я не могу знать что такое StrToFloat(MenuOpacity) у тебя в скрипте.
Opacity - это число от 0 до 1.
0 = полностью прозрачный.
1 = полностью видимый.
Undeclared identifier MenuOpacity означает что ты не указал-объявил переменную.

FMXColorSetOpacity = ColorSetOpacity
Что это вообще за функция
code_language.pascal: 
function ColorSetOpacity(const FColor: TAlphaColor; FOpacity: Single): TAlphaColor;
Это просто удобная штука: ты берёшь любой цвет, задаёшь прозрачность (например 0.5). На выходе получаешь тот же цвет, но уже полупрозрачный.
Пример:
code_language.pascal: 
ColorSetOpacity($FF0000FF, 0.5);
Это синий цвет, но наполовину прозрачный.

Второй способ (без функции)
Цвет выглядит так
code_language.pascal: 
AARRGGBB
AA - прозрачность (альфа)
RR - красный
GG - зелёный
BB - синий
Как это делать через сайт: Ты идёшь на сайт - csscolor Выбираешь цвет, двигаешь ползунок прозрачности, получаешь HEX-код. Например:
code_language.pascal: 
05050513
Где 13 - прозрачность, остальное цвет.
$13050505
 
Последнее редактирование:
Salamandra написал(а):
и еще вот я обновленный вашь пример запустил из архива этот Example_ImageList.iss то в этом блоке
procedure CommonOnClick(Sender: TObject);
begin
case Sender of

TObject(TitleBar.GetObjectMinBtn):
begin
MinimizeWindow(FMXForm.HandleHWND);
end;

он ругается на строку MinimizeWindow(FMXForm.HandleHWND); а конкретно MinimizeWindow пишет ункнов индифер

решил добавил в хендлер две константы
WM_SYSCOMMAND = $0112;
SC_MINIMIZE = $F020;
Нажмите для раскрытия...
Ничего добавлять не нужно. Правильно будет так -
code_language.pascal: 
    TObject(TitleBar.GetObjectMinBtn):
    begin
      FMXBridgeMinimize;
    end;

Пример исправлен.
 
Salamandra написал(а):
еще вопрос как это вот правильно подставлять
NextBtn.Height(28);
NextBtn.Width(110); потому что так как я написал бридж не понимает не Height не Width пишет что они отсутствуют
Нажмите для раскрытия...
Не понятно, что у тебя такое NextBtn. Покажи или опиши, что это - кнопка, переменная или что?.
 

audiofeel​

А вы можете еще вот что: вот этот пример на Bridge перевести? Тут очень классно боковое меню сделано и сама реализация классная. А то я нашел только на FMX такое, а для Bridge бокового меню, да и в принципе бокового меню с выпадающим списком, не видел. Плюс вы еще в последней обнове сделали классную штуку с примером выпадающего списка — это вообще офигенная тема, ну, для моих задач точно. Я его только недавно хотел спросить, как так сделать, а вы сами такое выкатили. Я вам до этого кидал последний модпак, вот его и хочу на Bridge перевести. Если я с FMX разобрался, то Bridge — это новое, что я хотел бы понять. И, как я понял, это сейчас лучше, так как FMX устарел и по нему особо никто разъяснения не дает, а тут вы отвечаете, подсказываете, да и это что-то новенькое. Я не прошу за меня что-то прямо там делать, мне главное — подсказки, примеры, а там я освоюсь, как и с FMX (я всё, что хотел там, реализовал). А сейчас есть новая идея, и Bridge, может, и проще в этом. Только нет некоторых примеров, но для начала мне бы такой пример на Bridge, как тут.
Screenshot_1.jpgScreenshot_3.jpg
и возможно у меня получится со временем перевести то что я самое вам последние кидал полносью на бридж . ну я бы хотел такое сделать
 
Войдите или зарегистрируйтесь для ответа.
Назад
Сверху