Форма MenuIsSelected
Помогите, что я делаю не так
Я хочу чтобы при включении мидлета показывало две формы clock и audio
И если нажать open откроется выделенная форма
program NewProject1;
program NewProject1;
var
time: integer;
text: string;
clock, audio : integer;
open:command;
openClock, openAudio :boolean;
cmdBack : command;
clicked : command;
begin
clock := menuAppendStringImage('clock', loadImage('/clock.png'));
audio := menuAppendStringImage('cudio', loadImage('/audio.png'));
open := createCommand('open', CM_SCREEN, 1);
addCommand(open);
repeat
delay(100);
clicked := getClickedCommand;
until clicked = open;
showCanvas;
if menuIsSelected(clock) then openClock;
if menuIsSelected(audio) then openAudio;
drawText('Нажмите "5" ', 15, 80);
repaint;
delay(1000);
while getKeyClicked <> KE_KEY5 do
begin
delay(100);
end;
drawImage(loadImage('/1.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/2.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/3.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/4.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/5.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/6.gif'), 0, 0);
repaint;
delay(200);
drawImage(loadImage('/logo1.png'), 0, 0);
repaint;
delay(1000);
time := getCurrentTime;
text := 'Время ' + getHour(time);
text := text + ':'+ getMinute(time);
text := text + ':' + getSecond(time);
drawText(text, 30, 40);
repaint;
delay(99999999999);
delay(100);
end.
|