Перейти к содержанию

GASCHE

Пользователи
  • Активность

    186
  • Зарегистрирован

  • Посещение

  • Победитель дней

    8

GASCHE стал победителем дня 3 декабря 2019

GASCHE имел наиболее популярный контент!

Информация о GASCHE

  • Звание
    Продвинутый пользователь

Информация

  • Пол
    Не определился
  • Город
    Москва, Троицк

Посетители профиля

2 018 просмотров профиля
  1. GASCHE

    Работа форума

    Не работает Непрочитанный контент, Компактно!
  2. Подставляете туда свой JSON и получаете готовый результат.
  3. Так всё для вас уже сделано, даже голову ломать не надо не надо
  4. Я на панель накладывал TRectangle и рисовал на последнем.
  5. Попробуйте Width и Heigh взять из координаты ARect события OnPainting, мне помогло. PROCEDURE pbGraphPainting( Sender : TObject; Canvas : TCanvas; const ARect : TRectF ); ... _rGraph.OnPainting := pbGraphPainting;
  6. Блажен кто верует, мне дак эта критика напоминает басню Крылова
  7. Грузятся если заменить if (FListViewUpdating) or (AAsyncResult.IsCancelled) then на if (FListViewUpdating) or (AsyncResult.IsCancelled) then. AAsyncResult у меня NIL
  8. Сюда вместо Image2.Position.X, Image2.Position.Y подставлять преобразованные координаты Х, Y из
  9. Согласно этому получилось так Path3D1->Path->MoveTo(TPointF(0,0)); Path3D1->Path->LineTo(TPointF(0,0));
  10. Теорию можно посмотреть здесь. Там же есть ссылка на пример, правда на Python.
  11. Увы показалось что вернули дату изменения
  12. Придется смириться, другого кода тут ни вы ни кто другой не предложил.
  13. А так 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; не получается?
×
×
  • Создать...