[Gambas-user] Does really nobody have an idea?
Rolf-Werner Eilert
eilert-sprachen at ...221...
Wed Sep 7 10:35:25 CEST 2011
Hi Andreas,
Thanks! Looks nice... I tried to integrate it into the program. It DOES
function, but only if I click on the panel below the menu. All other
controls in the program seem to be ignored. Same with MouseUp. KeyPress
doesn't react at all. Here is it:
PUBLIC SUB Form_Open()
DIM OBJ AS Object
DIM OBSwatchall AS Observer
'Start an Observer for Each Control on this Form
FOR EACH OBJ IN ME.Children
OBSwatchall = NEW Observer(OBJ) AS "WatchAll"
NEXT
ini.DateiLesen
ME.Width = ini.FensterBreite()
ME.Height = ini.FensterHoehe()
IF ini.FensterZentrieren() THEN
ME.Center
ELSE
ME.X = ini.FensterX()
ME.Y = ini.FensterY()
END IF
ME.Title = "Kartei 7.3"
ME.Font.Size = ini.FontGroesse()
'ldsv.DateisperrenAufraeumen
EinrichtenBaum
Log.Check
END
PUBLIC SUB WatchAll_MouseDown()
Suche.text = LAST.Name & "_MouseDown()"
END
Any idea what is wrong?
Rolf
Am 07.09.2011 10:11, schrieb Andreas Fröhlke:
> Hello,
>
> here's my idea. In Form_Open use the following Code:
>
> DIM OBJ as Object
> DIM OBSwatchall AS Observer
>
> 'Start an Observer for Each Control on this Form
> FOR EACH OBJ IN ME.Children
> OBSwatchall = NEW Observer(OBJ) AS "WatchAll"
> NEXT
>
>
> Then you only need one Function Like:
>
> Public SUB WatchAll_MouseDown()
> PRINT LAST.Name& "_MouseDown()"
> END
>
> You also can use other Events which must be available for each control like:
>
> MouseUp, MouseDown, KeyPress, KeyRelease, GotFocus, LostFocus, ...
>
>
> Regards A.Fröhlke
>
> -----Ursprüngliche Nachricht-----
> Von: Rolf-Werner Eilert [mailto:eilert-sprachen at ...221...]
> Gesendet: Mittwoch, 7. September 2011 08:34
> An: gambas-user at lists.sourceforge.net
> Betreff: Re: [Gambas-user] Does really nobody have an idea?
>
> Thank you Jorge, at a first glance this looks promising. I'll try to
> understand it when I've got some more time, maybe this afternoon or so...
>
> Regards
>
> Rolf
>
>
> Am 06.09.2011 20:35, schrieb Jorge Carrión:
>> Here there is a class that do exactly what you want (I hope).
>>
>> http://www.gambas-es.org/download.php?id=82
>> I included a little proyect with example.
>>
>> Hope it'll be usefull.
>>
>> Regards.
>>
>>
>> 2011/9/6 Rolf-Werner Eilert<eilert-sprachen at ...221...>
>>
>>> Thanks for your idea, Dag-Jarle, but isn't this effort exactly what I
>>> would like to avoid?
>>>
>>> I guess the whole thing depends on the question of how QT or GTK handle
>>> the events of the controls within a window/application. I cannot imagine
>>> that the controls are accessed by the GUI (X) directly. That would imply
>>> an event loop for each control. Instead, I would expect one event loop
>>> for the application within which you have one event request for each
>>> window within which you have one event request for each control of that
>>> window.
>>>
>>> If there is a slot for the overall mouse activities of one window or
>>> application in QT (on the C++ side), it should be easy for Benoit to
>>> connect this to a Gambas event. If not, things are different :-)
>>>
>>> Regards
>>>
>>> Rolf
>>>
>>>
>>> Am 06.09.2011 17:04, schrieb Dag-Jarle Johansen:
>>>> Something happened....
>>>>
>>>> public sub WriteLogg()
>>>> print GetMe.name (and or other options)
>>>> end
>>>>
>>>> And the heavy stuff is here:
>>>>
>>>> for every Object you want to control, you will have to:
>>>>
>>>> private sub xxx_control_click()
>>>> GetMet=xxx_control
>>>> m.WriteLogg
>>>>
>>>> Alternate WriteLogg as function
>>>>
>>>> public WriteLogg(xctrl as control)
>>>> print xctrl.name....
>>>>
>>>> I am sure one of the guys here have more sophisticated solutions for
>>> you.,
>>>> f.eks the event-handler on every form, but I am not so good at that yet.
>>>>
>>>> Regards,
>>>> Dag-Jarle
>>>>
>>>> 2011/9/6 Dag-Jarle Johansen<dag.jarle.johansen at ...626...>
>>>>
>>>>> Hi,
>>>>>
>>>>> I had to write something like that in VB for QM. Even though the effort
>>>>> might be overwhelming, I would do some thing like this:
>>>>>
>>>>> make a global object in some module,
>>>>> f.eks.
>>>>> m.module
>>>>> public GetMe as object
>>>>>
>>>>> in the same module you save or do anything f.eks
>>>>>
>>>>> puclic sub WriteLogg()
>>>>>
>>>>>
>>>>>
>>>>> 2011/9/6 Fabien Bodard<gambas.fr at ...626...>
>>>>>
>>>>>> good question rolf :/
>>>>>>
>>>>>> 2011/9/6 Fabien Bodard<gambas.fr at ...626...>:
>>>>>>> first answer for steve
>>>>>>>
>>>>>>> Public Sub Slider1_MouseUp()
>>>>>>>
>>>>>>> Print "Mouse is released"
>>>>>>>
>>>>>>> End
>>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> --
>>>>>> Fabien Bodard
>>>>>>
>>>>>>
>>>>>>
>>> ------------------------------------------------------------------------------
>>>>>> Special Offer -- Download ArcSight Logger for FREE!
>>>>>> Finally, a world-class log management solution at an even better
>>>>>> price-free! And you'll get a free "Love Thy Logs" t-shirt when you
>>>>>> download Logger. Secure your free ArcSight Logger TODAY!
>>>>>> http://p.sf.net/sfu/arcsisghtdev2dev
>>>>>> _______________________________________________
>>>>>> Gambas-user mailing list
>>>>>> Gambas-user at lists.sourceforge.net
>>>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>>>>
>>>>>
>>>>>
>>>>
>>> ------------------------------------------------------------------------------
>>>> Special Offer -- Download ArcSight Logger for FREE!
>>>> Finally, a world-class log management solution at an even better
>>>> price-free! And you'll get a free "Love Thy Logs" t-shirt when you
>>>> download Logger. Secure your free ArcSight Logger TODAY!
>>>> http://p.sf.net/sfu/arcsisghtdev2dev
>>>> _______________________________________________
>>>> Gambas-user mailing list
>>>> Gambas-user at lists.sourceforge.net
>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>>
>>>
>>>
>>>
>>> ------------------------------------------------------------------------------
>>> Special Offer -- Download ArcSight Logger for FREE!
>>> Finally, a world-class log management solution at an even better
>>> price-free! And you'll get a free "Love Thy Logs" t-shirt when you
>>> download Logger. Secure your free ArcSight Logger TODAY!
>>> http://p.sf.net/sfu/arcsisghtdev2dev
>>> _______________________________________________
>>> Gambas-user mailing list
>>> Gambas-user at lists.sourceforge.net
>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>
>> ------------------------------------------------------------------------------
>> Malware Security Report: Protecting Your Business, Customers, and the
>> Bottom Line. Protect your business and customers by understanding the
>> threat from malware and how it can impact your online business.
>> http://www.accelacomm.com/jaw/sfnl/114/51427462/
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>
>
> ------------------------------------------------------------------------------
> Using storage to extend the benefits of virtualization and iSCSI
> Virtualization increases hardware utilization and delivers a new level of
> agility. Learn what those decisions are and how to modernize your storage
> and backup environments for virtualization.
> http://www.accelacomm.com/jaw/sfnl/114/51434361/
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
More information about the User
mailing list