[Seregakz]

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

Ну тогда или закрашивай только текст так:

setcolor(0,0,0);
    DrawText('Привет!', 5, 5); 
    repaint;
    Delay(2000); 
    setcolor(255,255,255);//цвет фона
    DrawText('Привет!', 5, 5);
    setcolor(0,0,0); 
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999); 


или так

setcolor(0,0,0);
    DrawText('Привет!', 5, 5); 
    repaint;
    Delay(2000); 
    setcolor(255,255,255);//цвет фона
    fillrect(5,5,getstringwidth('Привет!'),getstringheight('Привет!'));
    setcolor(0,0,0); 
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999); 


или перерисовывай все на экране

ну вот пример проги который мне нужен:
то есть без смены фона без смены цвета текста всё как обычно но чтоб прост меняло текст:

Program NewProjectNEW; 
Begin 
    DrawText('Привет!', 5, 5);     
    Delay(2000);     
    DrawText('ППППППП', 5, 5); 
    Repaint;     
    Delay(999999999); 
End.