zekelive

Elasticity я использую, но он отвечает за скорость возврата оттянутой области к контенту. А я имею в виду область оттягивания. Она у меня, если пальцем оттягивать на половину экрана достигает. а хотелось бы совсем немного.

Доброй ночи Ярослав, примерно так? procedure TForm1.ScrollBox4ViewportPositionChange(Sender: TObject; const OldViewportPosition, NewViewportPosition: TPointF; const ContentSizeChanged: Boolean); begin if(NewViewportPosition=ScrollBox4.ContentBounds.Height) then

Друзья, подскажите, кто сталкивался. На ScrollBox есть элементы. И хочу реализовать так, чтобы, когда пользователь пролистывал до самого конца ScrollBox, происходила дозагрузка контента. Собственно, как определить, что наступило окончание ScrollBox?

Доброй ночи товарищи! Задался таким вопросом, как изменить зону оттягивания ScrollBox. При активации этих параметров: ScrollBox1.AniCalculations.Animation := True; ScrollBox1.AniCalculations.BoundsAnimation := True; ScrollBox1.AniCalculations.TouchTracking := [ttVertical]; Появляется возможность оттягивать Scrollbox от контента. Но оттягивается очень сильно (для меня). Как можно ограничить размер оттягиваемого поля?

Все получилось, спасибо!) Кое-что изменил, и вышло вот так: var intent:Jintent; begin Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_VIEW); Intent.setDataAndType(StrToJuri(url),StringToJString('image/jpeg')); SharedActivity.startActivity(Intent); end; где URL - адрес моей картинки в интернете.

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

Доброй ночи товарищи. Столкнулся с такой заморочкой. При нажатии на ссылку (url уже введен), выскакивает сообщение с ошибкой "No activity found to handle intent". У всех нормально работает?

В Яблочко!) Спасибо)

Добрый день. Столкнулся с загвоздкой. Создаю динамически Rectangle и на нем Label. Все создается, но некоторые параметры Label невозможно изменить. А это: размер текста, цвет. Почему так? Нужно как-то по другому обращаться к созданному Label? var i,count,next:integer; name:TLabel; dt:TLabel; rev:TLabel; Rect:TRectangle; begin next:=1; for i:=1 to count do begin a:=IntToStr(next); rect:=TRectangle.Create(Form1); rect.Parent:=rectangle10; rect.Margins.Left:=15; rect.Margins.Right:=15; rect.Margins.Top:=15; rect.Size.Height:=150; rect.XRadius:=6; rect.YRadius:=6; rect.Fill.Color:=TAlphaColors.FloralWhite; rect.Stroke.Color:=TAlphaColors.FloralWhite; name:=TLabel.Create(Form1); name.Parent:=rect; name.Margins.Left:=15; name.Margins.Right:=15; name.Margins.Top:=5; name.Text:=Label12.Text; name.TextSettings.Font.Size:=2; name.FontColor:=TAlphaColors.Black;

Спасибо Алекс. Очередной раз помог! Респект)

Та же проблема, ShowMessage в старом стиле Андроида(2.3).Товарищи, кто знает, помогите? P.S. Тоже менял файл Helpers.

Ты имеешь в виду multiview? Использую этот компонет в данный момент. Но хотелось бы создать альтернативное меню, т.к. Оно куда красивее может получиться. Кастомизация)

Доброй ночи товарищи!) Имеется такое код: var targetX: single; begin targetX:=Self.ClientWidth - 200; if (panel5.Position.X=targetX) then begin FloatAnimation1.StartValue:= targetX; FloatAnimation1.StopValue:= 0; end else begin FloatAnimation1.StartValue:= 0; FloatAnimation1.StopValue:= targetX; end; FloatAnimation1.Start; end; Который отлично работает, и отодвигает позицию панели, а под панелью находится Listbox. т.е. своего рода создаю меню для приложения. Но проблема в том, что не могу адаптировать этот код для жестов. Чтобы позицию панели менялась согласно координатам положения пальца на экране. Если кто сталкивался, подскажите, как это реализовать? Спасибо.

Делаю на XE8 и проверяю на 4.2.2

Ок. Спасибо. Буду проверять локально.

Circle1.Fill.Bitmap.Bitmap.SaveToStream(MS); При такой команде, тоже ничего не происходит. Точнее можно сказать, непонятно, происходит что или нет. TThread.Synchronize(TThread.CurrentThread, procedure begin MS := TMemoryStream.Create; try Circle1.Fill.Bitmap.Bitmap.SaveToStream(MS); finally MS.Free; end; end); В данном случае получается, что мы посылаем команду в отдельном потоке? Если да, то как правильно это оформить на стороне клиента?

