UNA SOBRE BRUSH

[mantonio_08]

tengo la siguiente DUDA::

DEFINE WINDOW oWnd BRUSH oBrush

como se podria cambiar el oBrush de esta ventana principal en tiempo de ejecucion..

oBrush es un file .bmp

Gracias..

[Bayron]

Mantonio,
Yo apenas estoy apenas aprendiendo a programar, pero talvez funcionaria:

oBrush:cBmpFile := new.bmp

[Bayron]

Mantonio,

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=15033&p=78042&hilit=cambiar+brush#p78042DEFINE%20WINDOW%20oWnd%20BRUSH%20oBrush

[Antonio Linares]

Mantonio,

Code: Select all  Expand view  RUN

local oBrush1, oBrush2

DEFINE BRUSH oBrush1 FILENAME "test1.bmp"

DEFINE BRUSH oBrush2 FILENAME "test2.bmp"

DEFINE WINDOW oWnd BRUSH oBrush1

...

oWnd:SetBrush( oBrush2 )
oWnd:Refresh()
 

[mantonio_08]

MASTER ANTONIO..

COMO APLICO EN TIEMPO DE EJECUCION EL CAMBIO DE BRUSH Q DESEO HACER.. lo he puesto en ON PAINT de la ventana principal.. y no corre..

como y dnd habria q aplicarlo::

GRACIAS

[Bayron]

Mantonio,

Code: Select all  Expand view  RUN

DEFINE BRUSH oBrush FILE ltrim(RUTA+'\tapiz\mar1.bmp')
 

Ventanaprin:bPainted := {|hDC| PalBmpDraw( hDC, 40, 0, oBrush:hBitmap,, Ventanaprin:nWidth, Ventanaprin:nHeight,, .T.) }

 

y desde la funcion con la que cambies el tapiz, vuelve a difinir el Brush con el mismo nombre:

Code: Select all  Expand view  RUN

DEFINE BRUSH oBrush FILE ltrim(RUTA+'\tapiz\mar2.bmp')
 

[Antonio Linares]

Teniendo el nuevo brush creado, puedes llamar a este código desde donde desees:

Code: Select all  Expand view  RUN

oWnd:SetBrush( oBrush2 )
oWnd:Refresh()
 

[QAZWSX2K]

no va en el activate como on paint, va sencillamente al definir la ventana, luego si se cambia en tiempo de ejecucion seria como en una funcion algo asi:

dire= GETENV("USERPROFILE")+"\Mis documentos\Mis imágenes"
gcFile:= cGetFile32( "BITMAP (*.bmp)| *.bmp|" , "Seleccione un archivo de Imagen",3, dire)
DEFINE BRUSH dibujo file GCFILE
owindows:oBRUSH(dibujo)
owindows:refresh()

y por supuesto las respectivas validaciones de si selecciono un archivo, etc,etc