kuldiegor

Огромное спасибо! Только вот теперь выяснилось что глючит в довесок TLabel. Но это удалось решить костылём sleep(10); И еще такой вопрос: как убрать мерцание? С TLabel ситуация точно та же. Сначала BeginUpdate, потом EndUpdate. А если проблема не в этом - тогда все (вывод в GUI) загнать в TThread.Syncronize(TThread.CurrentThread, procedure begin ................. end); С мерцанием - не понял, что именно и когда мерцает? Огромнейшие спасибо! Всё работает и мерцание исчезло.

Огромное спасибо! Только вот теперь выяснилось что глючит в довесок TLabel. Но это удалось решить костылём sleep(10); И еще такой вопрос: как убрать мерцание?

Точно сказать не могу, в общем, лежит на form1 idhttp компонент, а картинки грузятся на другой форме (form2) P.S. У меня тоже такие подозрения были, возможно, без Synchronize вызывается событие

Да, ошибка в модуле FMX.Canvas.D2D. строка 2342 В общем история такая отправляю файл через idhttp1 в событии OnIdHTTP1Work делаю прогрессбар сделанный из своих картинок. Всего 361 картинка (0-360) формата PNG. Провел небольшое тестирование в цикле ошибок нет, а вот с idhttp1 вываливает. Похоже на то что bitmap не поспевает за idhttp1. Подскажите в чем может проблема и как её решить. P.S. На VCL работает отлично. P.S.S. Что бы прога не подвисала.

Всем доброго времени суток! Обнаружил проблему, связанную с загрузкой изображения в TImage. Если загружать изображения с хард диска очень быстро, то как будто TImage не поспевает и вываливает access violation. Delphi xe7 Fire Monkey 64 bit Windows. val:=round(360*value/max); //узнаём какова часть байт в градусах improgressbar.Bitmap.LoadFromFile(ExtractFilePath(paramstr(0))+'Pictures\ProgressBar\'+inttostr(val)+'.png'); labprogressbar.Text:=strtool.intbytetostr(value,1)+'Б'+#$D#$A+'/'+#$D#$A+strtool.intbytetostr(max,1)+'Б'; Application.ProcessMessages;

Всем доброго времени суток. Нашёл очень жуткий костыль для того чтобы PopupMenu было по верх таскбара. Необходимо у формы, родителя popupmenu, выставить свойство FormStyle = StayOnTop. Можно popupmenu кинуть и на другую форму, скрыть форму и выставить для неё StayOnTop. Знаю решение ужасное, но рабочее. P.S. Тема похоже заброшена, но я не обнаружил решение.

Всем доброго времени суток! Представляю вашему вниманию “Free Судоку”. Это бесплатное судоку позволяющее играть даже не находясь в онлайн. “Free Судоку” отличается иным алгоритмом построения карты, хотя другие “Судоку” имеют уже готовый, ограниченный набор карт, “Free Судоку” генерирует новую карту, только для вас, и она всегда уникальна. Также в игре существует 63 градации сложности, что позволяет вам постоянно совершенствоваться. Приложение имеет ряд полезных функций, таких как: “Сохранить игру”, ”Возврат”, “Подсказка Верной цифры”. Эти и другие возможности вы сможете узнать, установив приложение по ссылке ниже. https://play.google.com/store/apps/details?id=com.kuldiegor.Sudoku

Всем доброго времени суток! Подскажите, как добавить меж страничную рекламу? Нашёл модуль и пример, и всё нормально запускается, и рекламу показывает. Но когда тот, же самый код пишу у себя, приложение, при нажатии на кнопку, крошится. Не могу понять, в чём же дело . Заранее спасибо за ответы. Всё уже разобрался вот (только в манифест написал и все без фикса).

Всем доброго времени суток! Решил поднять тему и заодно уточнить детали. Пишу компонент кнопку, и мне не обходимо глобально ловить события на мышь, если использовать стандартные обработчики, то они работают только в районе этой самой кнопки (оно и понятно). Есть идея делать через поток и проверять состояние мыши но как-то не хочется грузить проц лишними излишествами.

Здравствуйте. Android

Всем доброго времени суток! Вопрос следующий: как отловить события мышки, глобально? например нажатие и положение. Раньше (на Delphi 7) я делал так procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN; procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE; procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP; Теперь не канает. Оно и понятно FireMonkey и все такое. Подскажите, пожалуйста, как реализовать сие. Заранее спасибо.

Все я понял чё нужно было сделать вот рабочий код var zip:TZIPFile; byt:TBytes; str:TStream; l:TZIpheader; s:TStringstream; begin s:=TStringstream.Create; zip:=Tzipfile.Create; zip.Open('D:\ОНВ\Архив.zip',Tzipmode.zmRead); zip.Read(2,str,l); //Нужно было с хедерам брать //str. s.LoadFromStream(str); memo1.Lines.Add(s.DataString); zip.DisposeOf;

Всем доброго времени суток! В общем, есть архив, который успешно удается открыть в делфи, но только для Windows платформы, а как это сделать для Android не понятно. Архив, который нужно раздолбить.zip 547_d7zipv1.2.zip