Здравствуйте, народ
Пару дней бьюсь с Alert, ничего не пойму. Вот просто пример из программы:
procedure vdetail;
var cm : command;
salrt, scapt: String;
begin
scapt:='Подробнее...';
salrt:='Эта программа написана...';
showAlert(scapt,
salrt,
loadImage('/detail.png'),
ALERT_CONFIRMATION);
playAlertSound;
cm := createCommand('Назад', CM_BACK, 1);
addCommand(cm);
delay(1500);
repeat
delay(25);
until getClickedCommand <> emptyCommand;
showForm;// this will clear alert from the screen -
//хорошая фразочка из мануала, лучше уж сразу ClearForm
viewprog; // руками отрисовываю все назад на экране
end;
В реальности у меня в алерт выводятся строки разной длинны из массива. То Алерт выводится вообще без "кнопок", то с кнопкой "ОК", но иногда срабатывает как я хотел, с кнопкой "Назад". Особенно добивает время показа - сколько не ставь в delay, никакой реакции, программа сама решает. Если текст короткий, пропадает через секунды полторы, хороший тренажер скорочтения
Вот если длинная строка, тогда ждет. Кто-нить знает, как с алертом бороться?