Отрисовка

[ar4angel]

День добрый!

Такой вопрос:

program test;
var
a:integer;
begin
for a:=1 to 10 do
begin
	drawText(''+a, 0, 0);
	repaint;	
	delay(1000); 
	end;
end.

Если запустить мидлет, то текст (цифры) на дисплее будет накладываться друг на дружку...
Что можно сделать, что бы этого наложения не было?

[Jet]

Если запустить мидлет, то текст (цифры) на дисплее будет накладываться друг на дружку...
Что можно сделать, что бы этого наложения не было?

для этого можно для разных букв указывать разные координаты в команде drawText

[ar4angel]

А если нужно отрисовывать текст именно в одной и той же области?
Как можно очистить экран перед повторной отрисовкой?

[ViNT]

Можно так:

program test;
var
a:integer;
x:integer;
begin
for a:=1 to 10 do
begin
x:=x+getstringwidth(integertostring(a))+2;
drawText(''+a,x, 0);
repaint;
delay(1000); 
end;
end.

[ar4angel]

Не, ребят, вы меня не понимаете...
Гляньте на мой пример. Мне нужно, чтобы вместо "1", появиласть "2", затем "3" и т.д. на одном и том же месте.
Т.е. перед отрисовкой следующего числа нужно очистить дисплей.
Как можно вызвать "местный CLS", т.е. просто очистить экран?

[dimanche13]

Перед выводом а, пиши в ту позицию (0,0) пробел.

[ar4angel]

Пишу пробел - ноль эффекта, почему-то...

program test;
var
a:integer;
begin
for a:=1 to 10 do
begin
drawText(' ',0, 0);
drawText(''+a,0, 0);
repaint;
delay(1000); 
end;
end.

В чём проблема может быть?

[dimanche13]

drawText(' ',0, 0);
repaint;
drawText(''+a,0, 0);
repaint;

может так? а вообще не знаю я МП...

Чисто алгоритмически твоя проблема решается изначальной закраской фоном участка, на котором выводится текст. Ммм... в MidletPascal'е есть процедуры для отрисовки закрашенных прямоугольников ?

[ar4angel]

В общем, вот чего изобрёл:

program test;
var
a:integer;
begin
for a:=1 to 10 do
begin
setColor(0,0,0);
drawText(''+a,0, 0);
repaint;
delay(1000); 
{MyRepaint}
setColor(255,255,255);
fillRect(0,0,getWidth,getHeight);
 
end;
end.

Всем спасибо за внимание!

[dimanche13]

Мдяааа, жёсткий язык, этот мидлет паскаль)))

drawText(''+a,0, 0);

Кстати, а что это за дикая конструкция такая) ?

[ar4angel]

Тоже моё изобретение...
У меня практически никакого опыта в программировании, поэтому не знаю как вывести на дисплей Integer.
Если оставить только:

drawText(a,0, 0);

- MP ругается: "error on parameter 1".
Может тогда разъясните, как вывести на дисплей число "без извращений"?

[ViNT]

Сообщение от Chrono Syndrome

Кстати, а что это за дикая конструкция такая) ?

Если написать просто "a" то получится ошибка с типом параметра, а если написать так, то он склеит '' и "a", автоматически преобразовав "a" в строку. Так же, как writeln(a) в TP.

Может тогда разъясните, как вывести на дисплей число "без извращений"?

Без извращений не получится .
Либо

drawText(''+a,0, 0);

либо

drawText(Integertostring(a),0, 0);

Второй метод-наиболее стандартный.

Если написать просто "a" то получится ошибка с типом параметра, а если написать так, то он склеит '' и "a", автоматически преобразовав "a" в строку.

КрЫсота... (C)
Не, ну создатели этого Мидлета уж определились бы как-нибудь: у ихнего детища строгая типизация или нет) ?