From: d@d.d   
      
   Hello..   
      
      
   My GUI components are here..   
      
   Why am i implementing GUI components and the process by wich   
   you organize them into a more interesting and interactive GUI applications ?   
      
   You can still use Qt GUI libraries or the like , but what   
   i am doing is "learning" the Delphi and FreePascal community   
   how to design and to implement the following GUI components   
   with simple primitives of Wingraph that is like the graph   
   unit of Turbo Pascal:   
      
   - Button   
   - Label   
   - TextBox   
   - MessageBox   
   - Memo   
   - Panel   
   - RadioButton   
   - CheckBox   
   - ProgressBar   
   - TreeMenu   
   - Calendar   
      
   You have to know that "using" GUI libraries is much easier   
   but to be able to understand the "inside" of how to   
   implement sophisticated GUI components from   
   simple graphical primitives is better and is good to know.   
      
   About my next TreeMenu GUI component, i think i will also implement soon   
   and easily a TreeMenu component, that is like TreeView but it is   
   constituted with two of my Winmenus and with my StringTree, i think you   
   will appreciate it because it will be "powerful" because it will use a   
   much enhanced version of my Winmenus.   
      
   More explanation of the GUI components..   
      
   Now the following GUI components are supported:   
      
   - Button   
   - Label   
   - TextBox   
   - MessageBox   
   - CheckBox   
   - Winmenus   
      
      
   I will soon add a more powerful GUI component called TreeMenu,   
   it will look like the GUI of a file manager, but you will   
   be able to click on the callbacks and to search etc.   
      
   Also i will soon provide you with a calendar GUI component and with a   
   checkbox component.   
      
   I have corrected a small bug in the event loop, now i think all is   
   working correctly, and i think my units are stable, here is the units   
   that have included inside the zip file of my new Winmenus version 1.23:   
   so i have included the my Graph3D unit for 3D graphism that looks like   
   the graph unit of turbo pascal, and i have included my enhanced Winmenus   
   GUI component using wingraph, and i have included the GUI unit that   
   contains the other GUI components, and of course i have included   
   Wingraph that look like the graph unit of Turbo Pascal but it is for   
   Delphi and FreePascal.   
      
   About my software project..   
      
   As you have noticed i have extended the GUI components using Wingraph,   
   now i have added a checkbox GUI component, now here is the GUI   
   components that are supported:   
      
   - Button   
   - Label   
   - TextBox   
   - MessageBox   
   - CheckBox   
   - Winmenus   
      
      
   But i think that the Memo GUI component can be "emulated" with my   
   Winmenus GUI component, so i think that my Winmenus GUI component is   
   powerful and i think it is complete now, and i will soon add a more   
   powerful GUI component called TreeMenu that will look like the GUI of a   
   file manager, but you will be able to click on the callbacks and to   
   search etc. it will be implemented with two of my Winmenus and with my   
   powerful StringTree here:   
      
   sites.google.com/.../stringtree   
      
      
   And soon i will also implement a Calendar GUI component and   
   a ProgressBar GUI component.   
      
   But you have to understand me , i am implementing those   
   GUI components so that you will be able to design and implement   
   more interactive GUI applications for graphical applications   
   with Wingraph and such.   
      
      
   You can download Winmenus using wingraph that contains all the units   
   above that i have implemented from:   
      
   sites.google.com/.../winmenus-using-wingraph   
      
      
   I have also implemented the text mode WinMenus, here it is:   
      
      
   Description   
      
   Drop-Down Menu Widget using the Object Pascal CRT unit   
      
   Please look at the test.pas example inside the zip file Use the 'Delete'   
   on the keyboard to delete the items   
   and use the 'Insert' on the keyboard to insert the items   
   and use the 'Up' and 'Down' and 'PageUp and 'PageDown' to scroll .. and   
   use the 'Tab' on the keyboard to switch between the Drop Down Menus and   
   'Enter' to select an item..   
   and the 'Esc' on the keyboard to exit..   
   and the 'F1' on keyboard to delete all the items from the list   
   right arrow and left arrow to scroll on the left or on the right   
   You can search with SearchName() and NextSearch() methods and now the   
   search with wildcards inside the Widget is working perfectly.   
      
   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(insert,updown);   
      
   The SetCallbacks() method will set your callbacks, the first callback   
   parameter is the callback that will be executed when the insert key is   
   pressed and it is the insert() function, and the second callback is the   
   callback that will be called when the up and down keys are pressed and   
   it is the function "updown" , the remaining callbacks that you can   
   assign are the following keys: Delete and F1 to F12.   
      
   After that you can add your items and the callbacks to the Menu by   
   calling the AddItem() method like this:   
      
   Menu1.AddItem(inttostr(i),test1);   
      
   the test1 is a callback that you add with AddItem() method.   
      
   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, and if the returned value is   
   ctExit, that means you have pressed on the Escape key to exit.   
      
      
   You can download my text mode Winmenus from:   
      
   sites.google.com/.../winmenus   
      
      
   And my units are working with Delphi and FreePascal and C++Builder.   
      
      
   Thank you,   
   Amine Moulay Ramdane.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)