Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.programming.threads > #2319
| From | aminer <aminer@toto.net> |
|---|---|
| Newsgroups | comp.programming, comp.programming.threads |
| Subject | Re: My Winmenus was updated to version 1.31... |
| Date | 2014-05-08 10:23 -0700 |
| Organization | albasani.net |
| Message-ID | <lkg421$ij2$2@news.albasani.net> (permalink) |
| References | <lkfuvk$85s$1@news.albasani.net> <lkg400$ij2$1@news.albasani.net> |
Cross-posted to 2 groups.
On 5/8/2014 10:22 AM, aminer wrote: > > > > Sorry i have posted this message on the wrong group. I mean it was not destinated to comp.programming.threads, but to comp.programming. > > > > On 5/8/2014 8:57 AM, aminer wrote: >> >> I correct some typos , please read again... >> >> >> Hello, >> >> >> My Winmenus was updated to version 1.31... >> >> >> WinMenus version 1.31 >> >> Author: Amine Moulay Ramdane >> >> Description: >> >> Drop-Down Menu widget using the Object Pascal CRT unit. Please look at >> the test.pas(a kind of file manager for windows) and test1.pas examples >> inside the zip file. >> >> >> Winmenus is event driven, i have to explain all to you to understand >> more... >> >> >> At first you have to create your Widget menu by executing something like >> this: >> >> Menu1:=TMenu.create(5,5); >> >> This will create a Widget menu at the coordinate (x,y) = (5,5) >> >> After that you have to set your callbacks,cause my Winmenus is event >> driven, so you have to do it like this: >> >> Menu1.SetCallbacks(test,insert,updown); >> >> The SetCallback() method will set your callbacks, the first callbacks >> parameter is the callback that will be executed when the "Enter" key is >> pressed and here it is the "test" function , the second callback >> is the callback that will be executed when the insert key is pressed and >> here above it is the function "insert', and the third callback is the >> callback that will be called when the up and down keys are pressed and >> here above it is the function "updown" , the remaining callbacks that >> you can assign are the keys delete and F1 to F12. >> >> After that you can add your items to the Menu by calling the AddItem() >> method like this: >> >> Menu1.AddItem(inttostr(i)); >> >> >> After that you will enter a loop like this , the template of this loop >> must look like the following, that's not difficult to understand: >> >> Here it is: >> >> === >> repeat >> >> textbackground(blue); >> clrscr; >> menu2.execute(false); >> menu1.execute(false); >> >> case i mod 2 of >> >> 1: ret:=Menu1.Execute(true); >> 0: ret:=Menu2.Execute(true); >> end; >> if ret=ctTab then inc(i); >> >> until ret=ctExit; >> >> menu1.free; >> menu2.free; >> >> end. >> >> == >> >> When you execute menu1.execute(false); >> with a parameter equal to false my Winmenus widget will draw your menu >> without waiting for your input and events, when you set the parameter of >> the execute() method to true it will wait for your input and events, if >> the parameter of the execute method is true and the returned value of >> the execute method is ctTab that means you have pressed on the Tab >> key.. if the returned value is ctExit that means you have pressed on the >> Escape key to exit. >> >> >> That's all, please look at the test1.pas >> example inside the zip and you will understand my Winmenus , it is very >> easy to work with. >> >> You can download Winmenus 1.3 from: >> >> https://sites.google.com/site/aminer68/winmenus >> >> >> >> Thank you, >> Amine Moulay Ramdane. >
Back to comp.programming.threads | Previous | Next — Previous in thread | Find similar | Unroll thread
My Winmenus was updated to version 1.31... aminer <aminer@toto.net> - 2014-05-08 08:57 -0700
Re: My Winmenus was updated to version 1.31... aminer <aminer@toto.net> - 2014-05-08 10:22 -0700
Re: My Winmenus was updated to version 1.31... aminer <aminer@toto.net> - 2014-05-08 10:23 -0700
csiph-web