FIL

Первое, что пришло на ум: procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); begin if ssLeft in Shift then if X > Memo1.Width then Memo1.HScrollBar.Value := Memo1.HScrollBar.Value + 10; end; Вроде даже работает)

Ну это как посмотреть. Я вот например удивился) Если контрол не нативный, это же не повод сделать его наполовину.

Заметил, что в FM-приложениях на реальном устройстве отсутствует стандартная подзвучка нажатия кнопок и т.п. действий (которая есть во всех прочих приложениях на Андроиде). Это так и задумано или я что-то делаю не так?

Выяснил что если из ХЕ8 взять файлы: Datasnap.DSClientRest.pas Datasnap.DSHTTPClient.pas Datasnap.DSProxyRest.pas Datasnap.DSClientMetadata.pas , то клиет работает корректно. Но найти в них косяк весьма проблемотично, т.к. изменения в Seattle относительно ХЕ8 слишком кардинальные. А разработчикам, похоже, это не особо интересно.

Вопрос актуален...

Всем привет! Решил тут немного поближе познакомиться с технологией DataSnap. Добрался до функций обратного вызова. Нашел хороший пример на данную тему: CallbackChannels После некоторых доработок проект скомпилировался на Delphi 10 Seattle. Клиент на базе TSQLConnection заработал как и ожидалось, а вот с клиентом на базе TDSRestConnection возникли проблемы: Ф-ция обратного вызова регистрируется на сервере и сервер тут же закрывает канал (при этом в обработчике события OnChannelStateChange параметр EventItem.EventType = rChannelClosedByServer). Соответственно дальше ничего не работает. При этом на сервере в момент регистрации отображается создаваемый канал и какой-то фантомный (см. рис.). Долго и безуспешно пытался понять в чем проблема и в итоге решил скомпилировать клиента (RESTClientChannels) на ХЕ8. И... о чудо! - он заработал. Соответственно вопрос: что разработчики сделали такого с TDSRestConnection и иже с ним в Seattle, что ф-ции обратного вызова перестали работать и как это исправить?

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

У меня ничего не вылетает. Проверял на андроидэмуляторе.

В каком смысле "не работает правильно"?

3.

Пример отрисовки текста, в том числе и с разноцветными буквами: Как вывести (отрисовать) текст по произвольной дуге

Ну если одна строка кода - это нагромождение, то ищи какие-нибудь стандартные методы (или жди когда это кто-нибудь сделает за тебя).

Данные методы передают фокус. Если надо активировать ввод (редактор ячейки), то можно воспользоваться для этого методом TColumn.ShowEditor.

StringGrid.SelectCell() StringGrid.SelectColumn() StringGrid.SelectRow() StringGrid.Selected

В конструкторе и деструкторе ерунда понаписана.

Тогда можно использовать: - ini-файл; - типизированный файл; - писать каждый папаметр с новой строки (TStringList и т.п.); - TFileStream (на худой конец)

Один из вариантов: with TStringStream.Create do try LoadFromFile('d:\11.txt'); Edit1.Text := DataString; finally Free; end;

И это все просто чтобы считать/записать строку?

Одно выглядит странным: метод CreateBitmap объекта BitmapItem создает битмап в никуда лишь для того, чтобы программист потом вручную запихивал этот битмап обратно в BitmapItem) Да и св-во TransparentColor, которое учитывается лишь в одном методе, а в остальных случаях его изменение ничего не дает и лишь сбивает с толку... Может просто в CreateBitmap еще один параметр добавить?

Delphi Product Editions

Да, этот вариант отлично работает. Ни со стилями заморачиваться не надо, ни доп. ресайзы делать)

Поясню немного: 1. Заходим в редактор стиля SpeedButton. 2. Сохраняем стиль. 3. В текстовом редакторе удаляем строку FixedHeight = ... и сохраняемся. 4. В редакторе стилей загружаем стиль обратно. 5. Готово) Upd: чуть самое главное не забыл) Чтобы это все заработало в ФМ, надо подшлифовать напильником: procedure TForm1.SpeedButton1ApplyStyleLookup(Sender: TObject); begin {$IFDEF ANDROID} SpeedButton1.RecalcSize; {$ENDIF} end;

Интересует вопрос, возможно ли программно добраться до свойств стиля FixedHeight и FixedWidth, чтобы не надо было создавать свой дополнительный стиль?

Так я же уже написал, что в андроидовском стиле SpeedButton имеет фиксированную высоту, которая не меняется. Это можно обойти добавив свой стиль для SpeedButton.

Что-то не пойму о чем вообще речь... В Win привязки SpeedButton работают как надо. В Андроиде высота SpeedButton не меняется по умолчанию.