Вверх ↑
Разработчик
Ответов: 26149
Рейтинг: 2127
#1: 2019-03-09 22:42:18 ЛС | профиль | цитата
А вот что-то типа этого, КМК, просил Aziz. После нажатия на "Компиляция" на единицу увеличивается версия в компонентах Version и Label.
Для наглядности идентификаторы и текст Label выведены в отдельные переменные

Схема

Add(MainForm,2953706,217,49)
{
}
Add(Label,6009454,266,91)
{
Left=25
Top=15
Width=140
Height=25
Font=[MS Sans Serif,12,1,0,1]
Caption="Version -- 1.13"
AutoSize=1
AddHint(40,34,83,13,Caption)
}
Add(ScriptEvents,88089,217,133)
{
Script=#26:Function CmdEvent(Command)|26: If Command = "build" Then|0:|27: Dim ID_Version as Integer|27: Dim ID_Label as Integer|26: Dim stCaption as String|0:|23: ID_Version = 11511461|22: ID_Label = 6009454|29: stCaption = "Version -- " |0:|90: SDK.SetProp(ID_Version, "Version", Str(Real(SDK.GetProp(ID_Version, "Version")) + 0.01))|82: SDK.SetProp(ID_Label, "Caption", stCaption + SDK.GetProp(ID_Version, "Version"))|0:|7: End If|13:End |
}
Add(Version,11511461,217,91)
{
Version="1.13"
Description="Test Auto Increment Version"
InternalName="Auto Increment Version"
E-mail="nesco_sochi@mail.ru"
AddHint(-75,34,36,13,Version)
}


--- Добавлено в 2019-03-09 23:25:01

Nic, не подскажешь, где можно найти весь список команд среды? Или в редакторе команд и есть весь список?
карма: 22

0
Редактировалось 4 раз(а), последний 2019-03-10 22:27:31