Работает при нажатии кнопки SaveAs и Build, не реагируя на Run и Save.
Обсуждение: http://forum.hiasm.com/topic/67309/2
Add(MainForm,2953706,21,105)
{
}
Add(ScriptEvents,88089,462,77)
{
Script=#15:function Load()|3:end|0:|0:|15:function Save()|31: ' _Date = Time("D:M:Y h:m:s")|43: ' sdk.SetProp(15432977, "Default", _Date) |3:end|0:|21:function SaveBefore()|4: |3:end|0:|15: |26:Function CmdEvent(Command)|26: If Command = "build" Then|17: Dim num as Real|19: Dim ver as String|21: Dim Title as String|24: Dim strTitle as String|46: num = Real(SDK.GetProp(11511461, "Version"))|48: SDK.SetProp(11511461, "Version", Str(num+0.1))|40: ver = SDK.GetProp(11511461, "Version")|47: SDK.SetProp(4593378, "Default", Str(num+0.1))|0:|7: End If|28: If Command = "saveas" Then|2: |29: _Date = Time("D:M:Y h:m:s")|42: sdk.SetProp(15432977, "Default", _Date) |0:|7: End If|13:End |
}
Add(Memory,15432977,567,77)
{
@Hint=#25:Дата пересохранения схемы|
Default=String(11:03:2019 13:40:07)
}
Add(Memory,4593378,518,77)
{
@Hint=#12:Версия билда|
Default=String(1.0)
}
Add(SDKBtn,2695686,357,77)
{
Width=65
Script=#15:function Load()|3:end|0:|15:function Save()|3:end|0:|21:function SaveBefore()|3:end|0:|16:function Click()|0:|41: SDK.SetProp(11511461, "Version", "1.0")|40: SDK.SetProp(4593378, "Default", "1.0")|0:|3:end|
Caption="ResetVer"
}
Add(Version,11511461,238,77)
{
Version="1.0"
Description="VersionTest 1.0"
InternalName="VersionTest 1.0.exe"
E-mail="azizazizovGAVyandex.ru.ru"
AddHint(-75,34,30,13,Version)
}
Версия реагирующая на каждый запуск и Save:
Add(MainForm,2953706,21,105)
{
}
Add(ScriptEvents,88089,462,77)
{
Script=#15:function Load()|3:end|0:|15:function Save()|3:end|0:|21:function SaveBefore()|29: _Date = Time("D:M:Y h:m:s")|46: sdk.SetProp(15432977, "Default", _Date) |3:end|0:|15: |26:Function CmdEvent(Command)|26: If Command = "build" Then|17: Dim num as Real|19: Dim ver as String|21: Dim Title as String|24: Dim strTitle as String|46: num = Real(SDK.GetProp(11511461, "Version"))|48: SDK.SetProp(11511461, "Version", Str(num+0.1))|40: ver = SDK.GetProp(11511461, "Version")|47: SDK.SetProp(4593378, "Default", Str(num+0.1))|0:|7: End If|13:End |
}
Add(Memory,15432977,567,77)
{
@Hint=#16:Дата модификации|
Default=String(11:03:2019 13:30:34)
}
Add(Memory,4593378,518,77)
{
@Hint=#12:Версия билда|
Default=String(1.0)
}
Add(SDKBtn,2695686,357,77)
{
Width=65
Script=#15:function Load()|3:end|0:|15:function Save()|3:end|0:|21:function SaveBefore()|3:end|0:|16:function Click()|0:|41: SDK.SetProp(11511461, "Version", "1.0")|40: SDK.SetProp(4593378, "Default", "1.0")|0:|3:end|
Caption="ResetVer"
}
Add(Version,11511461,238,77)
{
Version="1.0"
Description="VersionTest 1.0"
InternalName="VersionTest 1.0.exe"
E-mail="azizazizovGAVyandex.ru.ru"
AddHint(-75,34,30,13,Version)
}
Поиск
Друзья
Администрация