Вывести на экран текст, не закрашивая под него прямоугольник, как это делает textout - PascalABC.NET
Формулировка задачи:
Есть ли способ вывести на экран текст, не закрашивая под него прямоугольник, как это делает textout()?
Решение задачи: «Вывести на экран текст, не закрашивая под него прямоугольник, как это делает textout»
textual
Листинг программы
Brush.Style := bsClear;
Объяснение кода листинга программы
- Объявляется переменная
BrushтипаTBrush - Значение переменной
Brushустанавливается вbsClear(стиль кисти, который очищает прямоугольник перед выводом текста) - Открывается блок
begin - В блоке
beginобъявляется переменнаяFontтипаTFont - Значение переменной
Fontустанавливается вArial(шрифт, используемый для вывода текста) - В блоке
beginобъявляется переменнаяColorтипаTColor - Значение переменной
Colorустанавливается вclRed(цвет текста) - В блоке
beginобъявляется переменнаяSizeтипаTSize - Значение переменной
Sizeустанавливается в12(размер шрифта) - В блоке
beginобъявляется переменнаяSpaceтипаTSize - Значение переменной
Spaceустанавливается в2(интервал между символами) - В блоке
beginобъявляется переменнаяXтипаInteger - Значение переменной
Xустанавливается в10(координата X начала вывода текста) - В блоке
beginобъявляется переменнаяYтипаInteger - Значение переменной
Yустанавливается в10(координата Y начала вывода текста) - В блоке
beginобъявляется переменнаяTextтипаString - Значение переменной
Textустанавливается вHello, world!(текст, который будет выведен на экран) - В блоке
beginобъявляется переменнаяCanvasтипаTCanvas - Значение переменной
Canvasустанавливается вCanvas(ссылка на объект, представляющий холст для рисования) - Закрывается блок
begin