Сообщение от vitalik1
Вот тебе пример:
Program NewProjectNEW;
var
ScrW,ScrH: integer;
procedure cls;
begin
setcolor(0,0,127);
fillrect(0,0,ScrW,ScrH);
setcolor(255,255,255);
end;
Begin
ScrW:=getwidth;
ScrH:=getheight;
cls;
DrawText('Привет!', 5, 5);
repaint;
Delay(2000);
cls;
DrawText('ППППППП', 5, 5);
Repaint;
Delay(999999999);
End.
|
тута фон меняется а мне надо что ваше нечего не менялось кроме текста !!!!!!
чтоб фон был стандартной темы в телефоне!