topic-16230

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Image
Posted: Tue Jul 28, 2009 08:21 AM

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 (fw): Select all Collapse

  @ 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

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Image
Posted: Wed Jul 29, 2009 10:40 AM

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

Code (fw): Select all Collapse

@ 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 (fw): Select all Collapse

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

Espero te sea de utilidad.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

FiveTech Support Forums

Continue the discussion