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

Равиль Зарипов (ZuBy)

Модераторы
  • Постов

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

  • Посещение

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

    264

Ответы сообщества

  1. Пост Равиль Зарипов (ZuBy) - сообщение в [Android] [6.0] Не удается загрузить SSL библиотеку был отмечен как ответ   
    вот что нам говорит офф. дока
  2. Пост Равиль Зарипов (ZuBy) - сообщение в ListBox, Edit и клавиатура был отмечен как ответ   
    Пользуюсь еще вот таким модулем
     
    просто подключаем в uses и используем для Андроид
     
    vkbdhelper.zip
  3. Пост Равиль Зарипов (ZuBy) - сообщение в iOS + TVertScrollBox был отмечен как ответ   
    называется Bounce
    TScroll.AniCalculations.BoundsAnimation := false; TScroll.AniCalculations.Animation := false;
  4. Пост Равиль Зарипов (ZuBy) - сообщение в Долгое нажатие на элементе ListView был отмечен как ответ   
    жесты использовать, LongTap есть такое
  5. Пост Равиль Зарипов (ZuBy) - сообщение в Еще раз про разбор JSON - массива был отмечен как ответ   
    function JSONParse(const aJSONData: string; const aMemo: TMemo): boolean; var   aJSValue: TJSONValue;   aJSObject: TJSONObject;   aJSArray: TJSONArray;   I, J: integer; begin Result := false; aJSValue := TJSONObject.ParseJSONValue(aJSONData) as TJSONValue; if Assigned(aJSValue) then begin aJSObject := aJSValue as TJSONObject; if Assigned(aJSObject) then begin for I := 0 to aJSObject.Count - 1 do begin aMemo.Lines.Add(aJSObject.Pairs[I].JsonString.Value + '=' + aJSObject.Pairs[I].JsonValue.Value); if aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) is TJSONArray then begin aJSArray := aJSObject.GetValue(aJSObject.Pairs[I].JsonString.Value) as TJSONArray; if Assigned(aJSArray) then begin for J := 0 to aJSArray.Count - 1 do aMemo.Lines.Add(aJSArray.Items[J].Value); end; end; end; end; end; Result := true; end; JSONParse('{"desc":"Описания...","otdel":["1","12","300"],"manufacturer":"ООО \"Привет\""}', Memo1)
  6. Пост Равиль Зарипов (ZuBy) - сообщение в TListView есть ли возможность , при жесте потянуть вниз в начале списка , поймать это событие для обновления был отмечен как ответ   
    ListView1.PullToRefresh := true; включает фичу
    а событие называется
    OnPullRefresh
  7. Пост Равиль Зарипов (ZuBy) - сообщение в В Android не работает Destroy/Hide/Deactive был отмечен как ответ   
    OnClose попробуй или OnSaveState
  8. Пост Равиль Зарипов (ZuBy) - сообщение в Сделать видимые только определенные Item ы был отмечен как ответ   
    менять не видимым высоту в 0
  9. Пост Равиль Зарипов (ZuBy) - сообщение в узнать расстояние между 2 точками был отмечен как ответ   
    uses Math, FMX.Maps
    function TMapsEngine.GetDistance(const aStart, aEnd: TMapCoordinate): Real; const   Radius = 6372795;   PiDiv180 = Pi / 180; var   CosLatStart, SinLatStart, CosLatEnd, SinLatEnd, Delta, CosDelta, SinDelta, X, Y: Real; begin   try     CosLatStart := Cos(aStart.Latitude * PiDiv180);     CosLatEnd := Cos(aEnd.Latitude * PiDiv180);     SinLatStart := Sin(aStart.Latitude * PiDiv180);     SinLatEnd := Sin(aEnd.Latitude * PiDiv180);     Delta := (aEnd.Longitude * PiDiv180) - (aStart.Longitude * PiDiv180);     CosDelta := Cos(Delta);     SinDelta := Sin(Delta);     Y := Sqrt(((CosLatEnd * SinDelta) * (CosLatEnd * SinDelta)) + ((CosLatStart * SinLatEnd - SinLatStart * CosLatEnd * CosDelta)       * (CosLatStart * SinLatEnd - SinLatStart * CosLatEnd * CosDelta)));     X := SinLatStart * SinLatEnd + CosLatStart * CosLatEnd * CosDelta;     Result := Round(ArcTan2(Y, X) * Radius);   except     Result := -1;   end; end; рассчитывает отрезок по прямой, не по дороге!
  10. Пост Равиль Зарипов (ZuBy) - сообщение в Покрытие объектов друг другом был отмечен как ответ   
    BringTorFont
    SendToBack
  11. Пост Равиль Зарипов (ZuBy) - сообщение в [SSL] Как получить содержимое страницы по HTTPS с помощью INDY? был отмечен как ответ   
    begin fSSL := TIdSSLIOHandlerSocketOpenSSL.Create(fHTTP); fHTTP.IOHandler := fSSL; fHTTP.AllowCookies := True; fHTTP.HandleRedirects := True; end; Указать НУЖНЫЙ тип SSL/TLS и его версию
    и если это Windows программа, то надеюсь вы не забыли библиотеки ssl положить вместе с исполнительным файлом
    ответ на запрос, проверьте id вашего приложения
  12. Пост Равиль Зарипов (ZuBy) - сообщение в В списке Target Platforms нельзя выбрать iOS Device был отмечен как ответ   
    с разными версиями XE такое не проверял. Удалите все файлы кроме .fmx, .pas, .dpr
    и снова откройте .dpr
  13. Пост Равиль Зарипов (ZuBy) - сообщение в LocationSensor.Sensor.State используется? был отмечен как ответ   
    чтобы получить статус GPS (для Android) включен или нет, нужно использовать следующий код
    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;   // запрашиваем сервис Location   LocManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.LOCATION_SERVICE);   if Assigned(LocManagerObj) then   begin     // получаем LocationManager     LocationManager := TJLocationManager.Wrap((LocManagerObj as ILocalObject).GetObjectID);     if Assigned(LocationManager) then     begin       // запрашиваем список всех провайдеров       allProviders := LocationManager.getProviders(true);       // выводим список       if Assigned(allProviders) then       begin         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)) then             Result := true;           Free;         end;       end;     end;   end; {$ELSE} begin   Result := false; {$ENDIF} end;
  14. Пост Равиль Зарипов (ZuBy) - сообщение в Можно ли добавить свой способ переключения в TSwitch? был отмечен как ответ   
    возможно ещё кому и понадобится

    switch.zip
  15. Пост Равиль Зарипов (ZuBy) - сообщение в Нельзя поменять значение "IsChecked" в TSwitch в событии OnSwitch был отмечен как ответ   
    XE8 без апдейта, полет нормальный
    switch.zip
  16. Пост Равиль Зарипов (ZuBy) - сообщение в [Android] TreeView XE8 был отмечен как ответ   
    procedure TFormFM.NavigationTreeView(aTree: TTreeView; const aData: string); var Root, Child, SubChild, Item: TTreeViewItem; StrList: TStringList; i, c: integer; Str, ParseStr: string; begin StrList := TStringList.Create; StrList.Text := aData; aTree.BeginUpdate; aTree.Clear; for i := 0 to StrList.Count - 1 do begin Str := StrList.Strings[i]; ParseStr := Parse('">', '</option>', Str); if Pos('a', ParseStr) > 0 then ParseStr := StringReplace(ParseStr, 'a', 'a', [rfReplaceAll]); Item := TTreeViewItem.Create(nil); Item.StyleLookup := 'treeviewitemstyle'; Item.Text := trim(StringReplace(ParseStr, '-', '', [rfReplaceAll])); Item.HelpKeyword := Parse('<option value="', '">', Str); Item.ClipChildren := false; if Pos('-', ParseStr) = 0 then begin aTree.AddObject(Item); Root := Item; end else if ParseStr.StartsWith('-- ') then begin Root.AddObject(Item); Child := Item; end else if ParseStr.StartsWith('---- ') then begin Child.AddObject(Item); SubChild := Item; end else if ParseStr.StartsWith('------ ') then begin SubChild.AddObject(Item); end; end; aTree.EndUpdate; aTree.RealignContent; FreeAndNil(StrList); end; вот решение если кто столкнется с таким же багом
    спасибо Ярославу!
  17. Пост Равиль Зарипов (ZuBy) - сообщение в [Android] Что использовать для SSL в Indy под Android? был отмечен как ответ   
    а кто говорит что они без них работают? я говорю что они подтягивают из системы либы сами, т.к. у меня 4 приложения работают с ssl и я не разу не заботился о наличии этих либ
  18. Пост Равиль Зарипов (ZuBy) - сообщение в Постоянное уведомление в Статус Баре был отмечен как ответ   
    пока такого функционала нет
  19. Пост Равиль Зарипов (ZuBy) - сообщение в shellexecute был отмечен как ответ   
    Там строка одна потерялась, я и не заметил!
    Сейчас найду напишу её
    Незнаю в чем проблема но та строка никак не показывается на форуме!!!

  20. Пост Равиль Зарипов (ZuBy) - сообщение в Проблема с обновлением картинки в Item'e был отмечен как ответ   
    вот решение проблемы
    StylesData['icon'] := Tvalue.From<TBitmap>(btmpPlay); StylesData['icon.visible'] := true; ItemData.Bitmap.Assign(btmpPlay); почему именно так?
    StylesData[] - отображает мгновенно изменения, но при скролинге теряется картинка
    ItemData.Bitmap - сохраняет в стиль и в будущем показывает её при скролинге
  21. Пост Равиль Зарипов (ZuBy) - сообщение в Как отловить есть ли доступ в интернет. был отмечен как ответ   
    проверить статус wi-fi сигнала, не?
    ну если нужны еще и 3g/4g статус, то думаю в интернете и такое найдеться
     
    вот еще
  22. Пост Равиль Зарипов (ZuBy) - сообщение в Перехват СМС сообщения от определенного адресата был отмечен как ответ   
    так сделано в одной из моих программ, автоматическое считывание кода подтверждения оплаты, подредактируй только его и не забудь про разрешения
     
     
×
×
  • Создать...