GASCHE

Не работает Непрочитанный контент, Компактно!

Подставляете туда свой JSON и получаете готовый результат.

Так всё для вас уже сделано, даже голову ломать не надо не надо ?

Я на панель накладывал TRectangle и рисовал на последнем.

Попробуйте Width и Heigh взять из координаты ARect события OnPainting, мне помогло. PROCEDURE pbGraphPainting( Sender : TObject; Canvas : TCanvas; const ARect : TRectF ); ... _rGraph.OnPainting := pbGraphPainting;

Грузятся если заменить if (FListViewUpdating) or (AAsyncResult.IsCancelled) then на if (FListViewUpdating) or (AsyncResult.IsCancelled) then. AAsyncResult у меня NIL

Дальше не дошли ?

Сюда вместо Image2.Position.X, Image2.Position.Y подставлять преобразованные координаты Х, Y из

Согласно этому получилось так Path3D1->Path->MoveTo(TPointF(0,0)); Path3D1->Path->LineTo(TPointF(0,0));

Теорию можно посмотреть здесь. Там же есть ссылка на пример, правда на Python.

Увы показалось что вернули дату изменения ?

У меня совпадает с московским

Придется смириться, другого кода тут ни вы ни кто другой не предложил.

А так procedure TForm1.Timer1Timer(Sender: TObject); begin label1.text = query.fiеlds[0].asstring; [.... делаем что-то, где срок выполнения задачи может быть разным] IF NOT Query.Eof THEN Timer1.Enabled := False ELSE Query.next; END; не получается?

У меня так procedure TForm1.Timer1Timer(Sender: TObject); VAR iJ : Integer; begin ProgressBar1.Value:=iI; Label1.Text := iI.ToString ; //Timer1.Enabled := False; Inc( iI ); //sleep(100); for iJ := 0 to 100000000 do LT := LT + 1; IF iI > 100 THEN Timer1.Enabled := False; end; не "встает" хоть sleep хоть FOR.

А это что значит? Делает программа или пользователь что-то меняет?

Согласен.

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

Чтоб не "встало колом" можно так ? procedure TForm1.Timer1Timer(Sender: TObject); begin ProgressBar1.Value:=iI; Timer1.Enabled := False; Inc( iI ); sleep(100); IF iI <= 100 THEN Timer1.Enabled := True; end; Вместо sleep(100) можно выполнять любой код.

Ну извините я не Кашпировский чтобы догадаться какой код нужно выполнять вместо sleep(100), и естественно на болванку я предложил такую же болванку. Как реально все это синхронизировать это дело автора вопроса если он захочет этим воспользоваться. У меня весь "sleep(100)" работает в потоке, проблем с синхронизацией нет. Предложите своё и, если оно будет проще непременно им воспользуюсь.

А чем эта хуже application.ProcessMessages?

procedure TForm1.Timer1Timer(Sender: TObject); begin ProgressBar1.Value:=I; IF I = 100 THEN Timer1.Enabled := False; Inc( I ); end;

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

Пожалейте пользователя, перед глазами две формы плюс splash форма да еще форма с прогресс баром при этом на каждой что-то меняется куда ему смотреть и на какой жать клавиши

C этим согласен, но как бы было хорошо если бы андроид научили "тормозить" потоки типа WaitForSingleObject.