zekelive

Добрый день, друзья. Снова обращаюсь к Вашей помощи) В потоке создаю вторую форму и компоненты на ней. Все работает с одним НО! Когда создаю TImage и загружаю в него изображение из удаленной БД, то поток своего рода зависает на моменте загрузки фото из БД. Если я закомментирую строчку с загрузкой картинки, то все работает отлично. Выше приведенные способы не помогают. Может взглянув на код, появятся мысли. procedure LoadProcess.Execute; begin Application.CreateForm(TForm2, Form2); imgcount:=ClientModule2.ServerMethods1Client.CountMainPhoto(a,; Stream := TMemoryStream.Create; if(imgcount<>'') and (imgcount<>'0') then begin for i:=1 to StrToInt(imgcount) do begin a:=IntToStr(i); url:=ClientModule2.ServerMethods1Client.LoadMainPhoto(a,; http:=TIdHttp.Create(Form1); HTTP.Get(URL, Stream); Stream.Position := 0; with img do begin img:=TImage.Create(Form2); Parent:=Form2.ScrollBox2; Align:=TAlignLayout(1); MarginWrapMode:=TImageWrapMode(2); WrapMode:=TImageWrapMode(2); //Bitmap.LoadFromStream(stream); //Собственно проблемная строчка size.Height:=240; //OnTap:=Form2.ImgClick; name:='img'+IntToSTr(i); end; with lab do begin lab:=TLabel.Create(Form1); Parent:=img; Align:=TalignLayout(4); margins.Bottom:=30; FontColor:=TAlphaColors.Black; DefaultTextSettings.Font.Size:=30; Font.Size:=30; DefaultTextSettings.Font.Family:='RobotoThin'; TextSettings.HorzAlign:=TTextAlign(0); a:=IntToStr(i); Text:=ClientModule2.ServerMethods1Client.LoadPhotoName(a,;; end; end; end; Form2.TabControl1.ActiveTab:=Form2.MainTab; Form1.Hide; Form2.Show; LoadPhoto.Free end;

Жаль, очень жаль..спасибо за ответы, в любом случае)

Друзья, подскажите. Реализовано ли уже в Seattle установка цвета системного StatusBar с цветом ToolBar на форме? Как это реализовано на платформе iOS.

Нашел решение проблемы. В данном случает, не требуется использовать свойство Opacity для родительского компонента, а необходимо в свойствах выбора цвета РК в 4 параметре цвета RGB указать меньшее значение (оно как раз и отвечает за прозрачность). По умолчанию там установлено 255.

Добрый день, комрады. Сегодня столкнулся с такой вещью, как наследование своей компонентов. На форме располагается TImage, на нем TRectangle c параметром Opacity - 0,5. Проблема собственно в том, что приразмещении любого компонента на TRectangle (будь то TLabel, AniIndicator и т.д.) они автоматически наследуют свойство прозрачности от TRectangle. Как собственно сделать так, чтобы они не наследовали это свойство у компонента родителя?

Сталкивался с похожей проблемой своей программы на Андроид 5.1.1. Симптомы были похожи, программа запускалась, но при активации Edit она просто вылетала. Проблема оказалась в том, что в 5 версии Андроида изменились настройки активации вибрации. Убрав вибрацию, все работает как часы!

Добрый день, друзья. В своем проекте использую технологию DataSnape для реализации клиент-серверного приложения. И в данный момент у меня встал вопрос о TimeOut подключения к серверу. В параметрах компонента SQLConnection на серверной части есть строки, такие как - ConnectTimeOut and CommunicationTimeOut. По умолчанию они пусты. И какое значения я бы не устанавливал в этих строках, оно игнорируется и используется некое значение по умолчанию. Опытным путем высчитал, что это приблизительно 60 секунд, после чего клиент бросает попытки подключения к серверу. Это или любое похожее значении я найти не смог. Может быть кто-то сталкивался с подобными вещами, и знает где регулируется TimeOut?

Чтобы элементы распологались в нужно для Вас месте на разных экранах, необходимо для каждого компонента выставлять свойство Align.

Сам пытался простой код в потоке выполнять, у меня то программа вываливается. То ошибки не понятные какие-то. Что-то с потоками совсем ерунда какая-то в FMX.

Доброго времени суток, товарищи. Возникла такая проблема, которую сам решить немогу. Имеется scrollbox и динамически созданные элементы на нем. Структура такая: scrollbox - rectangle-image -listbox. listbox создан на rectagle. Пробовал разные варианты. Создавая listbox, присваивал ему scrollbox, и главную форму. Все равно одно и тоже. List:=TListbox.creAte(self); List.parent:=rectangle. Может что-то делаю не так?

Проблема решилась. Такое поведение отмечалось у компонента listbox. Использую tLabel и параметры цвета и шрифта стали сохраняться при пролисьывании.

в обработчике ScrollBoxViewportPositionChange тебе нужно менять значения интервалом. ЧТо то типа: ScrollBox.AniCalculations.StorageTime:=2.0; ScrollBox.AniCalculations.StorageTime:=10.0; ScrollBox.AniCalculations.StorageTime:=2.0; Причем значения эти нужно с интервалом, через таймер может быть попробовать. Активировать в этом обработчике таймер, а в таймере прописать одну строчку кода. и так 3 таймера))) пока такие догадки

