FillRectDrawA

Синтаксис

Sub FillRectDrawA(byval x As Integer, byval y As Integer, byval color As integer)

Описание

Используется для заливки замкнутых областей выбранным цветом. Цвет распространяется до границ фигуры. Координаты х и у должны быть внутри области. Функция работает медленно. Так что для проектов, нуждающихся в быстрой заливке, придется вам писать свои алгоритмы. Если напишите более быструю и стабильную функцию и вам будет не жалко, напишите мне и я заменю имеющуюся. В любом случае спасибо пользователям fxm и gothon за помощь в написании функции.

Параметры

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

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

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Any Ptr Gpbitmap=Create_ImageA(190,170)
Dim As Hbitmap bmp
Dim As HWND hw
ImageStartDrawA(Gpbitmap)
  LineDrawA(50,50,100,100,,&HFFFF0000)
  LineDrawA(100,100,150,50,,&HFFFF0000)
  LineDrawA(50,50,150,50,,&HFFFF0000)
  FillRectDrawA(80,60,&hff0000ff)
  FillRectDrawA(10,10,&hFF00FF00)
StopDrawA
hw=OpenWindow("GDI+",100,100,200,180)
CenterWindow(hw)
bmp=CreateHBitmapFromGpBitmap(GpBitmap,&hf0f0F0)
ImageGadget(1, 0,0,300,300, bmp)
Do:Loop Until WaitEvent()= eventclose
FreeGpBitmap(Gpbitmap):Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Full featured EBook editor