Компьютерные технологии в физике. Часть 1. Компьютерное моделирование физических процессов. Красов В.И - 39 стр.

UptoLike

42
ране, начиная с которой будет выводиться текст. Параметры шрифта
задаются свойствами объекта
Font
. Пример:
Canvas.TextOut(Round(Width/2),Round(Height/2),'Привет!');
Для вывода на экран изображения по точкам используют свойство
Pixels класса TCavas. Это двумерный массив, в котором записаны цвета
всех пикселей, находящихся в текущей области, доступной для рисования.
Доступ к пикселям производится с помощью инструкции присвоения:
Canvas.Pixels[X,Y]:=clYellow {точка с координатами X,Y закрашивается в
желтый цвет}
Canvas.Brush.Color:=Canvas.Pixels[I,J]; {цвет кисти задается цветом пик-
селя с координатами I,J}.
If Canvas.Pixels[X,Y]=clRed then
Canvas.Pixels[X,Y]:=clBlack; {красная точка заменяется на черную}
PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com
                   ране, начиная с которой будет выводиться текст. Параметры шрифта
                   задаются свойствами объекта Font. Пример:

              Canvas.TextOut(Round(Width/2),Round(Height/2),'Привет!');

                    Для вывода на экран изображения по точкам используют свойство
              Pixels класса TCavas. Это двумерный массив, в котором записаны цвета
              всех пикселей, находящихся в текущей области, доступной для рисования.
              Доступ к пикселям производится с помощью инструкции присвоения:

              Canvas.Pixels[X,Y]:=clYellow {точка с координатами X,Y закрашивается в
                   желтый цвет}
              Canvas.Brush.Color:=Canvas.Pixels[I,J]; {цвет кисти задается цветом пик-
                   селя с координатами I,J}.
              If Canvas.Pixels[X,Y]=clRed then
                 Canvas.Pixels[X,Y]:=clBlack; {красная точка заменяется на черную}




                                                        42

PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com