vasilius

Пользователи
  • Публикаций

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

  • Посещение

Информация о vasilius

  • Звание
    Пользователь
  1. Так сами посмотрите - в StyleBook"е
  2. Принимаю поздравления... Начал переносить код с нерабочего проекта в рабочий (который запускался)... у меня в Create было заполнение поля стиля... тип значения TValue у меня было = TValue::From<String>("0"); этот код нормально работал без линковки - все было хорошо с линковкой вылазил Access violation описаный выше решение такое : = TValue::_op_Implicit(String("0")); К сожалению, дебагер, как я и говорил, абсолютно бесполезный в этой среде, жаль.....
  3. Я создал чистый проект подобавлял все компоненты, которые используются в текущем, Втом числе и ДЛЛ , убрал линковку пакеджей и RTL - проект запускается . Технология работает. Тоест дело не в ДЛЛ. Но в моем проекта проблема осталась... Посмотрире на скриншот выше, там дело до ImageList не доходит... и ИмеджЛист может быть Dialogs или что-то другое - тут как компилятор делает... по разному бывает Вот скрин с дебагера под Вин32 - он более понятный, чем с дебагера под вин64 -))) Ошибка в модуле System class function TMonitor.GetFieldAddress(const AObject: TObject): PPMonitor; begin Result := GetMonitorFieldAddress(AObject); end; До моего кода дело не доходит...
  4. Это, к сожалению, не помогает. Ехе маленький , и требует пакеты...
  5. Вы имеете ввиду этот список? На счет access violation я бы с удовольствием разобрался, но как видно с скринов - там до моего кода дело не доходит.... и не хочу разводить болото, но худшего дебагера чем в этой среде я не встречал... хуже только полное отсутствие... ну или я не умею его готовить ...
  6. Спасибо,что стараетесь помочь, но видимо Вам не совсем понятна суть проблемы... В любом случае, буду благодарен за полезные советы
  7. Ммм... может подскажите как.... Исключение только, если Link with runtime packages = False
  8. Перед тем, как создать топик, я погуглил Совет аналогичный Вашему встречается часто... Я убираю эту галочку но проэкт стартует с ексепшеном так же пробовал разные комбинации этого с этим Размер ехе растет, но не запускается - всегда аксес виолейшен Я лично не использую, но я использую компонент, который является оберткой для hidapi.dll - это длл для работы с HID USB мультиплатформенная... Вот за внутренности этой обертки я ручаться не могу...
  9. Здравсвтуйте Приложение на FMX под win32, win64 требует наличие таких библиотек fmx250.bpl FMXTee9250.bpl IndyCore250.bpl IndySystem250.bpl rtl250.bpl borlndmm.dll Можно скомпилировать проэкт так, чтобы все библиотеки были прилинкованы в ЕХЕ? Чтобы не таскать за собой bpl Спасибо
  10. скопировал шрифт в корень диска С #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; все-равно не работает
  11. Вот скриншоты В проекте перед всеми инитами делаю #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 все выключены - показано на скрине - в результате ничего.... -(
  12. Токио, Билдер... не работает 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, то в списке даже не появляется и тоже не работает
  13. vasilius

    Tswitch скорость переключения

    исходник то на делфе -)
  14. vasilius

    Tswitch скорость переключения

    мда, это жесть я использую С++ нашел в сорцах TCustomSwitchObject = class(TControl) public const SwitchAnimationDuration = 0.2; TrackingSensitivity = 3; TextClipOffset = 4; Это получается еще и константа... которую не поменять?