Никак не могу справится с задачей. Расскажу все как есть. Имеется клиентское (мобильное) приложение для Андроид. И серверная часть на ПК (VCL). Связь между ними при помощи DataSnap. Смысл в том, чтобы передать картинку из клиентской части на сервер, а затем записаться в БД. Собственно, как это выглядит: Клиент: varTemp: TBitmap; begin Temp := TBitmap.Create; Temp.Assign(Circle1.Fill.Bitmap.Bitmap); MS := TMemoryStream.Create; Temp.SaveToStream(MS); MS.Position := 0; ms.Free; Код ошибку не выдает. Но при этом, ничего не происходит. Сервер: MS := TMemoryStream.Create; MS.Position := 0; ADOQuery.SQL.Clear; ADOQuery.SQL.Text :='UPDATE Users SET Фото=:Foto WHERE Сериал=:id'; ADOQuery.Parameters.ParamByName('id').Value :='760e2c20'; ADOQuery.Parameters.ParamByName('Foto').LoadFromStream(MS, ftBlob); ADOQuery.ExecSQL; Form2.Image1.Picture.Bitmap.LoadFromStream(ms); Тут тоже тишина. Картинка в Image не грузится. Не пойму почему. Сама функция на сервере выглядит так: function TServerMethods1.foto(ms,jpeg: TMemoryStream; a,b:string): String; Вопрос: Нужно ли создавать снова объект Stream, на стороне сервера? не обнуляет ли он данные с клиента. Проверял код чисто на стороне сервера (все работает!). И загрузка и чтение. Выкладываю чистый код, на котором проверял работу на стороне сервера: Загрузка: if OpenPictureDialog1.Execute(Handle) = True then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); MyJpeg := TJpegImage.Create; MyJpeg.Assign(Image1.Picture); // MyJpeg.CompressionQuality := 90; // MyJpeg.Compress; MS := TMemoryStream.Create; MyJpeg.SaveToStream(MS); MS.Position := 0; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text :='UPDATE Users SET Фото=:Foto WHERE Сериал=:id'; ADOQuery1.Parameters.ParamByName('id').Value :='760e2c20'; ADOQuery1.Parameters.ParamByName('Foto').LoadFromStream(MS, ftBlob); ADOQuery1.ExecSQL; MS.Position := 0; Image1.Picture.Assign(MyJpeg); MS.Free; MyJpeg.Free; end; Чтение: var Ss : TStringStream; St : string; jpg: TJpegImage; begin AdoQuery2 .SQL.Text := 'select * from users where сериал=:id'; ADOQuery2.Parameters.ParamByName('id').Value :='760e2c20'; AdoQuery2.Open; st := AdoQuery2.FieldByName('Фото').AsString; Ss := TStringStream.Create(st); if Ss.Size > 0 then begin // if AdoQuery2.FieldValues['Typ'] = 1 then begin jpg := TJpegImage.Create; jpg.LoadFromStream(Ss); Image2.Picture.Assign(jpg); jpg.Free; // end; // if AdoQuery2.FieldValues[TypN] = 0 then // Image2.Picture.Bitmap.LoadFromStream(Ss) end; Ss.Free; AdoQuery2.Close; // AdoQuery2.Transaction.Commit; Если у кого был опыт работы с потоками и DataSnape, прошу отзовитесь) Спасибо.

Дружище спасибо. может что в uses не объявил, но Undeclared identifier: 'TBitmapSurface' выскакивает.

Пробовал так, ошибка та же circle1.Fill.Bitmap.Bitmap.SaveToStream(ms);

Добрый день товарищи. Вчера столкнулся с такой проблемой, не могу отправить изображение в стрим. Ошибка: stream write error. var ms:tStream; Temp:tBitmap; begin Temp: TBitmap; begin Temp := TBitmap.Create; Temp.Assign(Circle1.Fill.Bitmap.Bitmap); MS := TMemoryStream.Create; Temp.SaveToStream(MS); //где то на этом моменте происходит ошибка MS.Position := 0; ms.Free; Подскажите, что не так?

Рабочий код по загрузке изображений извне в FlipVIew: var Stream: TStream; begin Stream := TMemoryStream.Create; URL:='http://www.vk.com/123.jpg' HTTP1.Get(URL, Stream); Stream.Position := 0; FV1.Images.Add; FV1.Images[FV1.Images.Count-1].Bitmap.LoadFromStream(Stream); end;

Спасибо, буду пробовать

Собственно второй вопрос возник, а как именно загружать из стрима? fgFlipVIew1.Images.Add(Stream);

Спасибо. Про idHttp и Image не знал. Буду читать про эту связку.

Добрый вечер. Подскажите, как можно загрузить изображения в FlipView через URL из интернета?