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-sprac...@t-online.de] > Gesendet: Mittwoch, 7. September 2011 08:34 > An: gambas-user@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-sprac...@t-online.de> >> >>> 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.johan...@gmail.com> >>>> >>>>> 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...@gmail.com> >>>>> >>>>>> good question rolf :/ >>>>>> >>>>>> 2011/9/6 Fabien Bodard<gambas...@gmail.com>: >>>>>>> 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@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@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@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@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@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@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user