Как обновить чертеж в OnPaint Delphi

Question

Хороший день ... Я использую OnPaint Delphi, чтобы создать несколько строк ... пока все будет в порядке ... Моя проблема начинается, когда я пытаюсь обновить эти строки ...

я обнаружил, что для очистки экрана, я могу использовать:

Invalidate() 

например:

Then if True 
Begin 
      Canvas.Ellipse (0,0,100,50); 
End Else Begin 
     Invalidate(); 
end; 

Этот способ работает очень хорошо ... Но проблема заключается в том, что потребление памяти Invalidate() ; использует ....

Нормальный Он потребляет меньше 0,3% .... Теперь Invalidate(); потребляет 30% ... большая разница ...

Есть ли какие-либо другие функции, которые могут использовать для очистки экрана без использования OnPaint как процессора, так и способа сделать OnPaint одним проходом, чтобы дать Invalidate(); ... Потому что он постоянно обновляется, поэтому потребляет много процессора .... Мне нужно очистить этот экран в то время, но другим нужно обновить изображение OnPaint ...

Answer 1

Спасибо ... Я думаю, вы поняли, что я не хватает ... Я сделал это так, и по-видимому, работает правильно:

procedure paintestOnclick(blabla); 
Begin 
    if word= 'Open' then Begin 
     onpaintTela := True; 
     repaint(); 
     End; 

     if word= 'close' Then Begin 
     invalidate(); 
     onpaintTela := False; 
     End; 
End; 

процедуру OnPaint:

if onpaintTela then begin 
    //Comand paint 
End; 

Answer 2

Вопрос: не хватает деталей. Код неполный. Однако, похоже, вы звоните Invalidate с того же места, которое вы рисуете. Это явная ошибка.

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

Похоже, вы съели вызов Invalidate из вашего метода рисования. Это приводит к бесконечно повторяющейся последовательности:

• Вы рисуете.
• Вы недействительны.
• Очередь сообщений опущена, и окно недействительно.
• Система поднимает цикл краски.
• Вы рисуете.
• Вы недействительны.
• И так далее и так далее.

Эта бесконечная последовательность событий приведет к сжиганию циклов процессора.

Решение состоит в том, чтобы остановить недействительность в методе краски. Я не знаю, почему вы недействительны там, но что бы вы ни пытались сделать, аннулирование вашего окна не является ответом.