12.8.2 Функции работы с текстом

Function ...

TextHeight ( TextString : String ) : Word ;
—	возвращает высоту строки в пикселях. TextString— исходная строка.
TextWidth ( TextString : String ) : Word ;
—	возвращает длину строки в пикселях. TextString— исходная строка.

12.9 Обмен с памятью

12.9.1 Процедуры обмена с памятью

Procedure ...

GetImage ( x1, y1, x2, y2 : Integer; var BitMap ) ;
—	сохраняет изображение заданного участка на экране в буфере. x1, 1y, x2, y2 — координаты левого верхнего и правого нижнего углов сохраняемого участка экрана. BitMap— буфер — переменная без типа или участок кучи, куда будет помещена копия видеопамяти с фрагментом изображения (желательно для выбора буфера использовать функцию ImageSize). В этой переменной первое слово отводится для записи ширины сохраняемого участка, второе — высоты участка, третье — зарезервировано, остальная область отводится под изображение.
PutImage ( x, y : Integer; var BitMap; BitBlt : Word ) ;
—	выдает на экран образ изображения, записанный в буфере. x, y — координаты левого верхнего угла прямоугольного участка экрана. BitMap— буфер — переменная без типа или участок кучи, откуда берется изображение. BitBlt — параметр, указывающий способ объединения передаваемой на экран информации с уже имеющейся: Сonst CopyPut = 0 ; { Замена } XorPut = 1 ; { Применение соответствующих операций: } OrPut = 2 ; AndPut = 3 ; NotPut = 4 ; { Замена с инверсией изображения } Если изображение не помещается на экране, оно не будет выводится.

12.9.2 Функция обмена с памятью

Function ...

ImageSize ( x1, y1, x2, y2 : Integer ) : Word ;
—	возвращает количество байт, необходимое для размещения в памяти прямоугольной области экрана (плюс 3 слова, необходимые для размещения размеров области по ширине и высоте). x1, 1y, x2, y2 — координаты левого верхнего и правого нижнего углов области.

22