zairkz

Может Ярослав подключится на досуге, всем надо бы такую штуку)

Как TstyleObject "научить" правильно растягивать мою картинку? Картинка устанавливается в SourceLink, выбирается её координаты там ....и что дальше? Сохраните ваш стиль, откройте блокнотом найдите нужный вам итем стиля, добавьте отступы например: SourceLink = < item CapInsets.Left = 8.000000000000000000 CapInsets.Top = 8.000000000000000000 CapInsets.Right = 8.000000000000000000 CapInsets.Bottom = 8.000000000000000000 SourceRect.Left = 208.000000000000000000 SourceRect.Top = 249.000000000000000000 SourceRect.Right = 248.000000000000000000 SourceRect.Bottom = 293.000000000000000000 end после чего у вас дизайнере появиться дополнительная область выделения, по ней и настраивайте область для растягивания

CurrentTime обнуляете? Например: MediaPlayer1.CurrentTime := 0; MediaPlayer1.Play; И еще для информации, mp3 на iOS не проигрываются вроде как. Сорян.. mp3 отлично проигрывается) а вот AAC как раз таки нет, странно... фаза луны совсем не та походу)

Елена прекрасная Вы ведь наверняка в курсе планируется ли выпуск версии для формирования отчетов и тд на Android и iOS. Заранее спасибо!

Мне интересно "услышать" ваше пояснение.

AquaGraphite стиль для VCL, в нем нету Scale'ов, Ani индикаторов, и т.д. если нужен VCL стиль для Десктопных приложений, тогда не стоит проверять на FireMonkey.

Терпение... Zuby пишет компонент на основе TListView, как раз, то что тебе надо Вертикальный скролбокс и внутри горизонтальные ListView, наверное завтра выложит

С новым годом!!!! Всем терпения и успехов!!!

возможно вы путаете с ListBox? у ListView нельзя регулировать высоту отдельного Itema кто вам такую неправду поведал? киньте в него камень в OnUpdateObjects делаем AItem.Height:= random(150); Гребанный ListView!! Как сказал один мудрый человек, жизнь никогда не будет прежней! Спасибо!

TScrollBox.ContentHeight использовать надо бы

Грёбанные марсиане

Попробуйте установить BugFix This PAServer Hotfix provides fixes for: • building OS X 10.11 (El Capitan) applications with Delphi, C++Builder and RAD Studio 10 Seattle • building iOS applications that run on iOS 7, iOS 8 and iOS 9 using the iOS 9 SDK with Delphi, C++Builder and RAD Studio 10 Seattle http://www.fmxexpress.com/upgrade-support-for-ios7-ios8-ios9-and-osx-el-capitan-with-this-hotfix-in-delphi-10-seattle/ http://cc.embarcadero.com/Item/30398

Вроде прекрасно все отлавливает procedure TForm_Main.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key = vkHardwareBack then ShowMessage('Назад') else if Key = vkMenu then ShowMessage('Меню'); end; А вот "Открытые приложения" наврятли получиться отловить

Как понять открыть определенную папку? указываешь путь к папке и получаешь список файлов, дальше загружаешь его куда нить в UI а на счёт хранения, смотря какого размера файлы и их кол-во

Это Казахстан детка!!

О! значит я в 0.01%

Вот так вот прекрасно работает все: procedure TForm_Main.Button1Click(Sender: TObject); // uses System.JSON; var JSText: string; JSvalue: TJsonValue; JSarray: TJSONArray; JSobject: TJSONObject; I: integer; begin try JSvalue := TJSONObject.ParseJSONValue(JSText); if Assigned(JSvalue) then begin JSarray := JSvalue as TJSONArray; for I := 0 to JSarray.Count - 1 do begin JSobject := JSarray.Items as TJSONObject; ShowMessage(JSobject.GetValue('title').Value); end; end; finally Freeandnil(JSvalue); end; end;

