Фон в Кавас!

[Strelok]

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


Так?

[Seregakz]

сам пробовал?))

[vitalik1]

да пробовал. Вот:

program NewProject;
begin
   setcolor(0,0,0);
   DrawText('Привет!', 5, 5); 
   Repaint;      
   Delay(2000);
   setcolor(255,255,255);
   fillrect(0,0,getwidth,getheight);   
   setcolor(0,0,0);
   DrawText('ППППППП', 5, 5);   
   Repaint;       
   Delay(10000);  
end. 


[Seregakz]

Из за частого использования Repaint; нагрузка небольшая?

[vitalik1]

Большая. Но тут меньше репаинтов не получиться.
Просто используй его когда это действительно надо.

[Seregakz]

Ну у меня над текст обновлять постоянно
Cоединение
Отправка
Ответ сервера
Отправленно
...

другим методом никак незя?

[ViNT]

При каждом обновлении нужен Repaint, без этого никак.
Или можно формы использовать.

[Seregakz]

ViNT, тада в фоме не знаеш как картинку и текст под ней сделать по середине экрана?

[KeipL]

в самой по себе форме нельзя вставить картинку, вроде...

[ViNT]

Можно, с помощью FormAddImage, только с выравниванием намучаешься. Лучше уж на канвас выводить, а перерисовывать только ту часть экрана, где выводится текст.

[Romanzes]

Люди, че это за репайнтофобия появилась? В динамичных играх экран перерисовывается 20 раз в секунду и больше. Сама же перерисовка занимает миллисекунды. Конечно, это не значит, что нужно ставить Repaint через каждую строчку

[Seregakz]

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

Можно, с помощью FormAddImage, только с выравниванием намучаешься. Лучше уж на канвас выводить, а перерисовывать только ту часть экрана, где выводится текст.

а где координаты выставлять то?

[Romanzes]

Там не надо выставлять координаты. Тел сам решит куда вставить изображение

[Seregakz]

Ну необходимо замоздрячить по центру ((

[odd]

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

Ну необходимо замоздрячить по центру ((

Держи библиотеку. Пока там только 1 функция AddImage.
В твоём случае нужно набрать примерно следующее:

AddImage(LoadImage('/icon.png'), 3, 'Моя иконка');