[Gambas-user] PictureBox and Containers strange behaviour
Fabien Bodard
gambas.fr at gmail.com
Tue Dec 4 22:59:01 CET 2018
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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20181204/a406083b/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: rotapic-0.0.1.tar.gz
Type: application/gzip
Size: 152960 bytes
Desc: not available
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20181204/a406083b/attachment-0001.gz>
More information about the User
mailing list