Код:
ScreenDC := GetDC(0); {получить контекст экрана}
Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать}
ReleaseDC(0,ScreenDC); {освободить контекст}
Тоесть рисую на экране!
ApplicatiOn если в твоем методе все заполняется пустыми строками - то это не то. Надо чтоб текст нельзя было увидеть! (полосы прокрутки то есть!
)
Можете предложить рисовать на канве, а ее выводить на экран. (Тоже не знаю как делать...)Но можно ж как то Цвет менять!!!!! Я думаю так:
Код:
Form1.Canvas.Brush.color := ...
Но как вы наверно поняли, у консолки нет ни канвы, ни формы даже Application нет!!! Может Handle ее брать? Нy Help Me...