Alex7wrt

dist линейно зависит от fR, fR зависит от fNu и fRho, которые зависят от e2, e2 определяется разницей экваториального и полярного радиуса. Следовательно, dist также отпределяется разницей между экваториальным и полярным радиусами. Почему Вы решили, что здесь также считается по сфере?

Почему Вы так решили? Параметр e2 как раз и отвечает за отличие между полярным и экваториальным радиусами Земли.

Там же на PHP, вроде популярный язык сейчас. Также надо учесть, что в варианте Zuby Земля представляется сферой, поэтому в вычислении расстояния погрешность будет выше.

Если нужно решать поточнее, тогда надо представлять Землю как двухосный эллипсоид. Тогда это задача на нахождение длины дуги на поверхности эллипсоида. Решается методами вариационного исчисления. http://vasnake.blogspot.com/2006/12/blog-post_15.html

Не знаю как в IOS, но в Android TBitmap.Resize тоже иногда некорректно работает. Могу посоветовать в таких случаях использовать функцию типа function ResizeBitmap(Source: TBitmap; Width, Height: Integer):TBitmap; begin Result:=TBitmap.Create(Width,Height); Result.Clear(0); if Result.Canvas.BeginScene then try Result.Canvas.DrawBitmap(Source,RectF(0,0,Source.Width,Source.Height),RectF(0,0,Width,Height),1); finally Result.Canvas.EndScene; end; end; ....... Bitmap:=ResizeBitmap(Bitmap,newWidth,newHeight);

Спасибо! SubvisionsAxes тоже помогает.

двумерная задачка на соударение большого количество шаров Чем быстрее отрисуется сцена, тем лучше.

Мне нужно отрисовать один и тот же битмап несколько тысяч раз на канве формы. Поэтому если каждый раз при отрисовке еще происходит и масштабирование, то это не есть гуд.

Добрый день. Нужно поместить TBitmap в определенную точку на канве формы, без изменений размера. Есть ли в FMX более быстрый способ для этого нежели метод DrawBitmap, который помимо вышеперечисленного еще и масштабирует картинку. Есть сомнения в скорости этого метода даже если указать в DrawBitmap одинаковые размеры DestRect и SourceRect. Или я не прав?

Нашел ответ - TThread.ProcessorCount.

Добрый день. Интересует, есть ли в FMX универсальный способ определения количества вычислительных ядер в системе. А также интересует ситуация с многоядерными процессорам, в которых не все ядра равнозначны и не работают одновременно. Например 4 быстрых ядра и 4 экономичных. Как определить какие работают и сколько их?

Спасибо!

Добрый день. Какой аналог у FireMonkey есть для ApplicationEventsIdle у старого Delphi? Хочу, чтобы на канве постоянно обновлялась сцена как только она прорисуется и так постоянно. Пока получается только с таймером. Но он по идее является ограничением.

Добрый день. Можно ли увеличить число вершин у компонента TSphere? У стандартной сферы сильно заметны вершины сетки, хочется сделать ее более круглой. Или это возможно только созданием объекта с нуля?

Нет. Только с массой динамически создаваемых компонентов в run time. Пробовал Dispose, перед закрытием, но тогда программа может зависать в процессе обработки Close. Кстати при использовании KillMe из той ссылки или CloseAction.caFree в OnClose формы программа тоже зависает в этом месте. А есть в Android что-нибудь вроде Close MainActivity, чтобы можно было разом прервать все процессы и очистить все ресурсы приложения, чтобы от него ничего в памяти не осталось?

Пробовал. Не помогает.

Всем здравствуйте. После закрытия приложения методом Close в среде Android через некоторое время на устройстве выскакивают сообщения, что "Приложение не отвечает. Завершить?". Наблюдается в XE7 и XE8. Я так понимаю, что Close не закрывает приложение полностью или сохраняется Activity. Есть ли способ полностью завершить приложение, чтобы подобные сообщения не появлялись?

Здравствуйте. Если не касаться вопроса глюков самой XE8, то я бы посоветовал попробовать в событии OnResize формы вызывать метод ListView1.Repaint. P.S. У меня в XE8 тоже глюки, правда другого плана.

Здравствуйте. Если мне не изменяет память, выбираете в диспетчере объектов Image: TImage (дочерний к ImageButton) и в инспекторе объектов загружаете картинку в свойство BitMap

Добрый день. Andrey Yefimov в своем блоге подробно описал получение событий жизненного цикла приложения, в том числе и потерю активности. http://delphifmandroid.blogspot.com/2013/10/blog-post.html function TForm1.HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean; begin case AAppEvent of TApplicationEvent.BecameActive: Log('Became Active'); TApplicationEvent.EnteredBackground: Log('Entered Background'); TApplicationEvent.WillBecomeForeground: Log('Will Become Foreground'); end; Result := True; end; procedure TForm1.FormCreate(Sender: TObject); var aFMXApplicationEventService: iFMXApplicationEventService; begin ............ if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(aFMXApplicationEventService)) then aFMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent); ............ end;

TPath.Combine делает это автоматически Да. Я писал к первому коду. Можете попробовать tpath.GetHomePath+tpath.DirectorySeparatorChar+'TmpBitmapStream';

Здравствуйте. Если Вы такой строкой определяете путь для сохранения файла, то разве не нужно добавить наклонную черту? TPath.GetTempPath + TPath.DirectorySeparatorChar + 'TmpBitmapStream'

Спасибо! Отличный и компактный метод. Спасибо!

Пытаюсь воспользоваться методом getDefault из класса Locale, но не могу найти соответствующий TJActivity.JavaClass для этого. function GetLang: string; var Langs: JObject; Lang: JLocale; begin Langs:=SharedActivity.getSystemService(TJActivity.JavaClass.????????????); Lang:=TJLocale.Wrap((Langs as ILocalObject).GetObjectID); Result:=Jstringtostring(Lang.getDisplayLanguage(TJlocale.JavaClass.getDefault)); end; Кто-нибудь знает, какой сервис нужно использовать для языковых настроек? Пытался использовать Location_Service, но он для определения координат.

Спасибо за ответ. Может быть действительно коды стран. Просто на устройстве всего один вариант испанского, а вот португальских два - Португалии и Бразилии. И спасибо за ссылку!