Перейти к содержанию
  • Регистрация

Активность

Лента обновляется автоматически     

  1. Последний час
  2. А там немного гемор. ) Рекомендую, разобрать код класса TCheckCell (FMX.Grid.Style). как отправную точку.
  3. Для начала реализуем наследника TComboBox (для переопределения методов GetData, SetData): implementation type TComboBoxCell = class(TComboBox) private FOldValue: TValue; FInSetData: boolean; protected constructor Create(AOwner: TComponent); override; function GetData: TValue; override; procedure SetData(const Value: TValue); override; end; { TComboBoxCell } constructor TComboBoxCell.Create(AOwner: TComponent); begin inherited; FInSetData := false; end; function TComboBoxCell.GetData: TValue; begin If ItemIndex = -1 then result := FOldValue else result := Items[ItemIndex]; end; procedure TComboBoxCell.SetData(const Value: TValue); var S: string; LIndex: integer; begin if not FInSetData then try FInSetData := True; FOldValue := Value; if FOldValue.IsEmpty then ItemIndex := -1 else if FOldValue.TryAsType<string>(S) then begin LIndex := Items.IndexOf(Value.ToString); if LIndex >= 0 then ItemIndex := LIndex; end else inherited; finally FInSetData := False; end; end; После чего опишем действие на событие TGrid.OnCreateCustomEditor: procedure TForm.FMXGridCreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); var tmpCombo: TCombobox; begin //Вызываем кастомный редактор для конкретного столбца if Column.Header.Equals('CategoryName') then begin tmpCombo := TComboBoxCell.Create(nil); tmpCombo.OnChange := DoOnChangeCustomEditor; tmpCombo.TagObject := Column; tmpCombo.Items.Add('Item1'); tmpCombo.Items.Add('Item2'); tmpCombo.Items.Add('Item3'); Control := tmpCombo; end; end; И последнее, опишем событие OnChange нашего редактора: procedure TForm.DoOnChangeCustomEditor(Sender: TObject); var Column: TColumn; begin Column := TColumn(TCombobox(Sender).TagObject); TCombobox(Sender).Data := TCombobox(Sender).Selected.Text; Column.EditorModified; end;
  4. Сегодня
  5. Привет мастера! Ищу компонент для чтения штрихкодов средствами Дельфи без скачивания других сторонних программ с Маркета. есть ли такой? Если да, поделитесь ссылкой или статьей по реализации нужного мне функционала. Большое спасибо! Прошерстил форум, всюду предлагают скачать barCode.apk, для интеграции с прогой ZXing но мне бы хотелось все сделать в своей программе если это возможно..
  6. Вчера
  7. Все решил самостоятельно. Как оказалось забыл прописать в private ClipService: IFMXClipboardService; и еще в FormCreate if not TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(ClipService)) then ClipService:=nil; Теперь все копирует как надо. Может пригодиться кому мой опыт.. )))
  8. Странно но на событии StringGrid1CellClick выполнение такого кода: if StringGrid1.Cells[1,StringGrid1.Row]<>'' then ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Row]); вешает прогу,а при повторно клике на гриде происходит вылет.. ((
  9. Вибра пашет,копирование данных нет )) procedure Vibra; Var Vibrator:JVibrator; begin Vibrator:=TJVibrator.Wrap((TAndroidHelper.Context.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE) as ILocalObject).GetObjectID); Vibrator.vibrate(100); end;
  10. Привет мастера! Хочу скопировать по длинному тапу данные ячейки StringGrid, на StringGrid1Gesture повесил такой код: if EventInfo.GestureID = System.UITypes.igiLongTap then begin ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Selected]); Vibra; ShowMessage('Данные скопированы'); end; но получаю access violation, пробовал так еще: ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Row]); но та же ошибка,хотя данные в ячейке есть. В чем трабла, кто подскажет? если закоментить строку ClipService сообщение про копирование данных есть, но данных в буфере нет ))
  11. <оффтоп> Я конечно дико извиняюсь, но это же просто АГОНЬ!!! решение! Большое спасибо, я лично не знал о таком способе! </оффтоп>
  12. Замучил меня FDQuery. Переделал на FDScript и прописал кодировку - все нормально. Спасибо за ответы
  13. Короче, действуем примерно так. Я надеюсь, что базовые действия - скачать google latest adb driver - мы уже провели, но наш No- или Brand- name телефон недоступен Тогда 1) идем в диспетчер устройств, находим там наше невстающее устройство, кликаем дважды, и на закладке Сведения выбираем свойство ИД оборудования. Копируем себе что-то типа 2) идем к файлам того самого драйвера, открываем android_winusb.inf находим разделы [Google.NTx86] и [Google.NTamd64] и вписываем туда, прямо в оба ;galaxy tab a 2019 %SingleAdbInterface% = USB_Install, USB\VID_04E8&PID_6866 %CompositeAdbInterface% = USB_Install, USB\VID_04E8&PID_6866&MI_01 3) делаем обновить драйвер, выбираем вариант Вручную, и указываем тот модифицированный файл если не берет автоматом, то "Выбрать из списка уже установленных..." --> "Есть диск" --> "Да, мне пофиг что он не подписан" 4) The End
  14. заставлять надо TFDConnection, смотри charset* настройки конекшена
  15. Без результатов Пробовал тупо так dm->qProc->SQL->SaveToFile("1.sql",TEncoding::UTF8); dm->qProc->SQL->LoadFromFile("1.sql", TEncoding::UTF8); dm->qProc->ExecSQL(); Файл сохраняется в UTF8, но в я так понимаю что TFDQuery переконвертирует скорее всего в АНСИ. Можно как-то заставить работать TFDQuery на юникоде ?
  16. Всем привет! Ребят вопрос есть такой, в общем в моем приложении именно телефоны huawei стабильно ловят ошибку и не выполняют код, соответственно творится бесовщина. Я тестирую на самсунге, и из 20-30 компиляций(не запусков приложения, а именно сборок)-один раз такое может произойти на самсунге... подловить под отладчиком на самсунге не вышло потому как сбой на нем происходит крайне редко...Принял решение подключить под отладчиком Huawei, взял мобилу у знакомого P9 Lite, не ставятся драйвера... хоть убей... кто нибудь вообще собирал приложения на HUawei? Сам телефон коннектится, определяется, но в студии его нет и в диспетчере устройство HUAWEI с восклицательным знаком. Качал дрова для него, пытался обновить драйвер, не может найти подходящий драйвер...
  17. Последняя неделя
  18. Добрый день! пишу приложение на rio 10.3 community edition под иос и андроид. помимо прочего хочу из него дать возможность пользователям постить некие Новости в свой Ленту в популярных соц сетях, в первую очередь на фейсбуке. нет ли для этого готовых компонент в каких-нить расширенных библиотеках ? или буду признателен за совет как это можно сделать «на коленках» спасибо!
  19. Попробуйте так title = dm->qExpContent->FieldByName("title")->AsWideString; introtext = dm->qExpContent->FieldByName("introtext")->AsWideString; fulltext = dm->qExpContent->FieldByName("fulltext")->AsWideString;
  20. Решение: загрузить в XCode файлы поддержки для нужной версии. Ссылка на скачивание нужных файлов для нужной версии в последнем комментарии: Источник
  21. ...потом новую платформу надо удалить и снова добавить уже через IDE обычным способом... тогда все будет корректно...
  22. Помогите разобраться к кодировками Есть проект на C++Builder 10.3 использую VCL но думаю что для FMX будет та же проблема Использую Firedac Есть две базы - SQLite - UTF8 и MYSQL - UTF8. Надо експортировать таблицу из SQLite в MYSQL В базе SQLite все нормально видно, Девекспресовский грид нормально показывает данные Формирую скрипт в TFDQuery - qProc dm->qExpContent->Open(); dm->qProc->SQL->Clear(); UTF8String title,introtext,fulltext; do { title = dm->qExpContent->FieldByName("title")->AsString; introtext = dm->qExpContent->FieldByName("introtext")->AsString; fulltext = dm->qExpContent->FieldByName("fulltext")->AsString; dm->qProc->SQL->Add("insert ignore into " _content(...alias,introtext,'fulltext'... values('" + "','" + title + "','" +introtext + "','" +fulltext..."');"); dm->qExpContent->Next(); } while (!dm->qExpContent->Eof); dm->qProc->ExecSQL(); И в результате в MYSQL вижу крякозябры. Игрался с типом строковых переменных, тупо создавал файл в UTF8 и делал загрузку в qProc результат тот же Как правильно синхронизировать таблицы? и победить кодировки Заранее всем спасибо
  23. Приложение для получения информации расчётным путём об углах: - вертикальной плоскости; - в горизонтальной плоскости; - объёмный; - эквивалентный в шарнирах карданных валов на основе сделанных замеров на собранном автобусе, троллейбусе, грузовике. Может пригодиться работникам сервисных служб, лицам эксплуатирующим грузовую или пассажирскую автомобильные техники, лицам неконструкторских служб. Особенно в случае нахождения в месте недоступном к интернету и компьютеру. Работает на устройствах под OS Android. Существует и более расширеная версия для OS Windows. Пожалуйста, с предложениямии и пожеланиями обращайтесь к разработчику: Кирееву Олегу по тел. +375 29 676 13 84 или пишите на kireevoleg1966@gmail.com. Буду рад Вашему любому отзыву. С Уважением. UgolKardZamer_v2.rar
  24. Здравствуйте. При деплои на телефон появляться это окно. Все профайлы настроены XCode видит приложение. Приложение появляться на телефоне и работает нормально. Как избавиться от этого окна, может кто сталкивался? RAD 10.3.3 Спасибо.
  1. Загрузить ещё активность
×
×
  • Создать...