Вверх ↑
Этот топик читают: Гость
Ответов: 1682
Рейтинг: 149
#31: 2019-03-11 06:59:52 ЛС | профиль | цитата
Nic писал(а):
3042, «Author: Dilma Time: 06 Oct 2006 18:13», а за окном 2019-й. Как думаете насколько может быть актуальна информация 13-ти летней давности?

Тогда дамп свежего файла ..\Int\hiasm.db и поиск таких фрагментов:
CREATE TABLE "commands" (id INTEGER PRIMARY KEY AUTOINCREMENT,
name varchar(128),
info_id int,
key int,
shift int,
ctrl int);
INSERT INTO "commands" VALUES(1,'new',1,78,0,1);
INSERT INTO "commands" VALUES(2,'open',2,79,0,1);
INSERT INTO "commands" VALUES(3,'save',3,83,0,1);
INSERT INTO "commands" VALUES(4,'saveas',4,0,0,0);
INSERT INTO "commands" VALUES(5,'print',5,0,0,0);
INSERT INTO "commands" VALUES(6,'reopen',6,0,0,0);
INSERT INTO "commands" VALUES(7,'exit',7,0,0,0);
INSERT INTO "commands" VALUES(8,'delete',8,46,0,0);
...


--- Добавлено в 2019-03-11 07:09:03

Вот только работает далеко не всё:
http://forum.hiasm.com/topic/56396
http://forum.hiasm.com/topic/60457/0

Редактировалось 2 раз(а), последний 2019-03-11 07:10:28
карма: 5
0
Ответов: 952
Рейтинг: 34
#32: 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 если схема не менялась а только запускалась? Сейчас она реагирует на запуск тоже.

Редактировалось 6 раз(а), последний 2019-03-11 12:22:21
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 25393
Рейтинг: 2070
#33: 2019-03-11 12:24:07 ЛС | профиль | цитата
Aziz писал(а):
твоя кнопка очень пригодилась

Ну, это как бы не моя кнопка, она в среде давно была
Aziz писал(а):
А с кнопкой сброс версии идет корректно

А на черта в скрипте определение вот этих переменных, если они нигде не используются
  Dim num as Real
Dim ver as String
Dim Title as String
Dim strTitle as String
Это безобразие можно смело выбросить для твоего случая
Да и вот это лишнее, тк кавычки уже означают, что переменная строковая.
Str("1.0")
Те все, что находится в скрипте твоей кнопки, можно привести вот к такому виду, выбросив все лишнее, включая и ненужные остальные функции
function Click()
SDK.SetProp(11511461, "Version", "1.0")
SDK.SetProp(4593378, "Default", "1.0")
end

Редактировалось 1 раз(а), последний 2019-03-11 12:25:08
карма: 19

0
Ответов: 952
Рейтинг: 34
#34: 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)
}


Редактировалось 1 раз(а), последний 2019-03-11 13:27:57
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 952
Рейтинг: 34
#35: 2019-03-11 13:37:27 ЛС | профиль | цитата
А вот версия учитывающая только пересохранение схемы (сохранить как).


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

карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
35
Сообщение
...
Прикрепленные файлы
(файлы не залиты)