Hola a todos.
Es posible crear un objeto imagen (con un determinado tamaño ), sin recurso o fichero ?
vamos, un objeto imagen virtual.
Gracias
Jesús MarÃn
FWH 6.12
Jesús MarÃn
deumare@gmail.com
deumare@gmail.com
Board index FiveWin para Harbour/xHarbour es posible crear ... ? (SOLUCIONADO, mas o menos)
Si, Windows proporciona la capacidad de hacerlo
Que necesitas hacer luego con ese objeto imagen ?
Buenos dÃas Antonio.
Dentro de ese objeto imagen, quiero colocar otros objetos (imágenes, xbrowse, ….)
El tamaño serÃa variable, por lo que necesito poder cambiarlo en ejecución.
Por ejemplo, en un mantenimiento de artÃculos quiero poner artÃculos relacionados ( de la misma familia, artÃculos similares, variantes de color).
La imagen puede contener docenas de artÃculos relacionados y por tanto la imagen contenedora (que ya he implementado como moverme por ella ), contiene los datos.
Dentro de ese objeto imagen, quiero colocar otros objetos (imágenes, xbrowse, ….)
El tamaño serÃa variable, por lo que necesito poder cambiarlo en ejecución.
Por ejemplo, en un mantenimiento de artÃculos quiero poner artÃculos relacionados ( de la misma familia, artÃculos similares, variantes de color).
La imagen puede contener docenas de artÃculos relacionados y por tanto la imagen contenedora (que ya he implementado como moverme por ella ), contiene los datos.
Jesús MarÃn
deumare@gmail.com
deumare@gmail.com
Buenas a todos.
No he creado la imagen virtual (seguiré investigando), pero voy avanzando con este nuevo control.
Ya lo puedo redimensionar en tiempo de ejecución.
Básicamente es ir haciendo zoom a la imagen de base. Esto cambia el tamaño. Obviamente no puede utilizarse para una imagen tipo plantilla, pero si para imágenes planas.
Os iré contando como voy avanzando, pero me parece que puede quedar muy bien.
El código para redimensionar es este :
Y como una imagen vale mas que mil palabras
OBJETO REDIMENSIONADO AL TAMAÑO (ALTURA) NECESARIO
No he creado la imagen virtual (seguiré investigando), pero voy avanzando con este nuevo control.
Ya lo puedo redimensionar en tiempo de ejecución.
Básicamente es ir haciendo zoom a la imagen de base. Esto cambia el tamaño. Obviamente no puede utilizarse para una imagen tipo plantilla, pero si para imágenes planas.
Os iré contando como voy avanzando, pero me parece que puede quedar muy bien.
El código para redimensionar es este :
METHOD ResizeInf( nHeight)
LOCAL nZoom:=0
LOCAL N:=1
// POSICIONA LA IMAGEN ARRIBA
IF ::nX<0
  DO WHILE .T.
   IF ::nX>=0 ; EXIT ; ENDIF
   ::ScrollDown()
  ENDDO
ENDIF
::oNewScroll:nTop:=1
::oNewScroll:Refresh()
::Zoom(1)
::Refresh()
nZoom:=(nHeight/::nHeight)
::Zoom(nZoom)
::Refresh()
// RECALCULAR TAMAÑO SCROLL
::nNewScrollDiferencial := ::nHeight/(::oWnd:nHeight)
::oNewScroll:nHeight:= (::oWnd:nHeight/::nNewScrollDiferencial)
::oNewScroll:nHeight:=::oNewScroll:nHeight+5
::oNewScroll:nTop:=1
::oNewScroll:Refresh()
RETURN(NIL)Y como una imagen vale mas que mil palabras
OBJETO REDIMENSIONADO AL TAMAÑO (ALTURA) NECESARIO
Jesús MarÃn
deumare@gmail.com
deumare@gmail.com