Var Result: string;
Result := MenuItemAdd('MyMenu', 'Days of the week', '', '', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '', '', '', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '1. Monday', 'Monday', '1', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '2. Tuesday', 'Tuesday', '2', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '3. Wednesday', 'Wednesday', '3', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '4. Thursday', 'Thursday', '4', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '5. Friday', 'Friday', '5', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '6. Saturday', 'Saturday', '6', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '7. Sunday', 'Sunday', '7', '', '', '', '', '', '', '');
Result := MenuItemAdd('MyMenu', '', '', '', '', '', '', '', '', '', '');
Result := InputMenu('MyMenu', 6000, '', '');
Exit;
|
|
|
|