Равиль Зарипов (ZuBy)

не хорошо так выражаться, можно и бан получить то что у тебя 100 форм это твоя проблема то что тебе лень прописать одну строчку в создании одного типа компонентов, то думаю что там говно-код и если бы ты понял, что я предлагаю, ты бы уже давно реализовал, а не писал на форуме "остроумный" пост, в коде добавляется только одна строчка и это не ApplyFontToForm (если там не говно-код) я бы предложил еще один кардинальный вариант, но не буду

временное решение DblClick.zip

"я не хочу думать! я хочу кнопку, нажимаешь и все работает" как я вижу эту реализацию: делается отдельный модуль, в который перемещается код procedure ChangeFont(const aControl: TControl; const aFontName: string); const StyledSett = [TStyledSetting.Size, TStyledSetting.Style, TStyledSetting.FontColor]; var aTextSettings: ITextSettings; I: Integer; begin if aControl is TListView then begin (aControl as TListView).ItemAppearanceObjects.ItemObjects.Text.Font.Family := aFontName; (aControl as TListView).ItemAppearanceObjects.ItemObjects.Detail.Font.Family := aFontName; end else begin if Supports(aControl, ITextSettings, aTextSettings) then begin aTextSettings.StyledSettings := StyledSett; aTextSettings.TextSettings.Font.Family := aFontName; end; for I := 0 to aControl.ControlsCount - 1 do ChangeFont(aControl.Controls[I], aFontName); end; end; .................................................. procedure ApplyFontToForm(const aForm: TForm; const aFontName: string;); var I: Integer; begin for I := 0 to aForm.ComponentCount - 1 do begin if aForm.Components[I] is TControl then ChangeFont(aForm.Components[I] as TControl, aFontName); end; end; прописываем ChangeFont и ApplyFontToForm до implementation и в форме после создания дин. компонентов и/или в OnShow пишем ApplyFontToForm(Form30, 'Roboto'); даже незнаю как можно сделать проще

эмм.. а где должен шрифт меняться?? что вам мешает у динамически создаваемых компонентов прописать нужный шрифт? да хоть 100 форм, в чем проблема?

ну например вот так ChangeFont.zip

пару вопросов какая платформа? шрифт родной для этой платформы или "левый"?

читаем Note, ответил в пред. посте

ребята ну вы чего? http://docwiki.embarcadero.com/RADStudio/Berlin/en/Running_Your_iOS_Application_on_the_iOS_Simulator

думаю как-то так [TInsertOption::MoveCaret]

Вот патч от @Brovin Yaroslav iOSapi.CoreTelephony.pas.patch.zip

Если использовать modernLV, то удалить нужно хелпер для TListView и использовать аналогичные методы из modernLV. Хелперам стали недоступны приват секции, поэтому в Берлине не работает

Да изменении много, скопировать нужно оригинал из сорцов или использовать modernLV

Есть фикс, но я сейчас с мобилы. Позже скину

как по мне, если есть белый ip, то больше ничего не нужно выдумывать (масштабировать проект проще)

такс, давайте разберемся. для ясности 1) приложения на каких платформах будет работать? 2) будет использоваться БД? 3) всегда приложения в одной сети будет? 4) datasnap обязательно?

вот вы часто используете нативные контролы и какие? браузер и карты не считаем, они кросс опять же повторюсь, что у айос почти нет фрагментации по сравнению с андроид про какие костыли вы говорите?

даже в теории сервер на мобиле не должен быть) может кто пользуется (я нет) оф. приложение фейсбука и есть сервер. в теории: 3rd party приложения общаются не с сервером (api facebook.com), а приложением установленным в телефоне через SDK. что в реале: батарейка улетает в 0, дробление единого сервиса на несколько приложении (имхо)

т.к. фрагментация у IOS небольшая в отличии от Android можно по ошибке сказать что там приложения работают лучше. если выбрать десять девайсов на андроиде с нормальными характеристиками (процом!), то приложения будут работать +/- одинаково ну и зависит еще от используемых технологии и компонентов. из-за неправильной архитектуры приложения, создаются костыли и темы на форуме)

Ну как бы такое поведение на вин10, все правильно там работает

// uses FMX.Platform, FMX.PhoneDialer function DialerSupport: boolean; var FPhoneDialerService: IFMXPhoneDialerService; begin Result := false; if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, FPhoneDialerService) then Result := true; end;

это кроссплатформенный компонент позволяющий без гемора делать "меню" на разных платформах. достаточно выставить Mode = PlatformBehaviour и запустить на разных платформах

это версия ВК апи, поменяете если какой-то метод просит более новую версию

да, это от IE, кастомизировать нельзя его и не нужно, даже если возможно. Иначе будет недоверие пользователей к стандартному способу авторизации через OAuth

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

У меня на гите есть пример TRestLight и здесь на форуме тоже, через TRestClient, воспользуйтесь поиском