Image scrolling...

[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

[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

[srvet_claudio]

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.

[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

TIMER.1Mio.rar

(843.23 KiB) Downloaded 307 times

Saludos

[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)

[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

[hmgchang]

Thanks mr. Mustafa for reminding the 80's n 90's....


rgds
chang