софт кнопки

Попробовал тут эту прогу. Накатал быстренько приложение считающие корни квадратного уравнения. Запустил на эмуляторе - всё ок. Заливаю на свой Siemens CX65 - софт кнопок нет. Как бороться?

Вот исходный текст:

program FistMidlet; 

var a, b, c : string;
item1,item2, item3, a2, b2, c2, x1, x2, d : integer; 
cmdNext : command;
cmdQuit : command;
cmdStart, clicked : command; 


begin 
 // switch to form mode from default canvas mode 
 ShowForm; 
 
 while clicked <> cmdQuit do
 begin
 ClearForm;
 
  
 // add a text field to the form 
 item1 := FormAddTextField('A:', '', 20, TF_NUMERIC); 
 item2 := FormAddTextField('B:', '', 20, TF_NUMERIC); 
 item3 := FormAddTextField('C:', '', 20, TF_NUMERIC); 
  
 // create a command (button) 
 cmdNext := CreateCommand('Считать', CM_OK, 1); 
 AddCommand(cmdNext); 
  
 // wait until the user clickes on Go! command 
 repeat until GetClickedCommand = cmdNext; 
 RemoveCommand(cmdNext);
 
 
 // retrieve the entered name 
 a := FormGetText(item1); 
 b := FormGetText(item2); 
 c := FormGetText(item3); 
 
 a2 := StringToInteger(a);
 b2 := StringToInteger(B);
 c2 := StringToInteger©;
 
 d := (b2*b2)+(a2*c2*-4);
 
 ShowCanvas; 
 SetColor(255, 255, 255);
 FillRect(0, 0, GetWidth, GetHeight); 
 SetColor(0, 0, 0); 
 if d<0 then
 begin  
 DrawText('Дискриминант меньше нуля!', 0, 0); 
 end
 
 else begin
 
 if a2=0 then
 begin
  
 DrawText('На 0 делить нельзя!', 0, 0); 
 end
 else begin
 
 x1:=((-1)*b2-sqr(d)) div (2*a2);
 x2:=((-1)*b2+sqr(d)) div (2*a2);
  
 DrawText('x1: ' + x1, 0, 0);
 if x1<>x2 then
 DrawText('x2: ' + x2, 0, 20);

 end;
 end; 
 Repaint; 

 
 // create a quit command 
 cmdQuit := CreateCommand('Выход', CM_EXIT, 2); 
 AddCommand(cmdQuit); 
 cmdNext := CreateCommand('Считать', CM_OK, 1); 
 AddCommand(cmdNext);
 repeat
 clicked := GetClickedCommand; 
 until (clicked = cmdQuit) or (clicked = cmdNext); 
 RemoveCommand(cmdNext);
 RemoveCommand(cmdQuit);
 end; 
end.

[Samhein]

[quote]

StringToInteger©;

ээээЭто как?

это форум глюканул. Или ещё что-нибудь. Там написанно (_с_). Только без _.

ето было ( c ) а преобразовалось автоматом в ©

[stinger25]

проверил на C65, все ок! кнопик есть, а в режиме canvas телефон их не показывает. вместо них стрелка в правом нижнем углу.

[stinger25]

че за.... после того как поставил на тел пару патчей (теоретически не должны влиять) попали меню...

говорилиже - сименс ацтой

[stinger25]

воть не надо рассовых беспорядков насчет того кому что нравиться...

[Red Ninja(Михайлов Никита)]

Нокио берите! :D

Originally posted by stinger25@21.1.2006, 10:00
че за.... после того как поставил на тел пару патчей (теоретически не должны влиять) попали меню...

Quoted post

Интересно...

[stinger25]

попробую переписать твою прогу так что бы были меню... (ну или свою напишу..) а потом сравним..

Originally posted by stinger25@4.2.2006, 11:40
попробую переписать твою прогу так что бы были меню... (ну или свою напишу..) а потом сравним..

Quoted post

Давай. Хотя я не представляю как ты перепишишь так чтобы меню были...

[Piligrim]

У меня если в полноэкранном режиме, то команды можно только кнопкой меню вызвать и они тогда из списка выбираются.

Это прямо мистика какая-то. Поставил 2 графических (!) патча самодельных - кнопки появились ).

[stinger25]

так вот и у меня таже мутотень... до граф патча они были.... после него, (ратч на сеть и батарею в стиле нокиа) ... и они пропали