Да, за Lab мне нужно принести всем извинения... Был выкачен на публику сырой продукт, совершенно не опробованный в образовании - в тот период я сам его не использовал.
Сейчас использую, но сильно урезанный вариант, который надо перебрать "с нуля" и уже опубликовать - но пока сил нет..
Касательно SelectFont. Он принимает не в пунктах, а в универсальных единицах ББ. Чтобы в пунктах принимал, надо такое исправление:
Код:
В модуле LabGraph:
PROCEDURE (v: StdView) SelectFont (font: ARRAY OF CHAR; size: INTEGER; bold, italic, underlined: BOOLEAN);
VAR style: SET;
weight: INTEGER;
f: Fonts.Font;
BEGIN
ASSERT(font # "", 20);
ASSERT(size > 0, 21);
style := {};
IF italic THEN INCL(style, Fonts.italic) END;
IF underlined THEN INCL(style, Fonts.underline) END;
IF bold THEN weight := Fonts.bold ELSE weight := Fonts.normal END;
f := Fonts.dir.This(font$, !!!ВОТ ЗДЕСЬ: !!! size*Fonts.point, style, weight);
IF f # NIL THEN
v.font := f
END
END SelectFont;