Вверх ↑
Ответов: 1263
Рейтинг: 47
#1: 2019-03-11 12:10:43 ЛС | профиль | цитата
Nesco, твоя кнопка очень пригодилась) Потому что невозможно было руками выставить версию 1.0 и в Version и в Memory. Если последний править ручками, то скрипт не дает и Хиасм выдавал ошибку. А с кнопкой сброс версии идет корректно.


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()|21: Dim _Date as String|22: Dim _Title as String|25: Dim _strTitle as String|51: 'Date = net_Text("http://localhost/callDate.asp")|29: _Date = Time("D:M:Y h:m:s")|37: _Title = SDK.GetProp(18582, "Info")|84: _strTitle = Delete(_Title, Len(_Title) - Len(_Date), Len(_Date) + 1) + " " + _Date|39: sdk.SetProp(18582, "Info", _strTitle)|41: sdk.SetProp(15432977, "Default", _Date)|2: |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 12:16:17)
}
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()|21: Dim _Date as String|22: Dim _Title as String|25: Dim _strTitle as String|51: 'Date = net_Text("http://localhost/callDate.asp")|29: _Date = Time("D:M:Y h:m:s")|37: _Title = SDK.GetProp(18582, "Info")|84: _strTitle = Delete(_Title, Len(_Title) - Len(_Date), Len(_Date) + 1) + " " + _Date|39: sdk.SetProp(18582, "Info", _strTitle)|3:end|0:|16:function Click()|17: Dim num as Real|19: Dim ver as String|21: Dim Title as String|24: Dim strTitle as String|2: |46: SDK.SetProp(11511461, "Version", Str("1.0"))|45: SDK.SetProp(4593378, "Default", Str("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)
}


--- Добавлено в 2019-03-11 12:16:20

Получилось очень красиво и удобно:



--- Добавлено в 2019-03-11 12:21:55

Только вот как заставить SaveBefore() не реагировать на кнопку RUN если схема не менялась а только запускалась? Сейчас она реагирует на запуск тоже.
карма: 3
Hiasm + Flowstone + CopperCube + GoDot + JS
0
Редактировалось 6 раз(а), последний 2019-03-11 12:22:21