Add(MainForm,4679472,287,112)
{
 Width=441
 Height=440
 Caption="MP3 tags editor demo"
 Position=1
}
Add(Button,4983622,238,63)
{
 Width=433
 Height=30
 Align=2
 Caption="Open mp3 file"
 link(onClick,15601583:doExecute,[])
}
Add(VBJScript,12596653,350,63)
{
 WorkPoints=#8:ReadInfo|9:WriteInfo|
 EventPoints=#6:onInfo|7:onClear|
 Script=#21:' autor - andrestudio|45:Dim objPlayer, objCurrentMedia, sTmp, aArr, i|20:On Error resume next|44:Set objPlayer = CreateObject("WMPlayer.OCX")|2:  |22:Sub ReadInfo(filename)|16:  sys.onClear ""|52:  Set objCurrentMedia = objPlayer.newMedia(filename)|50:  For i = 0 To  objCurrentMedia.attributeCount - 1|46:    sTmp = objCurrentMedia.getAttributeName(i)|52:    If Not objCurrentMedia.isReadOnlyItem(sTmp) Then|63:      sys.onInfo sTmp & ";" & objCurrentMedia.getItemInfo(sTmp)|10:    End If|7:  Next |11:  sTmp = ""|7:End Sub|0:|19:Sub WriteInfo(info)|32:  sArr = Split(info & ";", ";") |58:  objCurrentMedia.setItemInfo CStr(sArr(0)), CStr(sArr(1))|7:End Sub|0:|0:|18:Sub doWork(dt,idx)|17:  Select case idx|35:    Case  "ReadInfo"   ReadInfo(dt)|36:    Case  "WriteInfo"  WriteInfo(dt)|12:  End Select|7:End Sub|
 UseName=0
 link(onInfo,1375441:doAdd,[])
 link(onClear,1375441:doClear,[])
}
Add(ODialog,15601583,287,63)
{
 Filter="mp3|*.mp3"
 StartDir="C:\"
 link(onExecute,12596653:ReadInfo,[])
}
Add(StringTable,1375441,406,63)
{
 Top=30
 Width=433
 Height=383
 Align=5
 Columns=#8:Tags=200|14:Properties=600|
 Grid=0
 Point(onLineChange)
 Point(Strings)
 link(onLineChange,6783907:doValue,[])
}
Add(Memory,6783907,455,70)
{
 Default=Integer(0)
 link(onData,13134795:doRead,[(499,76)(499,121)(408,121)(408,139)])
}
Add(ArrayRW,13134795,420,133)
{
 link(onRead,12596653:WriteInfo,[(464,139)(464,175)(335,175)(335,76)])
 link(Array,1375441:Strings,[])
 link(Index,6783907:Value,[(433,113)(461,113)])
}