program Core3;
uses canvas,sensor;
var m1w,m1h,m2w,m2h:integer;
metod1,metod2,logostr:string;
open,mini,panel:image;
Procedure debug_space; forward;
Procedure sample; //приложение-пример для отладки
begin <<тут говорит что не знает таких переменных
drawimage(win,getwidth/2-120,getheight/2-130); drawtext('Окно программы',getwidth/2-90,getheight/2-120);
drawimage(mini,40,getheight-35);
repaint;
repeat
if (pointer_state<>0) and (pointer_pressed_x>70) and (pointer_pressed_x<110) and (pointer_pressed_y>getheight-35) and (pointer_pressed_y<getheight) then begin while pointer_state=1 do delay(1); debug_space; end;
until false;
end;
Procedure debug_loader; //загрузка режима отладки
begin
setcolor(255,255,255); fillrect(0,0,getwidth,getheight); repaint;
setFont(font_face_system,font_style_plain,font_size_small);
mini:=loadimage('/mini.png'); panel:=loadimage('/panel.png'); open:=loadimage('/open.png');
set:=loadimage('/set.png'); win:=loadimage('/window.png');
debug_space;
end;