Решено Zuby и Cody71727172 , может кому пригодиться: Вообщем кнопочка MyLocation на MapView цепляет данные c LOCATION_SERVICE (Androidapi.JNI.Location) и если отсутствует GPS датчик в телефоне, тогда: Прописываем функцию: function CheckGPSActive: Boolean; // uses Androidapi.JNIBridge, Androidapi.JNI.Location, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers {$IFDEF ANDROID} var LocManagerObj: JObject; LocationManager: JLocationManager; allProviders: JList; I: Integer; begin Result := false; LocManagerObj := SharedActivityContext.getSystemService (TJContext.JavaClass.LOCATION_SERVICE); // запрашиваем сервис Location if Assigned(LocManagerObj) then begin LocationManager := TJLocationManager.Wrap((LocManagerObj as ILocalObject).GetObjectID); // получаем LocationManager if Assigned(LocationManager) then begin allProviders := LocationManager.getProviders(true); // запрашиваем список всех провайдеров if Assigned(allProviders) then with TStringList.Create do begin for I := 0 to allProviders.size - 1 do Add(JStringToString(allProviders.get(I).ToString)); if ((IndexOf('gps') >= 0) or (IndexOf('network') >= 0) or (IndexOf('passive') >= 0)) then Result := true; Free; end; end; end; {$ELSE} begin Result := false; {$ENDIF} end; и при запуске LocationSensor например на Form.Create проверяем procedure TForm_main.FormCreate(Sender: TObject); begin {$IFDEF ANDROID} LocationSensor.Active:=true; if not LocationSensor.Active then if not CheckGPSActive then ShowMessage('Включите GPS для определения Вашего местоположения!') else LocationSensor.Active := true; {$ENDIF} end; LocationSensor сам подключит источник данных, поэтому изменять в LSensor1LocationChanged ничего не нужно, например: procedure TForm_Main.LSensor1LocationChanged(Sender: TObject; const [Ref] OldLocation, NewLocation: TLocationCoord2D); //uses Maps.Engine var MapsEngine: TMapsEngine; MapsLoc: TMapCoordinate; MapsData: TMapsEngineGeoData; begin MapsLoc := TMapCoordinate.Create(NewLocation.Latitude, NewLocation.Longitude); MapsEngine.SetOptionsYandex(''); MapsEngine.Geocoding(NewLocation, MapsData); Edit1.text:= MapsData.FormattedAddress; end;

Всем здоровья, вообщем ситуация следующая имеется телефон без GPS датчика, но нужны координаты. Подскажите как можно их вытащить Например при отображении MapView на ней кнопочка MyLocation которая даже без датчика достаточно точно показывает местоположения. Вообщем как вытащить эти координаты UserLocation не отображая карту (может в системных данных где то)? Или как программно нажать MyLocation, чтобы после центрирования карты получить координаты MapView.Position? Реверс Геокодинг по вайфай или мобильным данным (ip-адрес) совсем не то.

Здесь тоже глянь, классно вышло у Евгения Корепова

Делаю так: После implementation uses Общие библиотеки {$IFDEF ANDROID} , андройд библиотеки {$ENDIF} {$IFDEF IOS} , iOS библиотеки {$ENDIF} ; Например: uses System.Threading, IdMultipartFormData, System.Json {$IFDEF ANDROID}, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os, Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers {$ENDIF} {$IFDEF IOS}, iOSapi.UIKit, iOSapi.Foundation, Macapi.Helpers {$ENDIF} ; Если только андройд библиотеки нужны так пропишите после implementation {$IFDEF ANDROID} uses Androidapi.JNI.Media, Androidapi.Helpers; {$ENDIF}

С ZuBy приедем с Астаны в Алмату, мы будем 2 октября , также предлагаю обмыть встречу в Алмате, кто за и кто будет? Будем пить и не мало, надеюсь Ярослав выпьет со своими форумчанами

with TStringStream.Create do try LoadFromFile('d:\11.txt', TEncoding.UTF8); Edit1.Text := DataString; finally Free; end; всё что нужно было

http://www.fmxexpress.com/video-streaming-using-motion-jpeg-with-delphi-xe5-firemonkey-on-windows-and-ios/ Может поможет

Да, исправили!)