FillRectDraw

Синтаксис

sub FillRectDraw(ByVal x As Long, ByVal y As Long, ByVal Color As Long)

Описание

Используется для заливки замкнутых областей выбранным цветом. Цвет распространяется до границ фигуры. Координаты х и у должны быть внутри области. Под Linux скорость может быть медленной из-за не самого хорошего алгоритма. Для прямоугольных областей лучше использовать BoxDraw

Параметры

x - координата X для точки заливки

y - координата Y для точки заливки

Color - цвет заливки

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Var hwnd=OpenWindow("",100,100,300,300)
UpdateinfoXserver
WindowStartDraw(hwnd)
FillRectDraw(0,1,&hf0f0f0)
LineDraw(60,180,140,50,10,&hff0000,&hff0000)
LineDraw(140,50,220,180,10,&hff0000,&hff0000)
LineDraw(220,180,60,180,10,&hff0000,&hff0000)
FillRectDraw(150,150,50000)
StopDraw
Do : Loop until  WaitEvent= EventClose

Результат

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad