Image

[colthop]

Hola a todos:

Tengo una imagen y dentro quiero poner campos de una base de datos, todo va bien pero si la imagen es mas grande que el recuadro actua el scroll pero cuando pinchas en las flechas la imagen se desplaza pero las variables no. Como podria hacer para que se desplazaran con la imagen. Yo he puesto lo siguiente:

Code: Select all

  @ 10*ProporV, 10*ProporH IMAGE tDlg001 FILENAME oImg         OF oDlgwVen PIXEL SCROLL SIZE 600*ProporH,500*ProporV
  @ 50*ProporV,135*ProporH SAY vDlg001 VAR ejercicio            OF tDlg001 PIXEL SIZE  29*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER
  @ 50*ProporV,232*ProporH SAY vDlg002 VAR va100                OF tDlg001 PIXEL SIZE  17*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER
  @ 23*ProporV,370*ProporH SAY vDlg003 VAR va101                OF tDlg001 PIXEL SIZE  11*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER
  @ 60*ProporV,450*ProporH SAY vDlg004 VAR substr(texto02,1,13) OF tDlg001 PIXEL SIZE  83*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER
  @168*ProporV,536*ProporH SAY vDlg005 VAR c1                   OF tDlg001 PIXEL SIZE  41*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER PICT "######"
  @209*ProporV,494*ProporH SAY vDlg006 VAR c2                   OF tDlg001 PIXEL SIZE  83*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER PICT "###########.##"
  @249*ProporV,494*ProporH SAY vDlg007 VAR c3                   OF tDlg001 PIXEL SIZE  83*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER PICT "###########.##"
  @290*ProporV,494*ProporH SAY vDlg008 VAR c4                   OF tDlg001 PIXEL SIZE  83*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER PICT "###########.##"
  @330*ProporV,494*ProporH SAY vDlg009 VAR c5                   OF tDlg001 PIXEL SIZE  83*ProporH,16*ProporV COLOR escri03, fondo03 FONT oFont CENTER PICT "###########.##"
  tDlg001:Zoom(ProPorH*600/840)

Un saludo

Y gracias enticipadas

Carlos

[antolin]

Ségún la primera línea que nos muestras

Code: Select all

@ 10*ProporV, 10*ProporH IMAGE tDlg001 FILENAME oImg  OF  ...

tDlg001 es el objeto TIMAGE y oImg es el nombre de la foto, ¿seguro que no están al revés?

En caso de que esté todo corrrecto, según el metodo ::AdjControls() de la clase TBITMAP (de la que hereda TIMAGE) tus SAY's deberían moverse con la imagen. De todas formas comprueba cuantos elementos tiene tDlg001:aControls. Debería de ser tan grande como SAY's has colocado. De no ser así tendras que rellenar tDlg001:aControls antes de activar el DIALOG

Por ejemplo:

Code: Select all

ASIZE(tDlg001:aControls,9)
tDlg001:aControls[1] := vDlg001
tDlg001:aControls[2] := vDlg002
...

Espero te sea de utilidad.