-
Постов
196 -
Зарегистрирован
-
Посещение
-
Победитель дней
9
Весь контент GASCHE
-
По таймеру запускаете поток, в процедуре procedure TThreadRenew.Execute; производите расчет, когда значение внутри измениться на 1 синхронизируйтесь с основным потоком и меняете Label1.Text и даже "если вычисления идут час", то через час будет вам счастье
-
for i := 0 to 9 do begin уберите и будет вам счастье
-
Тогда выложите здесь исходники с тем что вы здесь написали и скомпилированный вами код, зачем гадать на гуще.
-
Чтоб он писал десятками процентов надо чтоб pc изменялось по 10, смотрите кто у вас его меняет. У меня ваш код в Windows меняется по 1 проценту.
-
Ищите в интернете Copy и LastDelimiter.
-
Одновременно заполняйте поле Tag ID этого FIO.
-
Основной задачей второго издания данной книги является актуализация представленных примеров относительно текущей версии Embarcadero RAD Studio/Delphi 10.3.2 Rio по сравнению с той, которая использовалась при подготовки первого варианта. Материал книги дополнился новыми возможностями и полезными советами, а также рекомендациями, полученными от читателей первой версии.
-
Подставляете туда свой JSON и получаете готовый результат.
-
Так всё для вас уже сделано, даже голову ломать не надо не надо ?
-
Я на панель накладывал TRectangle и рисовал на последнем.
- 3 ответа
-
- canvas
- firemonkey
-
(и ещё 2 )
C тегом:
-
Попробуйте 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); 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.