umkes

Project -> Options -> Application -> Orientation -> Enable custom orientation

Может спидометр барахлит?

я еще хочу добавить что ничего в Deloyment не трогал, там какие-то нюансы есть. Просто создавал БД если ее нету и юзал

Я делал так, FDMainConnection.Params.Values['Database'] := TPath.Combine(TPath.GetDocumentsPath, 'DB.s3db'); Создает в моих документах на винде, и где-то не знаю где на андроидах) Так же мб понадобится FDMainConnectionAfterConnect(Sender: TObject); begin FDMainConnection.ExecSQL('CREATE TABLE If Not Exists [TableName] (' + #13#10 + '[IdObject] INTEGER PRIMARY KEY NOT NULL,' + #13#10 + '[SomeField] INTEGER NULL' + #13#10 + ')'); end { FDMainConnectionAfterConnect }; и т.д.

bds.exe блочит экзешку. Всегда спокойно анлокером разблокировало. Но ужасно бесит такая процедура, хоть и всего 3-4 раза за день.

Я боролся 2-мя вариантами. Перегрузить студию. Анлокером разблокировать экзешку. Не очень удобно конечно, но других вариантов пока не нашел)

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};

Edit1.SetFocus не работает разве?

Решил при помощи координат. На OnMouseDown сохраняем координату Y. А в обработке igiLongTap проверку или теперешняя координата равна Y.

А нет, не получается. Я веду пальцем, заходит в обработку лонг тап, а когда отпускаю палец, заходит в ViewportPositionChange.

Большое спасибо, чет я затупил, должен был понять и с первого ответа=)

Или ListView1.Selected.Text

uses System.UITypes if (EventInfo.GestureID = igiLongTap) then begin

Да в любом виде можно представить, что в ListViewItem закинешь, то и будет.

Тоесть сравнивать значения Old[New]ViewportPosition, и если они не равны, то меняем флаг, а в обработке лонгтапа сделать проверку на флаг? Значения Old[New]ViewportPosition в конце скролла будут одинаковы, или как-то надо будет определить конец скроллинга?

Добрый день. Суть проблемы: Есть компонент ListBox, при долгом нажатии обрабатывается igiLongTap через Gesture. При медленном скролле листбокса, опять таки вызывается лонг тап. Вопрос, можно ли как-то запретить вызов лонг тапа при скролле листбокса?

https://forums.embarcadero.com/thread.jspa?messageID=673049&tstart=0 тут пишет такое MySQL is not supported on Android. http://docwiki.embarcadero.com/RADStudio/XE7/en/Databases_(FireDAC) Ты используешь TFDConnection?

Если кому не трудно, объясните почему вместо значения переменной при дебаге я вижу такое сообщение: "Error reading address 0x0: No error". Дебажу на андроиде, делфи ХЕ 8. Нормально ли это?

А нельзя отсортировать или отфильтровать DataSet?

Тоже решал эту проблему через ручное отлавливание координат. Приведу небольшой пример. Есть ComboBox который открывался, если на него поставить палец при скроле. ComboBox лежит на Layout. Layout лежит на ScrollBox. А так же имеется ToolBar вверху. Для начала у ComboBox.Enabled = False; А потом OnTap Parent компоненты, на которой лежит ComboBox был написан так. LayoutOnTap(Sender: TObject; const Point: TPointF); var PointComponent : TPointF; PixelRegion: TRectF; begin PointComponent := TPointF.Create(ComboBox.Position.X, ComboBox.Position.Y); PixelRegion := TRectF.Create(PointComponent, ComboBox.Width, ComboBox.Height); if PixelRegion.Contains(TPointF.Create(Point.X, Point.Y - ToolBar.Height + ScrollBox.ViewportPosition.Y)) then begin ComboBox.DropDown; exit; end{if}; end{LayoutOnTap}; Для Еdit: 1) Еdit.ReadOnly := True; 2) EditOnTap(Еdit.ReadOnly := False;); 3) EditOnExit(Еdit.ReadOnly := True;) Для DateEdit всё так же как с комбобоксом, только DateEdit.OpenPicker; Возможно это кому-то поможет.

procedure TForm1.InfoPanelEdit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if KeyChar = '=' then begin KeyChar := '+'; end{if}; KeyChar := #0; end{procedure TForm1.InfoPanelEdit1KeyDown};

А можно ли в TimeEdit вводить время больше чем 24 часа? Например 300 часов.

Здравствуйте! Скажите пожалуйста, есть ли возможность вывести вывести в ячейку грида текст состящий из двух строк, но чтоб строки были разных шрифтов/цветов/размеров? Ну или как правильно добавить в ячейку грида 2 стринги. На данный момент пробовал 2 варианта: 1) Выводил стрингу с переносом текста (#13#10), тут нельзя отдельно форматировать строчки. 2) Создавал свою ячейку, в неё засовывал 2 TText, тут все хорошо, но не могу сделать несколько таких ячеек( при добавлении их в стринггрид, они просто накладываются друг на друга).

Извините, уже сам разобрался. http://stackoverflow.com/questions/11433934/change-text-size-in-firemonkey-stringgrid

Собственно, не подскажите как изменить высоту хидера в стринггриде? Нужно вывести 2 строки в нем...