Path: csiph.com!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From: Sky89 <Sky89@sky68.com>
Newsgroups: comp.programming.threads
Subject: WinMenus using wingraph version 1.0
Date: Thu, 23 Aug 2018 14:06:11 -0400
Organization: A noiseless patient Spider
Lines: 74
Message-ID: <plmt2k$lld$2@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Thu, 23 Aug 2018 18:06:12 -0000 (UTC)
Injection-Info: reader02.eternal-september.org; posting-host="451f17a4381d0c89c5c5da074911cac7"; logging-data="22189"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX184mR3cR3cyXZGh/VBjVxko"
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.9.1
Cancel-Lock: sha1:u89AKuiRmL220ZjCqPFq0jKUIaU=
Content-Language: en-US
X-Mozilla-News-Host: news://news.eternal-september.org:119
Xref: csiph.com comp.programming.threads:4588

Hello,


I have implemented Winmenus using wingraph, this one is graphical, i 
have also included an Opengl demo and other demos , just execute the 
real3d1.exe executable inside the zipfile to see how it is powerful, i 
will soon enhance much more my Winmenus.

WinMenus using wingraph version 1.0

Author: Amine Moulay Ramdane

Description:

Drop-Down Menu widget using the Object Pascal wingraph unit , it 
supports keyboard and mouse. Please look at the real3d1.pas demo inside 
the zip file, i have included its 64 bit executable, please run it and 
see(please double click with the mouse on the items to execute  and 
click on the middle mouse to stop the demo, and press escape to exit 
from the demo).

And use the 'Up' and 'Down' and 'PageUp and 'PageDown' to scroll the menu..
And 'Enter' to select an item from the menu..
And the 'Esc' on the keyboard to exit from the menu..

and right arrow and left arrow to scroll on the left or on the right of 
the menu

Winmenus is event driven, i have to explain it more 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) in characters = (5,5)

After that you have to set your callback function, cause my Winmenus is 
event driven, so you have to add an item with AddItem() and set the 
callback function at the same time, like this:

AddItem('First 3D opengl demo',test1);

test1 will be the callback function.

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 ctExit that 
means you have pressed on the Escape key to exit.


You can download my Winmenus from:

https://sites.google.com/site/scalable68/winmenus-using-wingraph

Language: FPC Pascal v2.2.0+ / Delphi 7+: http://www.freepascal.org/

Operating Systems: Windows..

Required FPC switches: -O3 -Sd -dFPC -dFreePascal

-Sd for delphi mode....

Required Delphi switches: -DMSWINDOWS -$H+



Thank you,
Amine Moulay Ramdane.