[Gambas-user] Does really nobody have an idea?

Fabien Bodard gambas.fr at ...626...
Wed Sep 7 19:05:17 CEST 2011 

normal ... the function must be iterative... to take all the child of
containers into account

2011/9/7 Rolf-Werner Eilert <eilert-sprachen at ...221...>:
> 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
>>
>
>
> ------------------------------------------------------------------------------
> 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
>



-- 
Fabien Bodard

More information about the User mailing list