1. Buttons
- Posted by Irv Mullins <irvm at ellijay.com> Aug 01, 2001
- 460 views
I have several buttons on panels like: leftButtonText = {"E&XIT","&NEXT","&PREV","&FIND","&ADD","&SETTAB"} and 'alt letter' like 'alt x' will activate the EXIT button's process. I would also like to just press the letter 'x' (upper or lower) and not have to press the alt as well. Is their a way to do this? I was wondering when you were going to ask :) Hook the onKeyPress event for the window on which the buttons appear: procedure MainWindow_onKeyPress ( int keyCode, int shift ) keyCode = upper(keyCode) if keyCode = 'C' then ReadCustomerFile() openWindow(CustomerWindow,Normal) elsif keyCode = 'D' then ReadDriverFile() openWindow(DriverWindow,Normal) .... and so on. Regards, Irv
2. Re: Buttons
- Posted by George Walters <gwalters at sc.rr.com> Aug 01, 2001
- 488 views
thanks Irv... ..george ----- Original Message ----- From: "Irv Mullins" <irvm at ellijay.com> To: "EUforum" <EUforum at topica.com> Subject: Buttons > > I have several buttons on panels like: > > leftButtonText = {"E&XIT","&NEXT","&PREV","&FIND","&ADD","&SETTAB"} > > and 'alt letter' like 'alt x' will activate the EXIT button's process. I > would also like to just press the letter 'x' (upper or lower) and not have > to press the alt as well. Is their a way to do this? > > I was wondering when you were going to ask :) > > Hook the onKeyPress event for the window on which the buttons appear: > procedure MainWindow_onKeyPress ( int keyCode, int shift ) > keyCode = upper(keyCode) > if keyCode = 'C' then > ReadCustomerFile() > openWindow(CustomerWindow,Normal) > elsif keyCode = 'D' then > ReadDriverFile() > openWindow(DriverWindow,Normal) > .... and so on. > > Regards, > Irv > > > > >
3. Re: Buttons
- Posted by George Walters <gwalters at sc.rr.com> Aug 01, 2001
- 445 views
Irv, and Derick Where is ... onKeyPress[Screen] = routine_id("onKeyPress_Screen")... documented? the w32lib_full.ew book says the syntax for onKeyPress is like....onKeyPress(keyCode,shift)....which does not work but what you send does...am I missing some doc somewhere?? ..george ----- Original Message ----- From: "Irv Mullins" <irvm at ellijay.com> To: "EUforum" <EUforum at topica.com> Subject: Buttons > > I have several buttons on panels like: > > leftButtonText = {"E&XIT","&NEXT","&PREV","&FIND","&ADD","&SETTAB"} > > and 'alt letter' like 'alt x' will activate the EXIT button's process. I > would also like to just press the letter 'x' (upper or lower) and not have > to press the alt as well. Is their a way to do this? > > I was wondering when you were going to ask :) > > Hook the onKeyPress event for the window on which the buttons appear: > procedure MainWindow_onKeyPress ( int keyCode, int shift ) > keyCode = upper(keyCode) > if keyCode = 'C' then > ReadCustomerFile() > openWindow(CustomerWindow,Normal) > elsif keyCode = 'D' then > ReadDriverFile() > openWindow(DriverWindow,Normal) > .... and so on. > > Regards, > Irv > > > > >
4. Re: Buttons
- Posted by Derek Parnell <ddparnell at bigpond.com> Aug 01, 2001
- 454 views
Hi George, > ------- Start of forwarded message ------- > From: George Walters <gwalters at sc.rr.com> > To: EUforum <EUforum at topica.com> > Reply-To: EUforum at topica.com > Subject: Re: Buttons > Date: 2/08/2001 10:47:23 AM > > Irv, and Derick > Where is ... onKeyPress[Screen] = > routine_id("onKeyPress_Screen")... > documented? the w32lib_full.ew book says the syntax for onKeyPress is > like....onKeyPress(keyCode,shift)....which does not work but > what you send > does...am I missing some doc somewhere?? > Is it the "[Screen]" part you are inquiring about? If so, you are correct, this functionality isn't documented in the HTML file. It is only documented in the source code. I'll fix that up. However, it is possible to set an event handler for the 'Screen' control. When you do this, all events of the type specified are trapped regardless of which actual control initiated the event. Thus "onKeyPress[Screen] = routine_id(<whatever>)" will cause the <whatever> routine to fire up for every keypress in the application regardless of which control had keyboard focus at the time. This is not the typical way that Windows programming is done and is only used for special circumstances. Normally you would set up a seperate keyboard handler for each specific control you were interested in. With the Screen option, you have to be careful because you might cause unwanted side-effects. For example, in your case you want the 'X' key to exit the window. However, if the user was entering data into an edit box and happened to enter the word "fox", you could cause the program to exit prematurely. In this case you might want to test which control had focus and exclude the special 'X' processing for edit boxes. Also, in a related issue, you can get the KeyPress handler to tell Windows to ignore the key just entered by the user. For example: procedure onKeyPress_Screen(integer keycode, integer shifts) if find(keycode, "pP") and getControlInfo(getSelf(), CONTROLINFO_type) != EditText then PrintInvoice() -- Get Windows to ignore this key. returnvalue(-1) end if end procedure ----------- cheers, Derek Parnell Senior Design Engineer Global Technology Australasia Ltd dparnell at glotec.com.au --------------------- confidential information intended solely for the use of the individual or entity to whom they are addressed. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify the sender immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of Global Technology Australasia Limited.
5. Buttons
- Posted by Renzo Beggia <renzo.beggia at VSK.BE> Jul 19, 2000
- 415 views
Hi, Does anybody of u pro's know how to : Make a Picturebutton or Pushbutton TRANSPARENT ??? or Change the color of the Button Background and/or TEXTcolor or Make non-rectangular buttons (for ex.: Round buttons) If u know , or if u can help me Please mail me because i could really need this in Euphoria (and please Don't tell me Visual Basic rules over Euphoria,cause in VB it is a piece of cake) Thanks Renzo from Belgium (still busy Trying to program in Euphoria using Win32lib) next to this ,Euphoria still misses .MDB access and animation (ani gif)
6. Re: Buttons
- Posted by =?iso-8859-2?B?qWtvZGE=?= <tone.skoda at SIOL.NET> Jul 20, 2000
- 418 views
- Last edited Jul 21, 2000
------=_NextPart_000_0040_01BFF297.8E153040 charset="iso-8859-2" > Make non-rectangular buttons (for ex.: Round buttons) i came accross this on the web. i didnt test it, but should work. its vb code. you can easily transalte it to euphoria code using win32lib. let me know if you do it, becuase i am interested in this too. send code to see it when done. i got it on this site: http://www.vbcode.com/asp/showsn.asp?theID=220 attached is the whole file, down here is the most important code: Private Function GetTextRgn() As Long Dim hRgn1 As Long, hRgn2 As Long Dim rct As RECT BeginPath hdc TextOut hdc, 10, 10, Chr$(255), 1 'Windows Flag 'Circle (2000, 2000), 1000 'Circle window 'Create any path you want in this section to create your irregular window. EndPath hdc hRgn1 = PathToRegion(hdc) GetRgnBox hRgn1, rct hRgn2 = CreateRectRgnIndirect(rct) CombineRgn hRgn2, hRgn2, hRgn1, 1 DeleteObject hRgn1 GetTextRgn = hRgn2 End Function ----when you create window, use this function after created: hRgn = GetTextRgn() SetWindowRgn (hwnd, hRgn, 1) ------=_NextPart_000_0040_01BFF297.8E153040 name="irregular shaped windows.txt" Content-Transfer-Encoding: quoted-printable