[Gambas-user] MouseDown event and Gambas3

Demosthenes Koptsis demosthenesk at ...626...
Thu Jan 20 07:03:59 CET 2011


i attach the project.

gambas3-svn3442 @ x32
gambas3-svn3475 @ x64

ubuntu, gtk

none of mouse events are working.

On Thu, 2011-01-20 at 02:27 +0100, Benoît Minisini wrote:
> > Good morning,
> > 
> > the following example is not working in gambas3-svn3475
> > 
> > ------------------------------
> > ' Gambas class file
> > 
> > Public Function Color() As Integer
> > 
> >   Dim Red As Integer
> >   Dim Green As Integer
> >   Dim Blue As Integer
> >   Dim sColor As String
> >   Dim iColor As Integer
> > 
> >   Red = Rnd(0, 256)
> >   Green = Rnd(0, 256)
> >   Blue = Rnd(0, 256)
> > 
> >   sColor = "&" & Hex(Red, 2) & Hex(Green, 2) & Hex(Blue, 2) & "&"
> >   Print sColor
> >   iColor = Val(sColor)
> >   Return iColor
> > 
> > End
> > 
> > Public Sub Form_MouseDown()
> > 
> >   Me.Background = Color()
> > 
> > End
> > -----------------------------------
> > 
> > The code try to change the bgcolor of Form with random colors on mouse
> > clicks.
> > 
> > This example is working in Gambas2.
> > 
> > I think Form_MouseDown event is not working or i don't know...
> 
> Plase provide a full project as much as possible.
> 
> Regards,
> 

-- 
Regards,
Demosthenes
-------------- next part --------------
A non-text attachment was scrubbed...
Name: RndColor.tar.bz2
Type: application/x-bzip-compressed-tar
Size: 6138 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20110120/9b1f2698/attachment.bin>


More information about the User mailing list