Esta función nos permite
rellenar figuras; es decir, podemos establecer el color y textura de fondo
de cualquier figura. A la función CreateHatchBrush() se le pasan dos parámetros
el primero la textura y forma que tendrá el relleno (estos van desde 0
hasta 5), el segundo es el color de relleno. Utilizamos además otras
funciones como la SelectObject() la cual selecciona y realiza las
diferentes acciones sobre el objeto. La función GetDC() y Rentangle() ya
fueron estudiadas.

PARA
VISUAL FOX PRO 7.0

&& Se registran las diferentes
funciones

Declare integer CreateHatchBrush in "gdi32.dll" ;

Long nIndex, Long crColor

Declare integer SelectObject IN "gdi32.dll" ;

Long hdc, Long hObject





Declare integer GetDC in "user32.dll" Long hWnd 



Declare integer Rectangle in "gdi32.dll" ;

Long hdc, Long X1, Long Y1, Long X2, Long Y2

&& Obtengo el DC

nDc = Getdc(thisform.HWnd)



&& Creo el relleno con las características

hbrush = CreateHatchBrush(5, RGB(255, 255, 0)) 



&& Selecciono la ventana y establezco la forma de
relleno

holdbrush = SelectObject(nDc, hbrush)



&& Creo un rectángulo

retval = Rectangle(nDc, 10, 20, 175, 100)



&& Aplico al rectángulo el relleno seleccionado

retval = SelectObject(ndc, holdbrush) 

PARA
VISUAL FOX PRO 6.0 Y 5.0

&& Se registran las diferentes
funciones

Declare integer CreateHatchBrush in
"gdi32.dll" ;

Long nIndex, Long crColor

Declare integer GetActiveWindow in win32api

Declare integer SelectObject IN
"gdi32.dll" ;

Long hdc, Long hObject





Declare integer GetDC in "user32.dll" Long hWnd 



Declare integer Rectangle in "gdi32.dll" ;

Long hdc, Long X1, Long Y1, Long X2, Long Y2

&& Obtengo el DC

nDc = Getdc(GetActiveWindow())



&& Creo el relleno con las características

hbrush = CreateHatchBrush(5,
RGB(255, 255, 0)) 



&& Selecciono la ventana y establezco la forma de
relleno

holdbrush = SelectObject(nDc,
hbrush)



&& Creo un rectángulo

retval = Rectangle(nDc, 10, 20, 175, 100)



&& Aplico al rectángulo el relleno seleccionado

retval = SelectObject(ndc,
holdbrush)