de menubar wordt getoond]]> 1 TMenuBasis 0 %Integer %Integer %String Method OnShow(Sender As %String) %String Method OnHide(Sender As %String) %String ParentCanvas,Rij,Kolom,Selected Sender:TControlBasis,KeyCode:%String ParentCanvas,Rij,Kolom CaptionLengte:Item.CaptionLengte(),1:CaptionLengte) . Set ShortCutLengte=$S($L(Item.ShortCut)>ShortCutLengte:$L(Item.ShortCut),1:ShortCutLengte) Set:((Rij+Aantal+2+ParentCanvas.OffsetRij)>%Screen.Height) Rij=%Screen.Height-(Aantal+2+ParentCanvas.OffsetRij) Set Width=CaptionLengte+ShortCutLengte+$S(ShortCutLengte:1,1:0)+2 Set:((Kolom+Width+ParentCanvas.OffsetKol)>%Screen.Width) Kolom=%Screen.Width-(Width+ParentCanvas.OffsetKol+2) Do ..Canvas.Init(ParentCanvas,Rij,Kolom,Aantal+2,Width+2) ]]> 1 Parent,Name TControl 1 Parent,Name DoelType