Xailer & OZ Software

Entiendo los parametros pero aRect como seria? podriais ponerme un ejemplo?
es el Metodo FillRect de la clase tcanvas.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

SI ME Pudieseis poner un ejemplo con objeto oBrush mejor pues no se que hago
mal tambien con el objeto obrush al declararlo.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

Paco,
> Entiendo los parametros pero aRect como seria? podriais ponerme un
> ejemplo? es el Metodo FillRect de la clase tcanvas.
Debe ser un array: { nLeft, nTop, nRight, nBottom }
--
Un saludo,
José F. Giménez

bien ya solo me falta declarar bien el obrush paraque me funcione.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL -

Paco,
> SI ME Pudieseis poner un ejemplo con objeto oBrush mejor pues no se que
> hago mal tambien con el objeto obrush al declararlo.
Un brush se crea así:
oBrush := TBrush():Create( nStyle, nColor, hBitmap )
- nStyle es el estilo del brush. Puede ser:
HS_BDIAGONAL 45-degree downward left-to-right hatch
HS_CROSS Horizontal and vertical crosshatch
HS_DIAGCROSS 45-degree crosshatch
HS_FDIAGONAL 45-degree upward left-to-right hatch
HS_HORIZONTAL Horizontal hatch
HS_VERTICAL Vertical hatch
- nColor es el color del brush
- hBitmap es el handle de un bitmap
Lo normal es crear brushes sólidos; para eso sólo tienes que pasar el color:
oBrush := TBrush():Create( , clNavy ) // Azul oscuro
Cuando no necesites más el brush tienes que destruirlo con oBrush:Destroy()
--
Un saludo,
José F. Giménez