unit FreeVision.Menus; {$DEFINE FPC_DOTTEDUNITS} {$i menus.pas}