Сообщение от Dimon
А можете сделать чтоб когда спрашивал перейти или нет, если нажать "Нет" то возвращался к приложению??? А то к меня бесконечные запросы если нажимаю не переходить по ссылке
|
Вот пример вызова на номер и обратный выход в меню.
program calll;
Uses menu32, font32, resloader, m2;
Var wi, hi, key, j: integer;i: string;
Begin
wi:=GetWidth; hi:=GetHeight;
SetColor(15,15,255); FillRect(0,0,wi,hi);
font32.init(2);
Font(0); LoadFont('Verdana_10');Font(1); LoadFont('Verdana_10b');
menu32.init;
LoadCursor(CreateCursor(wi, font32.TextHeight, 2298478591)); // Создаём курсор
MenuFonts(0, 1);
SetMenuWindow(0, 0, wi, hi);
AddItem2(LoadImage('/icon.png'), 'Name 1', '+7**********');
AddItem2(LoadImage('/icon.png'), 'Name 2', '+7**********');
DrawMenu; Repaint;
repeat
key:=KeyToAction(GetKeyPressed); Delay(50);
if key=GA_DOWN then begin CursorDown; DrawMenu; Repaint; Delay(100); end; // Вниз
if key=GA_UP then begin CursorUp; DrawMenu; Repaint; Delay(100); end; // Вверх
if key=GA_FIRE then
begin
i:=(SelectedValue);
j:=m2.platform_request('tel:'+ i);
end;DrawMenu; Repaint; Delay(100);
until false;
end.
пример был рабочим со старой версией font32, с новой не проверял надо только сменить шрифты.