Перейти к содержанию
Fire Monkey от А до Я

enatechno

Пользователи
 Профиль  Обзор контента

  • Постов

    181

  • Зарегистрирован

  • Посещение

  • Победитель дней

    26

 Тип контента 

Весь контент enatechno

  1. enatechno
  2. enatechno
  3. enatechno
  4. enatechno
    Если уже второй человек не нашел его, значит лучше явно добавить значок "лупа" рядом с "облаком" или кнопку "Найти" рядом с "Новинки"
  5. enatechno
    У Вас перепутаны строки и столбцы. Нужно или так: for i := 0 to n-1 do for j := 0 to m-1 do Или же так: SG.Cells[i,j]:=inttostr(ImMas[i,j]); TStringGrid: property Cells[const ACol, ARow: Integer] TestSGDraw.zip
  6. enatechno
    1). Укажите версию среды разработки, целевую ОС. 2). Приведите Ваш код, в котором "ячейки не красятся"
  7. enatechno
    Похоже на отсутствие прав чтения /записи в Андроиде. Проверьте : Project - Options - Uses Permission - Read external storage (Write external storage) P.S. Когда задаете вопрос, указывайте версию RAD, версию Android и устройство на котором тестируете
  8. enatechno
    Думаю, для Windows предпочтительнее использовать GetDocumentsPath(), т.к.: 1). как правило, exe-файл лежит в папке находящейся в Program Files и для записи ini-файла рядом с exe понадобятся права администратора; 2). если работа ведется с разных рабочих столов, то каждый пользователь сможет иметь индивидуальные настройки, хранящиеся в ini-файле
  9. enatechno
    Либо использовать TWebBrowser, либо вызвать внешний браузер: http://fire-monkey.ru/topic/3236-открыть-ссылку/
  10. enatechno
    Пользуйтесь поиском на сайте. У TMS есть еще такой вариант TTMSFMXEdit. Но он платный
  11. enatechno
    Цитирую Виталия из этой темы: Там же есть пример реализации сплеша с прогрессбаром.
  12. enatechno
    Проверьте наличие файла if(FileExists(path)) перед LoadFromFile(path);
  13. enatechno
    Предположу, что тестируете на мобильном устройстве. В этом случае нужно работать не с событием OnClick, а с OnTap. Обсуждалось ранее.
  14. enatechno
    Если не ошибаюсь, TAndroidHelper появился в Androidapi.Helpers позже XE7. До его появления использовался такой способ открытия URL: function OpenURL(const URL: string; const DisplayError: Boolean = False): Boolean; var Intent: JIntent; begin Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(URL)))); try SharedActivity.startActivity(Intent); exit(true); except on e: Exception do begin if DisplayError then ShowMessage('Error: ' + e.Message); exit(false); end; end; end;
  15. enatechno
    Посмотрите эту тему. Там на дельфи, но думаю, общий смысл поймете.
  16. enatechno
    По умолчанию в DynamicAppearance есть только один объект - Text. Соответственно, из кода вы должны убрать все упоминания AItem.Objects.TextObject, AItem.Objects.AccessoryObject и изменить заполнение текста в ListViewItem (например так): for Item in [1..10] do ListView1.Items.Add.Data['Text1']:= Format('Regular item %d.%d', [Group, Item]); Как добавить свои объекты в LIstViewItem читайте Using the DynamicAppearance Value или смотрите видео.
  17. enatechno
    В п.3 Вы добавляете ListViewItem с Purpose := TListItemPurpose.Header. У него Objects.AccessoryObject = nil и приложение падает в TForm1.ListView1UpdateObjects. Могу предложить такою правку: procedure TForm1.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); begin if AItem.Purpose <> TListItemPurpose.Header then // проверка назначения айтема begin AItem.Objects.TextObject.Width := AItem.Objects.TextObject.Width - (5 + AItem.Objects.AccessoryObject.Width); AItem.Objects.AccessoryObject.Visible := FChecked.Contains(AItem.Index); end; end;
  18. enatechno
    StringList.IndexOf(Value.AsString)
  19. enatechno
    Я бы порекомендовал добавить на форму Memo и разбросать по своему коду комбинацию из моего примера для поиска места, где происходит задержка: LTime := Now; // действие Memo1.Lines.Add('Тут название действия: '+ IntToStr(MilliSecondOfTheMinute(Now - LTime)) + ' ms');
  20. enatechno
    Вы пишете что работаете с MySQL. Вы делаете запрос к базе находящейся в интернет?
  21. enatechno
    Вы не прилагаете тестовый пример. Сделал это за Вас. Итак. В моем примере, откомпилированном в Delphi Berlin и запущенном на Windows, 500 строк заполняются за 13-20 миллисекунд. Запустите его на Delphi XE6 и скажите Ваш результат. Если результат соизмерим с моим, то дело не в StringGrid. tstStringGrid.rar
  22. enatechno
    uses System.Threading; //.... procedure TForm1.Memo1Tap(Sender: TObject; const [Ref] Point: TPointF); begin TTask.Run(procedure begin TThread.Synchronize(nil, procedure begin ShowMessage(IntToStr(Memo1.SelStart)); end); end); end;
  23. enatechno
    Если нужно просто запустить программу, нажмите на "Подробнее", появится кнопка для запуска. инфа по цифровой подписи: Code Signing сертификаты или сертификаты разработчика. Виды, как выбрать Code signing для Open Source от Certum Code Signing в Windows, просто и недорого Где приобрести сертификат : KSoftware, Comodo, Symantec ... (ссылки есть в статьях) Как подписывать
  24. enatechno
    Как подключаете? Через LiveBindings? Если "да", то это может быть причиной торможения (тем в более в ранних версиях XE). Если заполняете "вручную", то проверьте наличие конструкций BeginUpdate, EndUpdate Grid1.BeginUpdate; try // заполнение finally Grid1.EndUpdate end; Большинство порекомендует Вам перейти на версию Berlin (в ней работа Grid значительно переработана)
  25. enatechno
    Soccerstand (результаты матчей онлайн) http://www.soccerstand.com Android
×
×
  • Создать...