[Gambas-user] PictureBox and Containers strange behaviour
Fabien Bodard
gambas.fr at gmail.com
Tue Dec 4 23:03:44 CET 2018
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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20181204/9679901e/attachment.html>
More information about the User
mailing list