Лидеры

Посмотрите: [Android] Не получается увеличить высоту TProgressBar Но имейте в виду, что стиль свитча растровый, и вам не удастся увеличить его размер без потери качества без создания нового стиля.

Как убрать клавиатуру вызванную фокусом TEdit?

На свежую голову сам разобрался, все просто, для некоторых полей ширина по коду получается == 0, присвоение нуля Columns->Width и дает такую картинку.

если честно, не хочется подсказывать как не надо делать лучше подсказывать, куда смотреть для решения задач хранения структурированных данных например для ini файла можно вот или воспользоваться https://github.com/onryldz/x-superobject там все понятно на примерах и очень удобно

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); //----------------------------------------------------------------------------- var Keyboard : IFMXVirtualKeyboardService; begin if Key = vkReturn then begin if TPlatformServices.Current.SupportsPlatformService( IFMXVirtualKeyboardService, IInterface( Keyboard ) ) then if TVirtualKeyboardState.Visible in Keyboard.GetVirtualKeyBoardState then begin Keyboard.HideVirtualKeyboard; Key := 0; Exit; end{if}; end{procedure TForm1.FormKeyUp};

Спасибо Ярослав

В RX нужно изменить создание презентации. Я обновил свою статью недели две назад по этому поводу: Новый подход разработки компонентов FireMonkey “Контрол – Модель – Презентация”. Часть 2. TEdit с автозавершением. В новой версии можно полностью убрать класс прокси TStyledAutocompleteEditProxy и регистрировать презентацию так: TPresentationProxyFactory.Current.Register('Edit-style', TStyledPresentationProxy<TStyledAutoCompleteEdit>); Или просто заменить код: { TStyledAutocompleteEditProxy } function TStyledAutocompleteEditProxy.CreateReceiver: TObject; begin Result := TStyledAutocompleteEdit.Create(nil); end; на { TStyledAutocompleteEditProxy } function TStyledAutocompleteEditProxy.CreateReceiver: TObject; begin Result := TStyledAutocompleteEdit.Create(nil, Model, PresentedControl); end;

Добрый день, Забыли про StyledSettings. Итого весь код по поиску SearchBox и изменении цвета текста: function FindSearchBox(const ARootControl: TControl): TSearchBox; var Child: TControl; begin Result := nil; for Child in ARootControl.Controls do if Child is TSearchBox then Exit(TSearchBox(Child)); end; procedure TForm15.Button1Click(Sender: TObject); var SearchBox: TSearchBox; begin SearchBox := FindSearchBox(ListView1); if SearchBox <> nil then begin SearchBox.TextSettings.FontColor := TAlphaColorRec.Red; SearchBox.StyledSettings := SearchBox.StyledSettings - [TStyledSetting.FontColor]; end; end;

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

Добрый день, Два варианта: Как я могу скрыть / показать клавиатуру под "Android"? Сбросить фокус Edit.ResetFocus

Русский За управление виртуальной клавиатурой в FireMonkey отвечает сервис IFMXVirtualKeyboardService (Embarcadero Doc Wiki). Который позволяет отображать и скрывать клавиатуру. Для скрытия клавиатуры достаточно выполнить следующий код: uses FMX.Platform, FMX.VirtualKeyboard; procedure TForm5.ButtonHideKeybordClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Запрашиваем сервис виртуальной клавиатуры if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.HideVirtualKeyboard; end; Чтобы показать клавиатуру для контрола: procedure TForm5.ButtonShowKeyboardClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Запрашиваем сервис виртуальной клавиатуры if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.ShowVirtualKeyboard(Edit1); end; English FireMonkey has special service for managing Virtual Keyboard. It is IFMXVirtualKeyboardService (Embarcadero Doc Wiki). It allows show and hide keyboard. For showing virtual keyboard use next code: uses FMX.Platform, FMX.VirtualKeyboard; procedure TForm5.ButtonHideKeybordClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Request service of visrtual keyboard if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.HideVirtualKeyboard; end; For showing virtual keyboard for control: procedure TForm5.ButtonShowKeyboardClick(Sender: TObject); var KeyboardService: IFMXVirtualKeyboardService; begin // Request service of visrtual keyboard if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(KeyboardService)) then KeyboardService.ShowVirtualKeyboard(Edit1); end;