-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
264
Ответы сообщества
-
Пост Равиль Зарипов (ZuBy) - сообщение в [Android] [6.0] Не удается загрузить SSL библиотеку был отмечен как ответ
вот что нам говорит офф. дока
-
Пост Равиль Зарипов (ZuBy) - сообщение в ListBox, Edit и клавиатура был отмечен как ответ
Пользуюсь еще вот таким модулем
просто подключаем в uses и используем для Андроид
vkbdhelper.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в iOS + TVertScrollBox был отмечен как ответ
называется Bounce
TScroll.AniCalculations.BoundsAnimation := false; TScroll.AniCalculations.Animation := false; -
Пост Равиль Зарипов (ZuBy) - сообщение в Долгое нажатие на элементе ListView был отмечен как ответ
жесты использовать, LongTap есть такое
-
Пост Равиль Зарипов (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) -
Пост Равиль Зарипов (ZuBy) - сообщение в TListView есть ли возможность , при жесте потянуть вниз в начале списка , поймать это событие для обновления был отмечен как ответ
ListView1.PullToRefresh := true; включает фичу
а событие называется
OnPullRefresh -
Пост Равиль Зарипов (ZuBy) - сообщение в В Android не работает Destroy/Hide/Deactive был отмечен как ответ
OnClose попробуй или OnSaveState
-
Пост Равиль Зарипов (ZuBy) - сообщение в Сделать видимые только определенные Item ы был отмечен как ответ
менять не видимым высоту в 0
-
Пост Равиль Зарипов (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; рассчитывает отрезок по прямой, не по дороге!
-
Пост Равиль Зарипов (ZuBy) - сообщение в Покрытие объектов друг другом был отмечен как ответ
BringTorFont
SendToBack
-
Пост Равиль Зарипов (ZuBy) - сообщение в [SSL] Как получить содержимое страницы по HTTPS с помощью INDY? был отмечен как ответ
begin fSSL := TIdSSLIOHandlerSocketOpenSSL.Create(fHTTP); fHTTP.IOHandler := fSSL; fHTTP.AllowCookies := True; fHTTP.HandleRedirects := True; end; Указать НУЖНЫЙ тип SSL/TLS и его версию
и если это Windows программа, то надеюсь вы не забыли библиотеки ssl положить вместе с исполнительным файлом
ответ на запрос, проверьте id вашего приложения
-
Пост Равиль Зарипов (ZuBy) - сообщение в В списке Target Platforms нельзя выбрать iOS Device был отмечен как ответ
с разными версиями XE такое не проверял. Удалите все файлы кроме .fmx, .pas, .dpr
и снова откройте .dpr
-
Пост Равиль Зарипов (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; -
Пост Равиль Зарипов (ZuBy) - сообщение в Можно ли добавить свой способ переключения в TSwitch? был отмечен как ответ
возможно ещё кому и понадобится
switch.zip
-
Пост Равиль Зарипов (ZuBy) - сообщение в Нельзя поменять значение "IsChecked" в TSwitch в событии OnSwitch был отмечен как ответ
XE8 без апдейта, полет нормальный
switch.zip
-
Пост Равиль Зарипов (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; вот решение если кто столкнется с таким же багом
спасибо Ярославу!
-
Пост Равиль Зарипов (ZuBy) - сообщение в [Android] Что использовать для SSL в Indy под Android? был отмечен как ответ
а кто говорит что они без них работают? я говорю что они подтягивают из системы либы сами, т.к. у меня 4 приложения работают с ssl и я не разу не заботился о наличии этих либ
-
Пост Равиль Зарипов (ZuBy) - сообщение в Постоянное уведомление в Статус Баре был отмечен как ответ
пока такого функционала нет
-
Пост Равиль Зарипов (ZuBy) - сообщение в shellexecute был отмечен как ответ
Там строка одна потерялась, я и не заметил!
Сейчас найду напишу её
Незнаю в чем проблема но та строка никак не показывается на форуме!!!
-
Пост Равиль Зарипов (ZuBy) - сообщение в Проблема с обновлением картинки в Item'e был отмечен как ответ
вот решение проблемы
StylesData['icon'] := Tvalue.From<TBitmap>(btmpPlay); StylesData['icon.visible'] := true; ItemData.Bitmap.Assign(btmpPlay); почему именно так?
StylesData[] - отображает мгновенно изменения, но при скролинге теряется картинка
ItemData.Bitmap - сохраняет в стиль и в будущем показывает её при скролинге
-
Пост Равиль Зарипов (ZuBy) - сообщение в Как отловить есть ли доступ в интернет. был отмечен как ответ
проверить статус wi-fi сигнала, не?
ну если нужны еще и 3g/4g статус, то думаю в интернете и такое найдеться
вот еще
-
Пост Равиль Зарипов (ZuBy) - сообщение в Перехват СМС сообщения от определенного адресата был отмечен как ответ
так сделано в одной из моих программ, автоматическое считывание кода подтверждения оплаты, подредактируй только его и не забудь про разрешения