-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
264
Весь контент Равиль Зарипов (ZuBy)
-
TListView делает это автоматически, отрисовывает только видимые Item'ы
-
Это файл, то есть динарные данные. Но на ваш TBinaryStream материться, говорит, что не знает что это. упс, TFileStream и писать в разрешенные папки. чтобы UAC не блочил
-
Что возвращаете? Если бинарные данные пробуйте TBinaryStream если текст, то TStringStream Может и поможет
-
возможно нет проблем только на XE 10, procedure TForm22.MapView1MapClick(const Position: TMapCoordinate); begin myCoordTap.Latitude := Position.Latitude; myCoordTap.Longitude := Position.Longitude; Form1.Show; end; на кнопке, второй формы // маркер по нажатию myDescrTap := TMapMarkerDescriptor.Create(myCoordTap, Edit1.Text); myDescrTap.Icon := TBitmap.Create; myDescrTap.Icon.Assign(Form22.ImageList1.Source[1].MultiResBitmap.Bitmaps[DeviceInfo.diScale].BitmapItem.Bitmap); {$IFDEF ANDROID} myDescrTap.Appearance := TMarkerAppearance.Billboard; {$ENDIF} // myDescrTap.Snippet := myRouteInfo.DistanceAsString + ', ' + myRouteInfo.DurationAsString; myMarkerTap := Form22.MapView1.AddMarker(myDescrTap); Close;
-
пробуйте убить adb.exe и снова нажать на скан девайсов
-
делал когда-то так, может что изменилось uses {$IFDEF ANDROID}REST.Authenticator.OAuth.WebForm.FMX{$ELSE}REST.Authenticator.OAuth.WebForm.Win var WebView: Tfrm_OAuthWebForm; ... procedure TForm1.FormCreate(Sender: TObject); begin WebView := Tfrm_OAuthWebForm.Create(self); WebView.OnTitleChanged := self.OAuth2_GoogleTasks_BrowserTitleChanged; end; ... procedure TForm1.OAuth2_GoogleTasks_BrowserTitleChanged(const ATitle: string; var DoCloseWebView: boolean); begin if Pos('Success code', ATitle) > 0 then begin AuthCode := Copy(ATitle, 14, Length(ATitle)); if (AuthCode <> '') then begin Memo1.Lines.Add(AuthCode); DoCloseWebView := true; WebView.Release; end; end; end; ... WebView.ShowWithURL(LURL);
-
Как double? float в базе на каждый параметр (lat, lon)
-
Обновил TMapsEngine с выходом Delphi 10 Seattle Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан модуль TMapsEngine_Seattle_10.zip
-
я храню как есть, проблем не было
-
код или картинку в студию, о чем ты говоришь?
-
TListView нельзя на колонки разбить, это только TListBox может
-
В какой кодировке у вас файл? with TStringList.Create do LoadFromFile('c:\q.txt', TEncoding.UTF8); так грузит текст в UTF-8 кодировке
-
Darik1392, а вам не кажется что вы допустили ошибку, смотреть на свой скрин до полного просветления про вложенность компонентов знаете?
-
проверил у себя, включил/выключил, ctrl+d и все снова показывается
-
а я вам что дал? там они включаются и выбирается цвет
-
так и не понял какие линии вам нужны...
-
Tools->Options->Editing Options->Color