kuldiegor

 

 

 

Попробуйте сделать просто:

improgressbar.Bitmap.Canvas.BeginScene;
try
  improgressbar.Bitmap.LoadFromFile(........................
finally
  improgressbar.Bitmap.Canvas.EndScene;
end;

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

И еще такой вопрос: как убрать мерцание?

 

С TLabel ситуация точно та же.

Сначала BeginUpdate, потом EndUpdate.

А если проблема не в этом - тогда все (вывод в GUI) загнать в

TThread.Syncronize(TThread.CurrentThread, procedure
begin
 .................
end);

С мерцанием - не понял, что именно и когда мерцает?

 

Огромнейшие спасибо! Всё работает и мерцание исчезло.

 

Попробуйте сделать просто:

improgressbar.Bitmap.Canvas.BeginScene;
try
  improgressbar.Bitmap.LoadFromFile(........................
finally
  improgressbar.Bitmap.Canvas.EndScene;
end;

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

И еще такой вопрос: как убрать мерцание?

OnIdHTTP1Work случайно не в отдельном потоке работает?

Откажитесь от Indy, переходите на System.Net.*.pas

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

P.S. У меня тоже такие подозрения были, возможно, без Synchronize вызывается событие

uldiegor, отладчиком проходили код? в какой строке ошибка?

 

Да, ошибка в модуле FMX.Canvas.D2D. строка 2342 

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

P.S. На VCL работает отлично.

P.S.S. 

 

 

Зачем здесь Application.ProcessMessages?

Что бы прога не подвисала. 

Всем доброго времени суток! Обнаружил проблему, связанную с загрузкой изображения в 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 и все такое. Подскажите, пожалуйста, как реализовать сие. Заранее спасибо.

Rad Studio из коробки умеет работать с zip архивами, единственный (вроде) минус – не работает с запароленными архивами. Модуль System.Zip(Справка), попробуйте воспользоваться им.

Пробовал выдаёт "range check error" не могёт он память выделить из-за 0xFFFF 

 

Все я понял чё нужно было сделать вот рабочий код

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