Hi Fabien,
I attach the RandomRotaPic little project based on your algorithm.
What do you think about it?
Regards
Gianluigi
Il giorno mer 5 dic 2018 alle ore 11:07 Gianluigi <bagonergi at gmail.com> ha
scritto:
> Hi Fabien,
> excellent :-D
> That's exactly what I was looking for.
> Thank you very much.
> (Google had inserted your email into spam, Google is really smart GRRR!)
>> Regards
> Gianluigi
>> Il giorno mar 4 dic 2018 alle ore 23:08 Fabien Bodard <gambas.fr at gmail.com>
> ha scritto:
>>> ouch not Draw.Image ... but Paint.DrawImage... Draw is Obsolete
>>>> Le mar. 4 déc. 2018 à 22:59, Fabien Bodard <gambas.fr at gmail.com> a
>> écrit :
>>>>> This is a new version ... i have forget to reinit the initial position
>>> when the first image reach the view top.
>>>>>>>>>>>> Le mar. 4 déc. 2018 à 22:38, Fabien Bodard <gambas.fr at gmail.com> a
>>> écrit :
>>>>>>> Sorry for the late :-)
>>>>>>>> I think this is what you are looking for :-)... and there is not
>>>> picture box any more.
>>>>>>>> Le sam. 1 déc. 2018 à 22:19, Fabien Bodard <gambas.fr at gmail.com> a
>>>> écrit :
>>>>>>>>> no
>>>>> I will try to show you an example tomorow
>>>>>>>>>> Le sam. 1 déc. 2018 à 19:43, Gianluigi <bagonergi at gmail.com> a écrit :
>>>>>>>>>>> do you mean: Using two pictureboxes, moving and loading them to make
>>>>>> a smooth movement appear?
>>>>>> Ok, I'll try but not today
>>>>>>>>>>>> Regards
>>>>>>>>>>>> Il giorno sab 1 dic 2018 alle ore 18:57 Fabien Bodard <
>>>>>>gambas.fr at gmail.com> ha scritto:
>>>>>>>>>>>>> you must not load images in one image... in fact you must load each
>>>>>>> image in a image variable.
>>>>>>>>>>>>>> then you manage the layout during the drawing event.
>>>>>>>>>>>>>> a timer trigger call the drawing area event when needed ... during
>>>>>>> the move.
>>>>>>>>>>>>>>>>>>>>>>>>>>>> Le sam. 1 déc. 2018 à 18:28, Gianluigi <bagonergi at gmail.com> a
>>>>>>> écrit :
>>>>>>>>>>>>>>> Hi Fabien,
>>>>>>>> the idea of loading images into one image was silly and I should
>>>>>>>> have understood it right away.
>>>>>>>> Too heavy.
>>>>>>>> Aborted project.
>>>>>>>>>>>>>>>> Regards
>>>>>>>> Gianluigi
>>>>>>>>>>>>>>>> Il giorno sab 1 dic 2018 alle ore 15:21 Fabien Bodard <
>>>>>>>>gambas.fr at gmail.com> ha scritto:
>>>>>>>>>>>>>>>>> Ok I seen the idea ...
>>>>>>>>>>>>>>>>>> For the movement you can take a look in the FAbout of the ide code
>>>>>>>>>>>>>>>>>> Le sam. 1 déc. 2018 à 14:05, Gianluigi <bagonergi at gmail.com> a
>>>>>>>>> écrit :
>>>>>>>>>>>>>>>>>>> Hi Fabien,
>>>>>>>>>> very interesting, excellent result and little work :-D
>>>>>>>>>>>>>>>>>>>> My problem is to adapt a sequence of images of different format
>>>>>>>>>> and type in a single film-like image (to be clear).
>>>>>>>>>> I thought about doing so, this is just the first part of the code
>>>>>>>>>> (now I use the mouse wheel just to try), I do not think I can adapt your
>>>>>>>>>> code here.
>>>>>>>>>>>>>>>>>>>> The idea (idiot) came to me from a question on our forum and so I
>>>>>>>>>> would like to build an image viewer that shows a random image like a slot
>>>>>>>>>> machine, now I start to study how to give it the movement (I do not know if
>>>>>>>>>> two images series are enough).
>>>>>>>>>> You can lose a lot of money by betting us over ;-D
>>>>>>>>>>>>>>>>>>>> Regards
>>>>>>>>>> Gianluigi
>>>>>>>>>>>>>>>>>>>> Il giorno sab 1 dic 2018 alle ore 08:44 Fabien Bodard <
>>>>>>>>>>gambas.fr at gmail.com> ha scritto:
>>>>>>>>>>>>>>>>>>>>> Hi dear friend
>>>>>>>>>>>>>>>>>>>>>> This is the same with less work ;-)
>>>>>>>>>>>>>>>>>>>>>> Regards
>>>>>>>>>>>>>>>>>>>>>> Fabien Bodard
>>>>>>>>>>>>>>>>>>>>>> Le ven. 30 nov. 2018 à 16:30, Gianluigi <bagonergi at gmail.com> a
>>>>>>>>>>> écrit :
>>>>>>>>>>>>>>>>>>>>>>> Finally it works
>>>>>>>>>>>> See attached file
>>>>>>>>>>>>>>>>>>>>>>>> Reagards
>>>>>>>>>>>> Gianluigi
>>>>>>>>>>>>>>>>>>>>>>>> Il giorno ven 30 nov 2018 alle ore 15:39 Gianluigi <
>>>>>>>>>>>>bagonergi at gmail.com> ha scritto:
>>>>>>>>>>>>>>>>>>>>>>>>> This is the correct code (?):
>>>>>>>>>>>>>>>>>>>>>>>>>> [code]Private Sub Scale(img As Image)
>>>>>>>>>>>>>>>>>>>>>>>>>> Dim w, h As Integer
>>>>>>>>>>>>>>>>>>>>>>>>>> w = img.W
>>>>>>>>>>>>> h = img.H
>>>>>>>>>>>>> If h > w Then
>>>>>>>>>>>>> $H = PictureBox1.H
>>>>>>>>>>>>> $W = (PictureBox1.H * w) \ h
>>>>>>>>>>>>> If $W > PictureBox1.W Then
>>>>>>>>>>>>> $W = PictureBox1.W
>>>>>>>>>>>>> $H = (PictureBox1.W * $H) \ $W
>>>>>>>>>>>>> $X = PictureBox1.X
>>>>>>>>>>>>> $Y = PictureBox1.Y + ((PictureBox1.H - $H) \ 2)
>>>>>>>>>>>>> Return
>>>>>>>>>>>>> Endif
>>>>>>>>>>>>> $Y = PictureBox1.Y
>>>>>>>>>>>>> $X = PictureBox1.X + ((PictureBox1.W - $W) \ 2)
>>>>>>>>>>>>> Else
>>>>>>>>>>>>> $W = PictureBox1.W
>>>>>>>>>>>>> $H = (PictureBox1.W * h) \ w
>>>>>>>>>>>>> If $H > PictureBox1.H Then
>>>>>>>>>>>>> $H = PictureBox1.H
>>>>>>>>>>>>> $W = (PictureBox1.H * $W) \ $H
>>>>>>>>>>>>> $Y = PictureBox1.Y
>>>>>>>>>>>>> $X = PictureBox1.X + ((PictureBox1.W - $W) \ 2)
>>>>>>>>>>>>> Return
>>>>>>>>>>>>> Endif
>>>>>>>>>>>>> $X = PictureBox1.X
>>>>>>>>>>>>> $Y = PictureBox1.Y + ((PictureBox1.H - $H) \ 2)
>>>>>>>>>>>>> Endif
>>>>>>>>>>>>>>>>>>>>>>>>>> End [/code]
>>>>>>>>>>>>>>>>>>>>>>>>>> Although I would love to be able to create a code capable of
>>>>>>>>>>>>> scaling images on the Form_Resize event
>>>>>>>>>>>>> A task too burdensome for my tired brain.
>>>>>>>>>>>>>>>>>>>>>>>>>> Regards
>>>>>>>>>>>>> Gianluigi
>>>>>>>>>>>>>>>>>>>>>>>>>> Il giorno ven 30 nov 2018 alle ore 13:10 Gianluigi <
>>>>>>>>>>>>>bagonergi at gmail.com> ha scritto:
>>>>>>>>>>>>>>>>>>>>>>>>>>> I need to paint an image in a new image and then show it in a
>>>>>>>>>>>>>>picturebox.
>>>>>>>>>>>>>> The thing seems to work correctly only if the picturebox is
>>>>>>>>>>>>>> the only component on the window.
>>>>>>>>>>>>>> If the hbox is present, the image is deformed (stretching)
>>>>>>>>>>>>>> and the lower part of the image is positioned under the hbox.
>>>>>>>>>>>>>> Am I wrong?
>>>>>>>>>>>>>> I attach a project and two explanatory images (with
>>>>>>>>>>>>>> magnifying glass).
>>>>>>>>>>>>>>>>>>>>>>>>>>>> Regards
>>>>>>>>>>>>>> Gianluigi
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by
>>>>>>>>>>>>https://www.hostsharing.net ]----
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> --
>>>>>>>>>>> Fabien Bodard
>>>>>>>>>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by
>>>>>>>>>>>https://www.hostsharing.net ]----
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by
>>>>>>>>>>https://www.hostsharing.net ]----
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> --
>>>>>>>>> Fabien Bodard
>>>>>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net>>>>>>>>> ]----
>>>>>>>>>>>>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net>>>>>>>> ]----
>>>>>>>>>>>>>>>>>>>>>>>>>>>>> --
>>>>>>> Fabien Bodard
>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net>>>>>>> ]----
>>>>>>>>>>>>>>>>>>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net>>>>>> ]----
>>>>>>>>>>>>>>>>>>>>> --
>>>>> Fabien Bodard
>>>>>>>>>>>>>>>>> --
>>>> Fabien Bodard
>>>>>>>>>>>>> --
>>> Fabien Bodard
>>>>>>>>> --
>> Fabien Bodard
>>>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net ]----
>>>-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20181209/65940c8f/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: RandomRotaPic-0.0.1.tar.gz
Type: application/gzip
Size: 13310 bytes
Desc: not available
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20181209/65940c8f/attachment-0001.gz>