Доброго времени суток, товарищи) Хотел поинтересоваться у знатоков, как лучше реализовать систему уведомлений. Имеется клиент-серверное приложение на основе DataSnap. Необходимо реализовать уведомления для каждого отдельного пользователя (ибо они разные для всех). Как лучше, и с помощью чего это реализовать? Конечно же желательно, чтобы уведомления могли приходить и при закрытом приложении. P.S. Как я понимаю, GCM позволяет отсылать уведомления только всем юзерам? И его не как не синхронизируешь с моей БД.

Сейчас все в порядке. Спасибо. В тот момент, когда не грузилось якобы, я упустил один нюанс у себя в проекте, не связанный с потоками, в связи с чем и не грузилось.

Подробнее не могу, у самого только догадки по твоему вопросу Написал, что знаю. Попробуй на примере то, что я тебе написал. Про Anicalculation. Поиграйся с параметрами и поймешь

Смотри в сторону ScrollBox.AniCalculations.StorageTime это в помощь и все это, скорее всего обрабатывай в событии ScrollBoxViewportPositionChange

Сделал так: TThread.Synchronize(TThread.CurrentThread, procedure begin //.... end); Работает! Спасибо) По варианту Владимира, иногда (не всегда) вываливается приложение. Как я понял, его вариант через дочерний поток, не основной. Поэтому и вываливается приложение.

Когда я заключаю в поток код: TThread.CreateAnonymousThread( procedure() begin ClientModule2.ServerMethods1Client.Number24(a,b,c,e); end).Start; Не подгружаются данные, который заключены в потоке.

Могли бы Вы сказать, что за значения используются в процедуре (seWareID.value, CallBack, managerID)? P.S. Не нашел темы, с проблемами по DS:)

Спасибо за ответ)

Пытаюсь восстанавливать настройки как ты сказал, в обработчике, но изменений все равно нет, код: item.TextSettings.Font.Family:='RobotoLight'; item.TextSettings.FontColor:=TAlphaColors.Sandybrown; и так тоже пытался: item.DefaultTextSettings.Font.Family:='RobotoThin'; item.DefaultTextSettings.FontColor:=TAlphaColors.Sandybrown;

Добрый день, друзья. В своем проекте использую DataSnape. Обмениваюсь данными с сервером путем отправки таких команд: ClientModule2.ServerMethods1Client.Number24(a,b,c,e); Соответственно отправляю какие либо данные в функцию с переменными. Но есть один нюанс. При таком методе отправки интерфейс программы подвисает на момент выполнения операции. Есть ли пути решения, чтобы интерфейс программы не подписал, а функции выполнялись в фоне?

Друзья, скажите, а как вы вообще реализовываете отрисовывание св TImage?

Очень благодарен!

Доброй ночи товарищи. Столкнулся с такой проблемой. Динамически созданный Label имеет свой цвет и нестандартный шрифт. При первой отрисовки все отлично, но как только начинаю листать, и элементы на ScrollBox скрываются над верхней границей, то шрифт и цвет становятся стандартными. Как исправить такое недоразумение?