[Interface]

Я использую...

Код:

1	Rectangle(ScreenDC, 300, 600, 700, 200);

Оно рисубет БЕЛЫЙ квадрат! А мне нужен черный что делать???
И в догонку как очистить окно консоли?(не заполняя его пробелами!)

[:S.p.a.m.]

А где рисуеш то? на канве? Ото чет я неприпоминаю чтобы в методе Rectangle было кроме координат еще что-то. или это самописная процедура?

[ApplicatiOn]

Очистить полотно консоли от текста можно так:

program Project1;


{$APPTYPE CONSOLE}


uses Windows;


var

buffer: TConsoleScreenBufferInfo; //буфер

i: integer;

begin

WriteLn('Press <Enter> to clear screen');

ReadLn;

GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT _HANDLE),buffer);

for i:=0 to buffer.dwSize.y do writeln;
Readln;
end.

наверно только так)))

[ApplicatiOn]

и в догонку) пробуй clear) может получиться...

p.s. способ выше - провереный способ... этот незнаю..

[Interface]

Код:

1 2 3

ScreenDC := GetDC(0); {получить контекст экрана}  Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать}  ReleaseDC(0,ScreenDC); {освободить контекст}

Тоесть рисую на экране!
ApplicatiOn если в твоем методе все заполняется пустыми строками - то это не то. Надо чтоб текст нельзя было увидеть! (полосы прокрутки то есть! )
Можете предложить рисовать на канве, а ее выводить на экран. (Тоже не знаю как делать...)Но можно ж как то Цвет менять!!!!! Я думаю так:

Код:

1	Form1.Canvas.Brush.color := ...

Но как вы наверно поняли, у консолки нет ни канвы, ни формы даже Application нет!!! Может Handle ее брать? Нy Help Me...

[Interface]

Ну что никто не знает... Мне б токо с цветом... с очисткой пока не так важно...
И еще вопосик что консолка не закрывалась надо ее в цикл пихнуть, я так понимаю до начала цикла буит Form.Create, после Form.Close. А что в условии цикла???