Цветная форма на турбо паскаль

Моя задача: при компилировании программы на турбо паскаль должна получиться форма с надписями, точь в точь, как при нажатии на "Save as" проблема в том, как сделать её в тех же цветах, что и там? Чёрно-белый вариант есть.

 

Вот что вышло:

Code:

program save;  
begin  
writeln (' ');  
writeln ('╔═[ ]════════════ Save File As ═════════════════╗');  
writeln ('║                                               ║');  
writeln ('║  Save file as                                 ║');  
writeln ('║  primer.PAS                            OK     ║');  
writeln ('║                                               ║');  
writeln ('║  Files                                        ║');  
writeln ('║  ┌──────────────┬──────────────┐              ║');
writeln ('║  │ ..\          │              │              ║');  
writeln ('║  │              │              │              ║');  
writeln ('║  │              │              │              ║');  
writeln ('║  │              │              │              ║');  
writeln ('║  │              │              │     Cansel   ║');  
writeln ('║  │              │              │              ║');  
writeln ('║  │              │              │              ║');  
writeln ('║  │              │              │      Help    ║');  
writeln ('║  └──────────────┴──────────────┘              ║');
writeln ('║ D:\TP_7_RUS\TP7\BIN\*.PAS                     ║');  
writeln ('║ ..           Derectory Nov 30, 2010    6:34pm ║');
writeln ('╚═══════════════════════════════════════════════╝');
readln;
end.

 

тебе надо работающая форма или именно просто рисунок?если рисунок то подключай модуль graph и выставляй цвет командой textcolor(#color)

 

Мне нужна просто форма. Модуль подключал, но не получается разбить цвет по областям как на форме. Заливает всё окно(

 

Вместо Writeln используй Write, и цвета меняй когда нужно
т.е.
вместо

Code:

writeln ('╔═[ ]════════════ Save File As ═════════════════╗');  

делаем

Code:

textColor:=blue;
write ('╔═');
textColor:=red;
write('[ ]════════════ Save File As ═════════════════╗');
Writeln;  

и BGTextColor еще есть (или как-то так)
сорри, за синтаксис, под рукой ничего нет по паскалю, а было это давно.....
главное я думаю идею уловишь

 

то, что нужно)) смысл понял) благодарю)