Показать сообщение отдельно
Старый 21.02.2007, 18:09   #8
alien
AnyKey`щик
 
Регистрация: 25.01.2007
Сообщений: 10
Написано 0 полезных сообщений
(для 0 пользователей)
Re: Примеры простейших программ

Благодарю за отклики !

В случае первого примера проблемы были с самим компилятором.Просто
переписал текст заново и всё заработало...
Работаем далее...
Вследующем примере никак не могу добится очищения экрана 'canvas'
Результаты расчета накладываются друг на друга....


program NewProject2;
var
ok,back,clicked:command;
c:Integer;
r:Integer;
d:real;
c1:string;
begin
playAlertSound;
repeat

showForm;
ok := createCommand('Cчитать',CM_OK, 1);
addCommand(ok);
setColor(0, 0, 255);
setTicker('Сделал я ....');
c:= formAddTextField('Лечимое число', '', 10, TF_numeric);
repaint;
while (getClickedcommand <> ok) do
delay(100);
removeCommand(back);
removeCommand(ok);
showCanvas;
c1:= FormGetText(c);
r:= StringToInteger(c1);
ok := createCommand('Далее',CM_OK, 1);
addCommand(ok);
back:=createCommand('Выход', CM_Exit, 1);
addCommand(back);
drawtext(''+sqrt(r),10,30);
repaint;
repeat
clicked := getClickedCommand;
until clicked <> emptyCommand;
removeCommand(back);
removeCommand(ok);
clearform;
until clicked = back;
playAlertSound;
delay(100);
end.
И это еще не все . есть затруднение с использованием предупреждения showAlert . Как вывести простой текст в окне предупреждения ? Пример в русском хелпе почемуто не работает...
(Offline)
 
Ответить с цитированием