-
Уважаемые гости и пользователи форума.
Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
Аккаунты, зарегистрированные на временную почту, будут также заблокированы.
DLL FMXBridge.dll для Inno Setup 2026.14.11.0
- Автор темы audiofeel
- Дата начала
MarsBar
Участник
Поздравляю с успешным выходом на гитхаб. Как оказалось не так тяжело и удобно да?
audiofeel
Ветеран
Ключевые отличия от аналогичных проектов
Поддержка текстовой кареткиПоля ввода (например, FEdit) имеют полноценный мигающий текстовый курсор (caret), что улучшает удобство использования и точность редактирования.
Отсутствие белой вспышки при запуске
Приложение запускается без характерного белого мерцания перед отрисовкой интерфейса.
Динамическое изменение цветов стиля
Стилизованные элементы поддерживают изменение цветов во время выполнения, даже если цвета заданы в ресурсах стиля (цвета переопределяются напрямую внутри стиля).
Современные эффекты окна DWM
Интеграция с продвинутыми эффектами Desktop Window Manager, такими как Mica, Acrylic и Tabbed.
Псевдомодальные диалоги
Диалоговые окна имитируют модальное поведение, не блокируя полностью основной поток или цикл сообщений.
Локализованные popup-элементы для FEdit
Всплывающие элементы, связанные с FEdit, могут локализоваться независимо.
Улучшенное размытие окна в Windows 10
Улучшенная реализация Blur-эффекта без типичных ограничений при перетаскивании или перемещении окна.
Корректная анимация сворачивания
Сворачивание окна выполняется с использованием нативной анимации вместо резкого исчезновения.
Отрисовка миниатюр в панели задач
Кастомная отрисовка превью (миниатюр) окна в панели задач.
audiofeel
Ветеран
Он приват. Там у двух компонентов лицензия ... Скорее всего сразу же прилетит DMCA...Поздравляю с успешным выходом на гитхаб. Как оказалось не так тяжело и удобно да?
Могут закрыть или страйк. Или вообще компенсацию попросят
audiofeel
Ветеран
audiofeel обновил(а) ресурс FMXBridge для Inno Setup (внутренний проект) новой записью:
Небольшое обновление
Узнать больше об этом обновлении...
Небольшое обновление
Узнать больше об этом обновлении...
audiofeel
Ветеран
audiofeel обновил(а) ресурс FMXBridge для Inno Setup (внутренний проект) новой записью:
Небольшое обновление
Узнать больше об этом обновлении...
Небольшое обновление
Узнать больше об этом обновлении...
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}'); то все хорошо . вот и не понимаю по чему он не понимает первым способом
#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}'); то все хорошо . вот и не понимаю по чему он не понимает первым способом
audiofeel
Ветеран
Что бы "он" понимал нужный тебе способ то нужно
code_language.pascal:
[Code]
var
Color1: TAlphaColor;
procedure FMXInit;
begin
FMXForm:= InitFormHandle;
Color1:= {#MyFontColor1};Salamandra
Участник
хорошо. а здесь тогда что нужно
Код:
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
Ветеран
audiofeel обновил(а) ресурс FMXBridge.dll для Inno Setup новой записью:
Небольшое обновление
Узнать больше об этом обновлении...
Небольшое обновление
Узнать больше об этом обновлении...
Salamandra
Участник
еще вот тут например
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 что не так с ним. подскажите кто знает как это исправить
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 что не так с ним. подскажите кто знает как это исправить
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;
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;
Последнее редактирование:
Salamandra
Участник
еще вопрос как это вот правильно подставлять
NextBtn.Height(28);
NextBtn.Width(110); потому что так как я написал бридж не понимает не Height не Width пишет что они отсутствуют
NextBtn.Height(28);
NextBtn.Width(110); потому что так как я написал бридж не понимает не Height не Width пишет что они отсутствуют
audiofeel
Ветеран
Я не могу знать что такое StrToFloat(MenuOpacity) у тебя в скрипте.
Opacity - это число от 0 до 1.
0 = полностью прозрачный.
1 = полностью видимый.
Undeclared identifier MenuOpacity означает что ты не указал-объявил переменную.
FMXColorSetOpacity = ColorSetOpacity
Что это вообще за функция
code_language.pascal:
function ColorSetOpacity(const FColor: TAlphaColor; FOpacity: Single): TAlphaColor;Пример:
code_language.pascal:
ColorSetOpacity($FF0000FF, 0.5);Второй способ (без функции)
Цвет выглядит так
code_language.pascal:
AARRGGBBRR - красный
GG - зелёный
BB - синий
Как это делать через сайт: Ты идёшь на сайт - csscolor Выбираешь цвет, двигаешь ползунок прозрачности, получаешь HEX-код. Например:
code_language.pascal:
05050513$13050505
Последнее редактирование:
audiofeel
Ветеран
Ничего добавлять не нужно. Правильно будет так -
code_language.pascal:
TObject(TitleBar.GetObjectMinBtn):
begin
FMXBridgeMinimize;
end;Пример исправлен.
audiofeel
Ветеран
Не понятно, что у тебя такое NextBtn. Покажи или опиши, что это - кнопка, переменная или что?.
Salamandra
Участник
audiofeel
А вы можете еще вот что: вот этот пример на Bridge перевести? Тут очень классно боковое меню сделано и сама реализация классная. А то я нашел только на FMX такое, а для Bridge бокового меню, да и в принципе бокового меню с выпадающим списком, не видел. Плюс вы еще в последней обнове сделали классную штуку с примером выпадающего списка — это вообще офигенная тема, ну, для моих задач точно. Я его только недавно хотел спросить, как так сделать, а вы сами такое выкатили. Я вам до этого кидал последний модпак, вот его и хочу на Bridge перевести. Если я с FMX разобрался, то Bridge — это новое, что я хотел бы понять. И, как я понял, это сейчас лучше, так как FMX устарел и по нему особо никто разъяснения не дает, а тут вы отвечаете, подсказываете, да и это что-то новенькое. Я не прошу за меня что-то прямо там делать, мне главное — подсказки, примеры, а там я освоюсь, как и с FMX (я всё, что хотел там, реализовал). А сейчас есть новая идея, и Bridge, может, и проще в этом. Только нет некоторых примеров, но для начала мне бы такой пример на Bridge, как тут.
и возможно у меня получится со временем перевести то что я самое вам последние кидал полносью на бридж . ну я бы хотел такое сделать
Salamandra
Участник
и еще я так и не понял как вокруг картинки рамку стандартную с кнопками скрыть. на фмкс я легко это делаю а на бридж таким макаром чет не вышло. а в лс я вам вышлю что я хочу на бридж перевести полностью и уже это развивать.
audiofeel
Ветеран
Вокруг картинки нет стандартной рамки. И как ее скрыть я не знаю.