Elements\Android\code\result\\

Elements\Android\code\project\app\src\main\\

include("General")

func Init()
  if((Type = 0) and ((isdef(File)) or (isdef(Name)) or (isdef(Path))))
    return(0)
  end
  if((Type = 1) and ((isdef(JavaCode)) or (isdef(Name))))
    return(0)
  end
  if(Type = 0)                                               //<--File
    lng.createdir('Elements\Android\code\project\app\src\main\\' && Path)
    lng.proptofile(File, 'Elements\Android\code\project\app\src\main\\' && Path && '\\' && Name)
  else                                                       //<--JavaCode
    fvar(tmp, old, i, s)
  
    tmp = block.reggen()
    old = block.select(tmp)
  
    for(i = 0; i < array_count(JavaCode); i++)
      s = code(replace(JavaCode[i], 'ParentClass', CURRENT_CLASS))
      println(code(replace(s, 'CURRENT_PACKAGE', PACKAGE_NAME)))
    end
  
    if(isdef(Path))
      block.savecode(SOURCE_DIR && Name)
    else
      lng.createdir('Elements\Android\code\project\app\src\main\\' && Path)
      block.savecode('Elements\Android\code\project\app\src\main\\' && Path && '\\' && Name)
    end
    block.select(old)
  end
end

Add(MainActivity,2953706,658,266)
{
}
Add(FileResource,13033581,707,266)
{
}
Add(MediaPlayer,14504656,707,322)
{
 link(Resource,13033581:ResourceID,[])
}

Add(MainActivity,10566379,98,70)
{
 Width=397
 AppName="PROBNIK"
 Package="PROBNIK.hiasmproject"
 Caption="PROBNIK"
}
Add(EditText,13772623,539,224)
{
 Top=180
 Width=390
}
Add(Button,7182828,252,77)
{
 Width=390
 Caption="СОЗДАТЬ"
 Point(onClick)
 link(onClick,458839:doOpen,[])
}
Add(Button,6627616,252,266)
{
 Top=105
 Width=390
 Caption="ЗАПИСАТЬ"
 Point(onClick)
 link(onClick,14419417:doWrite,[(342,272)(342,244)])
}
Add(Button,9788325,252,427)
{
 Top=240
 Width=390
 Caption="ЗАКРЫТЬ"
 Point(onClick)
 link(onClick,14419417:doClose,[(380,433)(380,251)])
}
Add(FileReadWrite,14419417,399,224)
{
 FileName="/storage/emulated/0/TEXT.txt"
 ReadType=10
 Point(doClose)
 link(onRead,13772623:doText,[])
 link(onEOF,2354115:doShow,[])
 link(onError,5168447:doShow,[(465,244)(465,300)])
 link(onErrorIO,2358325:doShow,[(453,251)(453,356)])
 link(FileRW,13517061:Value,[])
}
Add(AlertDialog,2358325,483,350)
{
 Title="IO Error"
 Positive="OK"
}
Add(AlertDialog,5168447,483,294)
{
 Title="Open/Close error"
 Positive="OK"
}
Add(AlertDialog,2354115,483,231)
{
 Message="Достигнут конец файла!"
 Title="EOF"
 Positive="OK"
}
Add(File,458839,399,77)
{
 Path="/storage/emulated/0/TEXT.txt"
 MakeFull=1
}
Add(EditText,13517061,399,168)
{
 Top=75
 Width=390
 Hint="ТЕКСТ ДЛЯ ЗАПИСИ"
}
Add(Button,1299466,252,224)
{
 Top=20
 Width=390
 Caption="ОТКРЫТЬ"
 Point(onClick)
 link(onClick,14419417:doOpen,[])
}
Add(Button,15583078,252,322)
{
 Left=-5
 Top=155
 Width=395
 Caption="ПРОЧИТАТЬ"
 Point(onClick)
 link(onClick,14419417:doRead,[(353,328)(353,237)])
}