/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/StampText.pas
31 строка
580 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Класс штампа текста uses GraphABC; type TextStamp = class x,y,pt: integer; Text: string; constructor (xx,yy,ppt: integer; t: string); begin x := xx; y := yy; pt := ppt; Text := t; end; procedure Stamp; begin Font.Size := pt; TextOut(x,y,text); end; procedure MoveOn(dx,dy: integer); begin x += dx; y += dy; end; end; begin var txt := new TextStamp(200,200,14,'Привет!'); txt.Stamp; txt.MoveOn(0,40); txt.Text := 'До свидания!'; txt.Stamp; end.