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..
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour UNA SOBRE BRUSH
Mantonio,
Yo apenas estoy apenas aprendiendo a programar, pero talvez funcionaria:
oBrush:cBmpFile := new.bmp
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
Mantonio,
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()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
Mantonio,
y desde la funcion con la que cambies el tapiz, vuelve a difinir el Brush con el mismo nombre:
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:
DEFINE BRUSH oBrush FILE ltrim(RUTA+'\tapiz\mar2.bmp')=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
Teniendo el nuevo brush creado, puedes llamar a este código desde donde desees:
oWnd:SetBrush( oBrush2 )
oWnd:Refresh()
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
Software especializado para oficinas contables con grandes volumenes de Informacion
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217
Impresion de todos los formularios del Seniat, Dian
alex_patino74@hotmail.com
whatsapp 57+3214777217