[Smerch66]

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

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

В чём может быть причина? Дело в том, что нужно чтобы курсор-часы, был прямо до момента пока график ни построился.


И второй вопрос сразу же, а то не знаю в какой из разделов писать. Есть ли литература по цифровой обработке сигналов именно на Delphi? А то сколько искал - не нашёл. Всё только для матлаба находится.

[Страдалецъ]

Если построение графика идет в отдельном потоке, то так и должно быть. Основная нить у вас уже отработала, а отдельная с графиком еще в процессе. В этом случае, надо уже обрабатывать сообщения построителя графиков и по ним ориентироваться при отображении курсора мыши.

[Smerch66]

Код:

Form1.Cursor:=crHourGlass;

...

//построение графика
for i:=0 to NFFT div 2 do
Chart2.SeriesList[0].AddXY(i*SamplesPerSec/NFFT,spectr[i]);

Form1.Cursor:=crDefault;

lmikle: Пользуемся тегами!

[AlexSku]

Сообщение от Smerch66

Есть ли литература по цифровой обработке сигналов именно на Delphi? А то сколько искал - не нашёл. Всё только для матлаба находится.

ЦОС - это математика, а в Матлабе, понятное дело, куча алгоритмов. Delphi, по большому счёту, это надстройка над Си, т.е. как нарисовать окно со стандартными визуальными компонентами (кнопки, меню...), но не прописывать инициализацию (регистрация класса окна, организация очереди событий...). Плюс компоненты для баз данных и прочее. Но если в вашей формуле арифметические операции, то разве это трудно запрограммировать?

[lmikle]

Smerch66, устанавливай курсор у объекта Screen, и будет тебе щастье.

AlexSku, Delphi не какая не надствойка. Никто тебе не мешает взять и писать на чистом WinAPI на Delphi. Поищи в инете примеры создания чистых WinAPI-приложений на Delphi.

[Smerch66]

Сообщение от lmikle

Smerch66, устанавливай курсор у объекта Screen, и будет тебе щастье.

Спасибо большое! Получилось Только OpenDialog, который открывается перед тем как курсор превратится в часы, стал подтормаживать при закрытии, но это уже не так важно.

Подскажите ещё пожалуйста, какой командой можно завершить выполнение процедуры?

[Smerch66]

Хотя... всё равно, сперва уходят часы, а потом только график появляется на экране.

[AlexSku]

Сообщение от lmikle

Delphi не какая не надствойка. Никто тебе не мешает взять и писать на чистом WinAPI на Delphi. Поищи в инете примеры создания чистых WinAPI-приложений на Delphi.

Я знаю. Можно и на ассемблере писать в среде Дельфи, можно и барометром гвозди заколачивать, я только описал самые общие случаи применения языка. Мне самому когда спрашивают, почему для DirectX я использую Delphi, а не Си, приходится отвечать, что результат всё равно будет один и тот же (единственно, размер побольше), так что я поклонник Delphi, но не лезу в дебри (winapi, консольные приложения...)

[lmikle]

Тут вопрос того, как у тебя написан код. Я бы делал так:

Код:

Screen.Cursor := crHourglass;
Try
  // расчет
Finally
  Try
     // Вызов принудительной отрисовки
  Finally
     Screen.Cursor := crDefault;
  End;
End;

Ну, и все диалоги надо показывать либо до установки курсора, либо после его восстановления.