zairkz

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

наткнулся на тему http://fire-monkey.ru/topic/672-podderzhivaet-li-timage-9-patch/

 

Нет, базовый Timage не поддерживает 9-patch изображения. 

Однако, в FireMonkey для создания растровых стилей есть специальный объект, позволяющий вывести такое изображение: FMX.Styles.Objects.TStyleObject.

Как TstyleObject "научить" правильно растягивать мою картинку? Картинка устанавливается в SourceLink, выбирается её координаты там ....и что дальше?

Сохраните ваш стиль, откройте блокнотом найдите нужный вам итем стиля, добавьте отступы например:

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

Браво FM Team!

Спасибо! Это гениально, говорю без лишнего пафоса. Искренне.

Могу пояснить мое восхищение, если это будет кому то интересно.

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

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

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

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

 

 

да, в данном случае можно игнорировать встроенные 5 контролов и создавать свои в OnUpdateObjects

для контроля над установкой собственной высоты ListItem если правильно помню, надо еще сбросить ListView.ItemHeight в 0

возможно вы путаете с 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

Как понять открыть определенную папку?

указываешь путь к папке и получаешь список файлов, дальше загружаешь его куда нить в UI

а на счёт хранения, смотря какого размера файлы и их кол-во

Факторов не мало:

- Есть свой человек толкатель в компании? Если да то долю(откат) ему 20-30%, это мотивирует увеличить цену иначе придется работать как лох не выше пару-штук баков...на месяцы )

 

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

Думаю, что никак. Иначе бы все приложения, типа вайбера и такси, сами бы узнавали ваш номер, и не приходилось бы ничего вводить. Единственный способ это отправить смс, но вряд ли пользователю понравится такая вольность.

P.S.: хотя в гуглоконтактах было что-то типа контакта "я", но думаю, 99.99% людей его не заполняют.

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

Вот так вот прекрасно работает все:

Решено 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;

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;

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-адрес) совсем не то. 

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

Делаю так:

После 

С 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/ 

Может поможет

Интересно а они исправили Webbrowser или он по прежнему никчемный и поверх всех контролов ?

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