Page 1 of 1
Image scrolling...
Posted: Tue Apr 15, 2014 5:26 am
by hmgchang
Dear All,
It is obvious that we can display images in a form.
How to make the image/picture come out by way of scrolling.
( left to right, top to bottom) ?
thks n rgds
Chang
Re: Image scrolling...
Posted: Tue Apr 15, 2014 4:14 pm
by Javier Tovar
Hola hmgchang,
No he hecho un ejemplo parecido, pero por lo que indicas con un control "Timer", haces un procedimiento que cambien las coordenadas de la imagen cada intervalo de tiempo. Nada más que no se como responda el From, si parpadee o no!
Si tengo tiempo hago al rato un demo.
Saludos
Re: Image scrolling...
Posted: Tue Apr 15, 2014 4:51 pm
by srvet_claudio
hmgchang wrote:Dear All,
It is obvious that we can display images in a form.
How to make the image/picture come out by way of scrolling.
( left to right, top to bottom) ?
thks n rgds
Chang
See:
Code: Select all
DEFINE WINDOW Win1;
AT 0,0;
WIDTH 800;
HEIGHT 600;
VIRTUAL WIDTH 1200;
VIRTUAL HEIGHT 1200;
MAIN
@ 10,10 IMAGE Image_1 PICTURE "cPictureName"
Other way is display the image in PANEL Window.
Re: Image scrolling...
Posted: Tue Apr 15, 2014 5:20 pm
by Javier Tovar
Hola hmgChang,
Creo que lo que quieres hacer es como un protector de pantalla, bueno hice esta aplicación, espero que sea lo que buscas, solo falta jugar un poco (mucho) con las coordenadas, según sea Máxima Columna, Máxima Fila.
Code: Select all
#include "hmg.ch"
Function Main
PUBLIC nRow := 0
PUBLIC nCol := 0
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE 'Timer Test' ;
MAIN
DEFINE IMAGE Image_1
ROW 30
COL 10
HEIGHT 33
WIDTH 33
PICTURE 'Edit_Edit.bmp'
STRETCH .t.
END IMAGE
DEFINE TIMER Timer_1 ;
INTERVAL 1000 ;
ACTION (VerImagen() )
END WINDOW
Form_1.Center
Form_1.Activate
Return
PROCEDURE VerImagen()
nRow := nRow + 10
nCol := nCol + 10
Form_1.Image_1.Row := nRow
Form_1.Image_1.Col := nCol
RETURN NIL
Saludos
Re: Image scrolling...
Posted: Wed Apr 16, 2014 4:07 am
by hmgchang
Thks dr. Claudio n mr. Tovar...
but forgive me for my poor english...
I tried mr. Tovar demo but its a moving picture.
What i meant is something like when "we pulling window curtain for left to right" and
that how i want a picture do come out / moving out. So slowly we can see the right side of
the picture growing from small to bigger ( part of picture more and more and finally whole picture)
* FYI : The more complicated one is like
in Mac when we click icon and it zoom out ( scrolling from small to big)
Re: Image scrolling...
Posted: Wed Apr 16, 2014 8:20 am
by mustafa
Hola hmgchang :
No se si le puede servir mire mi
sample:
viewtopic.php?f=8&t=1108&start=20" onclick="window.open(this.href);return false;
"Music_Tone_New.zip"
Hay unas cortinas que se abren y cierran
mi truco es con varias imagenes de distinto
tamaño y relentizado con Inkey()
dando el efecto que las cortinas se abren y cierran
un saludo
Mustafa
*---------------- google -------------------------*
Hello hmgchang :
If you can not look at my serve
sample:
viewtopic.php?f=8&t=1108&start=20" onclick="window.open(this.href);return false;
"Music_Tone_New.zip"
There are curtains that open and close
My trick is with several images of different
size and throttled back to Inkey ()
giving the effect that the curtains open and close
a greeting
Mustafa
Re: Image scrolling...
Posted: Thu Apr 17, 2014 2:58 am
by hmgchang
Thanks mr. Mustafa for reminding the 80's n 90's....
rgds
chang