TextDraw

Синтаксис

Function TextDraw(ByVal x As Long, ByVal y As Long, ByRef text As string, ByVal ColorBK As Long=0, ByVal ColorText As Long=0, ByVal AlPHAPARAM As Long=255) As Integer

Описание

Используется для рисования текста. Вывод текста по координатам может немного не совпадать с Windows версией. Следует учитывать это!

Параметры

x - расположение по оси X

y - расположение по оси Y

text - любой рисуемый текст

ColorBK - цвет фона текста (если значение будет -1, то прозрачный цвет)

ColorText - цвет текста

AlPHAPARAM - Степень прозрачности текста (от 0 до 255)

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateInfoXserver()
WindowStartDraw(hwnd)
 fillrectdraw(40,40,&hffffff)
 TextDraw(10,10,"Hello",&hffffff)
StopDraw
Do : Loop until WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator