🚀 go-pugleaf

In article <36e70a79.2185270@forums.borland.com>, Ken Mayer [TeamB] 
politely paraphrased ...
> 
> >tutorial, it has almost everything. (only a missing toolbar on 
> >_app.framewin, missing EDIT menu and the Windows one misses the 
> >cascade... stuff <hint> <BG>)
> 
> I couldn't find the Windows cascade and such ... wanna tell me how to
> do that?
----
Here's an example from Jim Sare, all in 1 file and run.

If Type("GetParent") # "FP"
   extern CHANDLE GetParent(CHANDLE) User32
EndIf

If Type("SendMessage") # "FP"
   extern CLONG SendMessage(CHANDLE, CINT, CWORD, CLONG) User32 from 
"SendMessageA"
EndIf
#define MDITILE_HORIZONTAL 1
#define MDITILE_VERTICAL 0

#define WM_MDIICONARRANGE HToI("0228")
#define WM_MDICASCADE HToI("0227")
#define WM_MDITILE HToI("0226")
#define WM_MDINEXT HToI("0224")


set proc to program(1) addi
f=new form()
f.open()
NEW MDITMPMENU(f,"Root")
f=new form()
f.left=10
f.open()
NEW MDITMPMENU(f,"Root")

shell(false)
return



** END HEADER -- do not delete *
* Erstellt am 26/02/99
*
Parameter FormObj
NEW MDITMPMENU(FormObj,"Root")
CLASS MDITMPMENU(FormObj,Name) OF MENUBAR(FormObj,Name)


   DEFINE MENU FILE OF THIS;
       PROPERTY; 
         Text "&File"

         DEFINE MENU EXIT OF THIS.FILE ;
             PROPERTY; 
               Text "E&xit",;
               OnClick {; FORM.Close()}

   DEFINE MENU WINDOW OF THIS;
       PROPERTY; 
         Text "&Window"

         DEFINE MENU NEXT OF THIS.WINDOW;
             PROPERTY; 
               Text "&Next",;
               OnClick ;
{; SendMessage(GetParent(FORM.hWND), HToI("0224"), 0, 0)}

         DEFINE MENU CASCADE OF THIS.WINDOW;
             PROPERTY; 
               Text "&Cascade",;
               OnClick;
 {; SendMessage(GetParent(FORM.hWND), HToI("0227"), 0, 0)}

         DEFINE MENU TILE_HORIZONTALLY OF THIS.WINDOW;
             PROPERTY; 
               Text "&Tile Horizontally",;
               OnClick;
 {; SendMessage(GetParent(FORM.hWND), HToI("0226"), 1, 0)}

         DEFINE MENU TILE_VERTICALLY OF THIS.WINDOW;
             PROPERTY; 
               Text "Tile &Vertically",;
               OnClick ;
{; SendMessage(GetParent(FORM.hWND), HToI("0226"), 0, 0)}

         DEFINE MENU ARRANGE_ICONS OF THIS.WINDOW;
             PROPERTY; 
               Text "&Arrange Icons",;
               OnClick;
 {; SendMessage(GetParent(FORM.hWND), HToI("0228"), 0, 0)}

   DEFINE MENU HELP OF THIS;
       PROPERTY; 
         Text "Help"
   this.windowMenu = this.window

ENDCLASS

> I left out the EDIT menu intentionally, as there are EDIT buttons on
> the button bar that is placed on the forms.

> 
> And I left out toolbars because the thing is complex enough that I
> didn't want to get into toolbars and toolbuttons ...
> 
> So there!
---
Same way IMO, the buttons on the toolbar use much less resources since 
they are there only _once_ even if 50 forms are open.
-- 
Romain Strieff [TeamB]
Please read this newsgroup guide below before 
posting on the private Inprise newsgroups.
http://www.inprise.com/newsgroups/guide.html
--