Вверх ↑
Ответов: 1258
Рейтинг: 47
#1: 2019-03-11 12:29:27 ЛС | профиль | цитата
nesco, спасибо, да я еще не до конца разобрался, времени пока нет, тупо скопировал рабочий пример, повыкидывав наиболее очевидные лишние строки.

--- Добавлено в 2019-03-11 13:27:57

Еще много че лишнего выкинул, добавляю в снипплеты.


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="azizazizov@yandex.ru.ru"
AddHint(-75,34,30,13,Version)
}

карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Редактировалось 1 раз(а), последний 2019-03-11 13:27:57