Перейти к содержанию
Fire Monkey от А до Я

vasilius

Пользователи
  • Постов

    32
  • Зарегистрирован

  • Посещение

  • Победитель дней

    2

Весь контент vasilius

  1. vasilius

    SDK macOS ARM M1

    Никто не компилил под АРМ м1? Форум мертв?
  2. vasilius

    SDK macOS ARM M1

    Здравствуйте Можете поделиться папкой SDK с macOS ARM M1? Нет такого мака, а проект нужно скомпилить Спасибо!
  3. А может мне создать, собственный, целый мир без таких умников и подлиз, как Вы? ...но нет, продолжу и дальше заниматься, своим делом...
  4. Просто Вы мыслете в формате Делфи... А есть те, кто мыслит в формате С++... Ваш FGX, судя по всему, идет тем же путем - игнорирование разработчиков на С++.... ну или в последнюю очередь...
  5. Просто гандоны.... когда будет саппорт macOS 64 bit вообще не понятно. Клиенты уже задолбали - софт не запускается на Catalina уже вчера ...
  6. vasilius

    ProgressBar и Gradient

    Здравствуйте! есть прогресс бар с таким стилем : object TRectangle StyleName = 'htrack' Align = Client Fill.Color = claSteelblue Sides = [] Size.Width = 193.000000000000000000 Size.Height = 17.000000000000000000 Size.PlatformDefault = False Stroke.Color = claNull XRadius = 1.000000000000000000 YRadius = 1.000000000000000000 object TRectangle StyleName = 'hindicator' Align = Left Fill.Kind = Gradient Fill.Gradient.Points = < item Color = xFF24C137 Offset = 0.000000000000000000 end item Color = xFF04E31A Offset = 0.844720482826232900 end item Color = xFF04E31B Offset = 1.000000000000000000 end> Fill.Gradient.StartPosition.Y = 0.500000000000000000 Fill.Gradient.StopPosition.X = 1.000000000000000000 Fill.Gradient.StopPosition.Y = 0.500000000000000000 Sides = [] Size.Width = 138.000000000000000000 Size.Height = 17.000000000000000000 Size.PlatformDefault = False Stroke.Color = claSteelblue end end то есть , это обычный прогрес бар где htrack и hindicator сделаны на базе rectangle у ползунка заполнение цветом делается через градиент и нужно динамически менять этот градиент делаю это так: pbInputLevel->StylesData["hindicator.Fill.Gradient.Points[0].Color"] = TValue::_op_Implicit(0xFF24C137); pbInputLevel->StylesData["hindicator.Fill.Gradient.Points[1].Color"] = TValue::_op_Implicit(0xFF04E31A); pbInputLevel->StylesData["hindicator.Fill.Gradient.Points[2].Color"] = TValue::_op_Implicit(0xFF04E31B); if (inLed > -6.00f) { pbInputLevel->StylesData["hindicator.Fill.Gradient.Points[1].Color"] = TValue::_op_Implicit(claRed); pbInputLevel->StylesData["hindicator.Fill.Gradient.Points[0].Color"] = TValue::_op_Implicit(claBlack); } if (inLed > -1.00f) pbInputLevel->StylesData["hindicator.Fill.Gradient.Points[1].Color"] = TValue::_op_Implicit(claRed); работает странно и вываливается exception raised exception class EPropWriteOnly with message 'Color'. Есть идеи как менять градиент на лету правильно?
  7. да и для винды это не работает в вин10 работает, в вин7 - нет
  8. ну для форума важна же читабельность так-то и в одну строку можно уложить TPointF pos = ClientToScreen(btnBackup->LocalToAbsolute(TPointF(0, btnBackup->Height + 1))); pmenBackup->Popup(pos.X, pos.Y);
  9. Здравствуйте Спасибо. Это решение имеет право на жизнь , хоть и не очевидное (само решение) остановился на таком варианте, по данному предложенному варианту: TPointF pos = TPointF(0, btnBackup->Height + 1); pos = btnBackup->LocalToAbsolute(pos); pos = Screen->ActiveForm->ClientToScreen(pos); pmenBackup->Popup(pos.X, pos.Y); Если есть еще варианты - был бы рад Спасибо
  10. Здравствуйте Туплю видимо : не могу найти как сделать кнопку с выпадающим меню При нажатии ЛКМ на кнопку хочется чтобы появлялось меню Есть ли такой стандартный контрол. Перед тем как извращатся решил уточнить, чтобы не создавать велосипед Заранее спасибо
  11. AddFontResource кроме 10 винды, еще у кого-то работает? в 7-ке, например?
  12. Так можно установить в виндовс шрифт без установки в систему?
  13. Так сами посмотрите - в StyleBook"е
  14. Принимаю поздравления... Начал переносить код с нерабочего проекта в рабочий (который запускался)... у меня в Create было заполнение поля стиля... тип значения TValue у меня было = TValue::From<String>("0"); этот код нормально работал без линковки - все было хорошо с линковкой вылазил Access violation описаный выше решение такое : = TValue::_op_Implicit(String("0")); К сожалению, дебагер, как я и говорил, абсолютно бесполезный в этой среде, жаль.....
  15. Я создал чистый проект подобавлял все компоненты, которые используются в текущем, Втом числе и ДЛЛ , убрал линковку пакеджей и RTL - проект запускается . Технология работает. Тоест дело не в ДЛЛ. Но в моем проекта проблема осталась... Посмотрире на скриншот выше, там дело до ImageList не доходит... и ИмеджЛист может быть Dialogs или что-то другое - тут как компилятор делает... по разному бывает Вот скрин с дебагера под Вин32 - он более понятный, чем с дебагера под вин64 -))) Ошибка в модуле System class function TMonitor.GetFieldAddress(const AObject: TObject): PPMonitor; begin Result := GetMonitorFieldAddress(AObject); end; До моего кода дело не доходит...
  16. Это, к сожалению, не помогает. Ехе маленький , и требует пакеты...
  17. Вы имеете ввиду этот список? На счет access violation я бы с удовольствием разобрался, но как видно с скринов - там до моего кода дело не доходит.... и не хочу разводить болото, но худшего дебагера чем в этой среде я не встречал... хуже только полное отсутствие... ну или я не умею его готовить ...
  18. Спасибо,что стараетесь помочь, но видимо Вам не совсем понятна суть проблемы... В любом случае, буду благодарен за полезные советы
  19. Ммм... может подскажите как.... Исключение только, если Link with runtime packages = False
  20. Перед тем, как создать топик, я погуглил Совет аналогичный Вашему встречается часто... Я убираю эту галочку но проэкт стартует с ексепшеном так же пробовал разные комбинации этого с этим Размер ехе растет, но не запускается - всегда аксес виолейшен Я лично не использую, но я использую компонент, который является оберткой для hidapi.dll - это длл для работы с HID USB мультиплатформенная... Вот за внутренности этой обертки я ручаться не могу...
  21. Здравсвтуйте Приложение на FMX под win32, win64 требует наличие таких библиотек fmx250.bpl FMXTee9250.bpl IndyCore250.bpl IndySystem250.bpl rtl250.bpl borlndmm.dll Можно скомпилировать проэкт так, чтобы все библиотеки были прилинкованы в ЕХЕ? Чтобы не таскать за собой bpl Спасибо
  22. скопировал шрифт в корень диска С #ifdef _WIN32 int res = AddFontResourceEx(L"C:\4960.ttf", FR_NOT_ENUM , NULL); #endif try { Application->Initialize(); Application->CreateForm(__classid(TForm2), &Form2); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; все-равно не работает
  23. Вот скриншоты В проекте перед всеми инитами делаю #ifdef _WIN32 int res = AddFontResourceEx(L"4960.ttf", FR_NOT_ENUM , NULL); #endif try { Application->Initialize(); Application->CreateForm(__classid(TForm2), &Form2); Application->Run(); } catch (Exception &exception) { Application->ShowException(&exception); } catch (...) { try { throw Exception(""); } catch (Exception &exception) { Application->ShowException(&exception); } } return 0; на скриншоте показано, что res == 1 - тоесть ф-ция удачно выполнилась дальше по нажатию на кнопку пытаюсь поменять шрифт Label55->TextSettings->Font->Family = "5x5 Dots"; StyledSettings все выключены - показано на скрине - в результате ничего.... -(
  24. Токио, Билдер... не работает AddFontResourceEx(L"4960.ttf", FR_PRIVATE , NULL); try { Application->Initialize(); Application->CreateForm(__classid(TForm2), &Form2); Application->Run(); } проверка TStrings * FontList; HDC dContext; LOGFONT * LFont; dContext = GetDC(0); LFont = new LOGFONT(); LFont->lfCharSet = DEFAULT_CHARSET; EnumFontFamiliesEx(dContext, LFont, (FONTENUMPROC)&EnumFontsList, LPARAM(Memo1->Lines), 0); ReleaseDC(0, dContext); Label55->TextSettings->Font->Family = "5x5 Dots"; в списке фонт появляется, но к контролам не применяется если делать через FR_NOT_ENUM, то в списке даже не появляется и тоже не работает
×
×
  • Создать...