fonts.pl

PRl教学程序 PRl教学程序 PRl教学程序

fonts(Obj):-
	write('***********'),nl,
	javaMethod(Obj,setString('Hello World')),
        javaMethod(Obj,setFontAttr('TimesRoman',3,20)),
        javaMethod(Obj,computeFontMetrics),
        write('<=computeFontMetrics'),nl,
	javaGetField(Obj,width,Width),
        write('<=javaGetField(width)'),nl,
	javaGetField(Obj,height,Height),
        write('<=javaGetField'),nl,
        write(Width),nl,
        write(Height),nl,
	write('-----------'),nl.