Antonyan

Благодарю всех ответивших !

В 21.08.2015 в 08:18, krapotkin сказал:

решал эту проблему через ручное отлавливание координат между MouseDown и MouseUp
элементам внутри контейнера HitTest:=false
если скролл контейнера был - ничего не делать 
если скролла не было - определить по координатам, есть ли объект под пальцем, и запустить, что там надо запускать по клику

Добрый день !

Не поделитесь "определить по координатам, есть ли объект под пальцем, и запустить, что там надо запускать по клику" ?

Добрый день !

Можно ли к TRestClient прикрутить Open SSL ? Либо альтернативные варианты ?

Добрый день !

Есть Listbox состоящий из ListBoxItem, которые содержат стили из множества объектов. По событию onTap на Listbox определяем по координатам Item. Как определить именно тот объект стиля этого Item(а), что оказался под пальцем ?

Заранее благодарю.

Доброго времени суток !

Вопрос #1

Как назначить обработчик событий OnTap, OnGesture элементу стиля ? Либо, как еще отловить событие нажатие на элемент стиля, не путая скроллинг и tap?

Подозреваю, что подобный подход не приемлем :

ListBoxItem.StylesData['Rectangle.OnTap'] := TValue.From<TNotifyEvent>(..Myprocedure_OnTap...)

ListBoxItem.StylesData['Rectangle.OnGesture'] := TValue.From<TNotifyEvent>(..Myprocedure_OnGesture...)
Потому как, TNotifyEvent = procedure(Sender:TObject) of object;

Вопрос #2.

Насколько известно, android не различает скроллинг и tap. А как с этим в IOS ?

Заранее благодарю

Спасибо всем. Проблема устранена. Скачал кривоватый билд FB. Тему можно закрывать.

Firebird 2.5.7

   Try
     FDConnection1.Params.Database:=Pchar(Extractfilepath(paramstr(0))+'TEST.FDB');
     FDConnection1.Connected:=true;
   except

      Showmessage('Error');

      Exit;

   end;

      If  FDConnection1.Connected then

           Temp.Open('Select Field1 from TableName')   - вот здесь возникает непостоянная ошибка, о чем и писал выше

      else Showmessage('No Connected');

Благодарю всех откликнувшихся

Благодарю.

Тут ошибка не платформы и не FireDac (поэтому версия XE скорее всего не при чем), тут чисто ошибка Firebird. Вопрос именно к знатокам InterBase и Firebird.

Добрый день, коллеги !

Заранее извиняюсь, если разместил вопрос не в той ветке - в таком, случае прошу перенести в соответствующую (не нашел).

Вопрос следующий.

Использую XE7 и FireBird 2.5.7.

Иногда возникает ошибка [FireDAC][Phys][FB]Error reading data from the connection при запросе Select.

Подскажите пожалуйста, как победить и почему она возникает ?

Поясните пожалуйста

Добрый день !

Как передать фокус элементу стиля, например, Edit ?

И еще один вопрос :

Как программно передать фокус элементу Edit ?

Спасибо огромное !

Добрый вечер !

Создал стиль для итемов Listbox. Одними из элементов стиля являются Edit и Button.

И если событие Button.OnClick работает без проблем,то с Edit.OnKeyDown не получается.

Как это поправить ?

Var
aItem: TListboxItem;
  aItem.StylesData['Button.OnClick'] := TValue.From<TNotifyEvent>(ButtonClick); - работает
  aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TNotifyEvent>(EditKeyDown(Self,key,KeyChar,Shift)) - не работает

Если речь идет о таблицах Visual Dbase7 - указанные выше методы не помогут, рекомендую бесплатный компонент TDBF.

 

Сам же нашел ответ. В мануале меленько-меленько написано

Вот здесь: http://docwiki.embarcadero.com/Libraries/XE5/en/Talk:FMX.ListView.TListViewItem.Accessory

 

Question/Discuss: Is it possible to create a TListViewItem without an Accessory icon? There is no TAccessoryType.None, and no writeable HasAccessoryItem property. Setting TListView.ItemAppearanceObjects.ItemObjects.Accessory.Visible to False hides all Accessory icons for the entire ListView, but it may not be possible to have some items in the list display an Accessory icon, while other items do not.

 

Как вариант, можно просто скрыть его

Procedure XXX;

Var

     LItem : TListViewItem;

begin

          LItem := YourListView.Items.Add;

          LItem.Objects.AccessoryObject.Visible:=false;

end;

Проблему устранил. Помогло Edit.ApplyStyleLookup.

У EditButton выставил ClipChildren и ClipParent в true, странно, глюк пока не проявляется. Буду тестить дальше...

Добрый день,

 

Прикрепите проект.

В проекте около 10 тыс строк, думаю, утомительно будет в нем копаться. Буду благодарен за направление, в какую сторону размышлять

Добрый день !

Кидаю на форму Edit, создаю в нем EditButton. Запускаю. Периодически (или эпизодически, плавающий глюк) EditButton почему то меняет позицию и мигрирует за пределы Edit.

В чем может быть дело ?

1. Поробуйте поменять местами строки в Длл

frxDBDataset1.UserName:='Rekv';

frxDBDataset1.DataSet:=Temp;

2. Как вариант вызвать Designer в Длл и просмотреть в нем какие там получились Датасеты и поля (но это смотря какая версия фастрепорта)

По п.1 - попробую, но маловероятно что поможет, а вот п.2 - интересный вариант, спасибо

Ну забейте на ошибку))) try except  и тд)))

 

PS возможен глюк FR. На днях пытался выяснить почему в FR RMX не работает межстрочный интервал в memo. И что вы думаете? Ответили, что мол он еще не реализован!!!!!! Я просто охренели от ответа)))) Причем параметр есть (межстрочного интервала), а при смене его вообще ничего не происходит! И вдобавок ответили, что в новой версии (якобы через пару дней) добавят. Я считаю, что это глюк чистой воды, но они не признаются))

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

Выводит ошибку, но все таки вставляет в мемо все правильно?

Именно ))

Немного понятно стало. Я не силен в вызовах из dll. Ошибка ссылается на memo, оно где?

Memo - так звучит в сообщении об ошибке. В самом отчете данные из БД выводятся в TFrxMemoView, связанный с набором данных через frxDBDataset1. Вот и любопытно, почему один и тот же код в Application.VCL работает отлично, а в DLL отрабатывает, но выводит указанную ошибку.