Deze klasse is er louter voor code reUse 1 TControlBasis ================================================================= TCHUI.TMenuItem OOK COMPLIREN WANNEER WIJZIGINGEN AAN DEZE CLASS ================================================================= TCanvas De caption kan een $-teken bevatten voor het karakter dat het item doet selecteren Indien er geen $-teken is dan wordt het eerste karakter genomen %String %Boolean 0 %Boolean "" dan werken checkboxes in een group (radiobuttons)]]> %String Welke ShortCut er moet getoond worden samen met de caption %String TMenuItem list TForm TMenuBasis MenuItem gekoppeld aan Action Bij het tonen wordt de action onUpdate opgeroepen om te triggeren TAction Tijdens het doorlopen van de menu bijhouden welk item actief is %Integer Welke submenu zichtbaar is hierdoor worden hiërarchische menus mogelijk %Integer TFont %String $$$fsLabel 1 %String TControl 1 Events Method OnClick(Sender As TCHUI.ControlBasis) %String Sender:TControlBasis,KeyCode:%String 1 %String FontSelected ParentCanvas,Rij,Kolom,Selected KillFocusOk:%Boolean Selected Marked,Direction,AllowRoundTrip ..Items.Count())) Set End=1 Quit . If TryMarked<1 Set TryMarked=..Items.Count() . If TryMarked>..Items.Count() Set TryMarked=1 . If (..Items.GetAt(TryMarked).Visible) && ($E(..Items.GetAt(TryMarked).Caption)'="-") Set Marked=TryMarked,End=1 . If Marked=TryMarked Set End=1 Quit ; om oneindige loop te vermijden Quit Marked ]]> ParentCanvas,Rij,Kolom CaptionLengte:Item.CaptionLengte(),1:CaptionLengte) . Set ShortCutLengte=$S($L(Item.ShortCut)>ShortCutLengte:$L(Item.ShortCut),1:ShortCutLengte) Do ..Canvas.Init(ParentCanvas,Rij,Kolom, Aantal+2, CaptionLengte+ShortCutLengte+$S(ShortCutLengte:1,1:0)+2) ]]> Top Vertikale positie Marked Key Parent,Name,Caption,Visible,ShortCut,OnClick,Action,GroupIndex TMenuItem Parent,Name,Caption,Visible,ShortCut,OnClick,Action schrijft de caption en de shortcut indien de lengte is opgegeven Canvas,Lengte Checked:%Boolean %Status DoelType