1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Я брал из 7-го Турбо Паскаля - формат один и тот же... Если надо - забирай: fonts.rar ( 71.69 килобайт )
Кол-во скачиваний: 420
Цитата
что такое SetTextJustify?
Устанавливает выравнивание текста. То что я привел - говорит компилятору, что точка, координаты которой задаешь в OutTextXY, будет левой (LeftText) верхней (TopText) точкой выводимого текста, то есть, весь текст пойдет от нее вправо и вниз. А вот для того, чтобы пропускать между строками, напечатанными разными шрифтами одинаковое расстояние, пользуемся TextHeight, которая выдаст высоту переданной ей буквы (обычно передают "W", как самую высокую) для текущего шрифта...
begin if init = grOk then begin Dr; UserEnter(); {case UserEnter() of 1 : New 2 : last; 3 : Record; 4 : level; 5 : Rules; 6 : exit; end; } Readln; CloseGraph; end; end.
проблема основная -- что-то с циклом отрисовки нового выбора пользователя(прямоугольник новый не отрисовывается) проблемма второстепенная -- текст выводится не в центр что делать?