Browse Source

version 1.12

tags/v1.12
Vladimir Smagin 2 years ago
parent
commit
3ff75c7ce2
100 changed files with 553 additions and 93 deletions
  1. +0
    -0
     
  2. +0
    -0
     
  3. +0
    -0
     
  4. +0
    -0
     
  5. BIN
     
  6. +0
    -0
     
  7. +0
    -0
     
  8. +0
    -0
     
  9. +33
    -35
      avtokanal.lps
  10. +0
    -0
     
  11. +0
    -0
     
  12. +34
    -35
      backup/avtokanal.lps.bak
  13. +1
    -1
      backup/unit1.lfm.bak
  14. +11
    -7
      backup/unit1.pas.bak
  15. +0
    -0
     
  16. +191
    -0
      distrib/Russian.nlf
  17. +129
    -0
      distrib/Russian.nsh
  18. BIN
     
  19. BIN
     
  20. +68
    -0
      distrib/ark_tomsk.nsi
  21. BIN
     
  22. BIN
     
  23. BIN
     
  24. +3
    -0
      distrib/license.txt
  25. BIN
     
  26. +28
    -0
      distrib/nsProcess.nsh
  27. +1
    -0
      distrib/version
  28. +1
    -0
      distrib/version.w32
  29. +0
    -0
     
  30. BIN
     
  31. +0
    -0
     
  32. +0
    -0
     
  33. +0
    -0
     
  34. +0
    -0
     
  35. BIN
     
  36. +0
    -0
     
  37. +0
    -0
     
  38. +0
    -0
     
  39. +0
    -0
     
  40. +0
    -0
     
  41. +1
    -1
      laucher/backup/unit1.lfm.bak
  42. +3
    -3
      laucher/backup/unit1.pas.bak
  43. +0
    -0
     
  44. +0
    -0
     
  45. +5
    -0
      laucher/lib/i386-win32/ark_laucher.compiled
  46. BIN
     
  47. BIN
     
  48. BIN
     
  49. BIN
     
  50. BIN
     
  51. BIN
     
  52. BIN
     
  53. BIN
     
  54. BIN
     
  55. BIN
     
  56. BIN
     
  57. BIN
     
  58. BIN
     
  59. BIN
     
  60. BIN
     
  61. BIN
     
  62. BIN
     
  63. BIN
     
  64. BIN
     
  65. +34
    -0
      laucher/lib/i386-win32/unit1.lfm
  66. BIN
     
  67. BIN
     
  68. +0
    -0
     
  69. +0
    -0
     
  70. +0
    -0
     
  71. +0
    -0
     
  72. +0
    -0
     
  73. +0
    -0
     
  74. +0
    -0
     
  75. +5
    -5
      laucher/unit1.lfm
  76. +2
    -2
      laucher/unit1.pas
  77. +0
    -1
      laucher/version
  78. +0
    -0
     
  79. +2
    -2
      lib/i386-win32/avtokanal.compiled
  80. BIN
     
  81. BIN
     
  82. +0
    -0
     
  83. BIN
     
  84. BIN
     
  85. BIN
     
  86. BIN
     
  87. BIN
     
  88. BIN
     
  89. BIN
     
  90. BIN
     
  91. BIN
     
  92. BIN
     
  93. BIN
     
  94. BIN
     
  95. BIN
     
  96. BIN
     
  97. BIN
     
  98. BIN
     
  99. +1
    -1
      lib/i386-win32/unit1.lfm
  100. BIN
     

+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


BIN
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 33
- 35
avtokanal.lps View File

@@ -21,9 +21,8 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="215"/>
<CursorPos X="71" Y="276"/>
<FoldState Value=" T3kK091162224G"/>
<TopLine Value="319"/>
<CursorPos X="18" Y="340"/>
<UsageCount Value="86"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@@ -337,123 +336,122 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="229" Column="38" TopLine="194"/>
<Caret Line="68" Column="5" TopLine="26"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="207" Column="16" TopLine="172"/>
<Caret Line="160" Column="22" TopLine="141"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="5" TopLine="26"/>
<Caret Line="141" Column="25" TopLine="130"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="160" Column="22" TopLine="141"/>
<Caret Line="135" Column="23" TopLine="110"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="141" Column="25" TopLine="130"/>
<Caret Line="115" Column="48" TopLine="76"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="23" TopLine="110"/>
<Caret Line="68" Column="52" TopLine="67"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="115" Column="48" TopLine="76"/>
<Caret Line="283" Column="9" TopLine="258"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="52" TopLine="67"/>
<Caret Line="68" Column="15" TopLine="44"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="9" TopLine="258"/>
<Caret Line="280" Column="70" TopLine="254"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="15" TopLine="44"/>
<Caret Line="283" Column="58" TopLine="258"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="70" TopLine="254"/>
<Caret Line="149" Column="35" TopLine="133"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="58" TopLine="258"/>
<Caret Line="68" Column="59" TopLine="62"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="149" Column="35" TopLine="133"/>
<Caret Line="285" Column="5" TopLine="284"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="59" TopLine="62"/>
<Caret Line="284" Column="5" TopLine="283"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="285" Column="5" TopLine="284"/>
<Caret Line="280" Column="22" TopLine="254"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="284" Column="5" TopLine="283"/>
<Caret Line="354" Column="29" TopLine="15"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="22" TopLine="254"/>
<Caret Line="131" Column="14" TopLine="90"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="354" Column="29" TopLine="15"/>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="14" TopLine="90"/>
<Caret Line="143" Column="19" TopLine="132"/>
</Position19>
<Position20>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="143" Column="19" TopLine="132"/>
<Caret Line="315" TopLine="202"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
<Caret Line="316" Column="32" TopLine="202"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="315" TopLine="202"/>
<Caret Line="318" Column="20" TopLine="202"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="316" Column="32" TopLine="202"/>
<Caret Line="373" Column="51" TopLine="298"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="318" Column="20" TopLine="202"/>
<Caret Line="38" Column="19" TopLine="13"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="373" Column="51" TopLine="298"/>
<Caret Line="56" Column="29" TopLine="13"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="38" Column="19" TopLine="13"/>
<Caret Line="131" Column="34" TopLine="104"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="56" Column="29" TopLine="13"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="34" TopLine="104"/>
<Caret Line="228" Column="60" TopLine="214"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position30>
</JumpHistory>
</ProjectSession>


+ 0
- 0
View File


+ 0
- 0
View File


+ 34
- 35
backup/avtokanal.lps.bak View File

@@ -21,9 +21,9 @@
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="228"/>
<CursorPos X="7" Y="335"/>
<FoldState Value=" T3kK098 pj1jT0N012248"/>
<TopLine Value="308"/>
<CursorPos X="6" Y="337"/>
<FoldState Value=" T3kK091162224G"/>
<UsageCount Value="86"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@@ -337,123 +337,122 @@
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="229" Column="38" TopLine="194"/>
<Caret Line="68" Column="5" TopLine="26"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="207" Column="16" TopLine="172"/>
<Caret Line="160" Column="22" TopLine="141"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="5" TopLine="26"/>
<Caret Line="141" Column="25" TopLine="130"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="160" Column="22" TopLine="141"/>
<Caret Line="135" Column="23" TopLine="110"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="141" Column="25" TopLine="130"/>
<Caret Line="115" Column="48" TopLine="76"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="135" Column="23" TopLine="110"/>
<Caret Line="68" Column="52" TopLine="67"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="115" Column="48" TopLine="76"/>
<Caret Line="283" Column="9" TopLine="258"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="52" TopLine="67"/>
<Caret Line="68" Column="15" TopLine="44"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="9" TopLine="258"/>
<Caret Line="280" Column="70" TopLine="254"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="15" TopLine="44"/>
<Caret Line="283" Column="58" TopLine="258"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="70" TopLine="254"/>
<Caret Line="149" Column="35" TopLine="133"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="283" Column="58" TopLine="258"/>
<Caret Line="68" Column="59" TopLine="62"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="149" Column="35" TopLine="133"/>
<Caret Line="285" Column="5" TopLine="284"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="68" Column="59" TopLine="62"/>
<Caret Line="284" Column="5" TopLine="283"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="285" Column="5" TopLine="284"/>
<Caret Line="280" Column="22" TopLine="254"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="284" Column="5" TopLine="283"/>
<Caret Line="354" Column="29" TopLine="15"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="280" Column="22" TopLine="254"/>
<Caret Line="131" Column="14" TopLine="90"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="354" Column="29" TopLine="15"/>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="14" TopLine="90"/>
<Caret Line="143" Column="19" TopLine="132"/>
</Position19>
<Position20>
<Filename Value="avtokanal.lpr"/>
<Caret Line="21"/>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="143" Column="19" TopLine="132"/>
<Caret Line="315" TopLine="202"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="289" Column="88" TopLine="131"/>
<Caret Line="316" Column="32" TopLine="202"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="315" TopLine="202"/>
<Caret Line="318" Column="20" TopLine="202"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="316" Column="32" TopLine="202"/>
<Caret Line="373" Column="51" TopLine="298"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="318" Column="20" TopLine="202"/>
<Caret Line="38" Column="19" TopLine="13"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="373" Column="51" TopLine="298"/>
<Caret Line="56" Column="29" TopLine="13"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="38" Column="19" TopLine="13"/>
<Caret Line="131" Column="34" TopLine="104"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="56" Column="29" TopLine="13"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="131" Column="34" TopLine="104"/>
<Caret Line="228" Column="60" TopLine="214"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="328" Column="18" TopLine="216"/>
</Position30>
</JumpHistory>
</ProjectSession>


+ 1
- 1
backup/unit1.lfm.bak View File

@@ -11,7 +11,7 @@ object Form1: TForm1
OnShow = FormShow
OnWindowStateChange = FormWindowStateChange
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object DateEdit1: TDateEdit
Left = 200
Height = 23


+ 11
- 7
backup/unit1.pas.bak View File

@@ -90,7 +90,7 @@ var
url: string;
csv: TStringList;
begin
url := 'http://avto.opentomsk.net/archive.php?date='; //2015-02-27
url := 'http://radio70.ru/archive.php?date='; //2015-02-27
csv := TStringList.Create;
with THTTPSend.Create do
begin
@@ -163,7 +163,7 @@ var
url, path: string;
memstream: TMemoryStream;
begin
url := 'http://avto.opentomsk.net/archive/';
url := 'http://radio70.ru/archive/';
path := get_value(fIdx, 3);
with THTTPSend.Create do
begin
@@ -184,7 +184,7 @@ var
url, path: string;
memstream: TMemoryStream;
begin
url := 'http://avto.opentomsk.net/archive/';
url := 'http://radio70.ru/archive/';
path := get_value(fIdx, 3);
with THTTPSend.Create do
begin
@@ -269,11 +269,11 @@ var
PlayerPath: ansistring;
PlayerParams: ansistring;
begin
tmp := GetTempDir(False) + 'ak47.mp3';
Synchronize(@DownloadMessage);
//tmp := GetTempDir(False) + 'ak47.mp3';
//Synchronize(@DownloadMessage);
PlayerPath := SysToUTF8(ExtractFileDir(Application.ExeName) + '\mpg123.exe');
PlayerParams := SysToUTF8(' -q "' + tmp + '"');
ShowMessage('http://avto.opentomsk.net/archive/'+get_value(fIdx, 3));
//PlayerParams := SysToUTF8(' -q "' + tmp + '"');
PlayerParams:= '-q http://radio70.ru/archive/'+get_value(fIdx, 3);
Player := TProcessUTF8.Create(nil);
Form1.StatusBar1.Panels.Items[0].Text := 'Играет запись от ' + fTimeStamp;
Form1.StatusBar1.Panels.Items[1].Text := 'В очереди ' + IntToStr(PlayQueue);
@@ -332,6 +332,10 @@ begin
v.LoadFromFile('version');
Label3.Caption:='Версия '+ v.Text;
v.Free;
DeleteFileUTF8(ExtractFileDir(Application.ExeName)+'\ark_laucher.exe');
if FileExists(ExtractFileDir(Application.ExeName)+'\ark_laucher.new') then
RenameFileUTF8(ExtractFileDir(Application.ExeName)+'\ark_laucher.new',
ExtractFileDir(Application.ExeName)+'\ark_laucher.exe');
except
//
end;


+ 0
- 0
View File


+ 191
- 0
distrib/Russian.nlf View File

@@ -0,0 +1,191 @@
# Header, don't edit
NLF v6
# Language ID
1049
# Font and size - dash (-) means default
-
-
# Codepage - dash (-) means ANSI code page
1251
# RTL - anything else than RTL means LTR
-
# Translation by Timon [ timon@front.ru ] + 20030919
# Translation updated by Dmitry Yerokhin [erodim@mail.ru] (050424)
# ^Branding
Nullsoft Install System %s
# ^SetupCaption
Установка $(^Name)
# ^UninstallCaption
Удаление $(^Name)
# ^LicenseSubCaption
: Лицензионное соглашение
# ^ComponentsSubCaption
: Параметры установки
# ^DirSubCaption
: Папка установки
# ^InstallingSubCaption
: Копирование файлов
# ^CompletedSubCaption
: Операция завершена
# ^UnComponentsSubCaption
: Параметры удаления
# ^UnDirSubCaption
: Папка удаления
# ^ConfirmSubCaption
: Подтверждение
# ^UninstallingSubCaption
: Удаление файлов
# ^UnCompletedSubCaption
: Операция завершена
# ^BackBtn
< &Назад
# ^NextBtn
&Далее >
# ^AgreeBtn
Принима&ю
# ^AcceptBtn
Я &принимаю условия соглашения
# ^DontAcceptBtn
Я &не принимаю условия соглашения
# ^InstallBtn
&Установить
# ^UninstallBtn
Уд&алить
# ^CancelBtn
Отмена
# ^CloseBtn
&Закрыть
# ^BrowseBtn
О&бзор ...
# ^ShowDetailsBtn
&Детали...
# ^ClickNext
Нажмите кнопку 'Далее' для продолжения.
# ^ClickInstall
Нажмите кнопку 'Установить', чтобы установить программу.
# ^ClickUninstall
Нажмите кнопку 'Удалить', чтобы удалить программу.
# ^Name
Имя
# ^Completed
Готово
# ^LicenseText
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, нажмите кнопку 'Принимаю'.
# ^LicenseTextCB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, установите флажок ниже. $_CLICK
# ^LicenseTextRB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. $_CLICK
# ^UnLicenseText
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, нажмите кнопку 'Принимаю'.
# ^UnLicenseTextCB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, установите флажок ниже. $_CLICK
# ^UnLicenseTextRB
Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением. Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. $_CLICK
# ^Custom
По выбору
# ^ComponentsText
Выберите компоненты программы, которые вы хотите установить. $_CLICK
# ^ComponentsSubText1
Выберите тип установки:
# ^ComponentsSubText2_NoInstTypes
Выберите компоненты программы для установки:
# ^ComponentsSubText2
или выберите дополнительные компоненты для установки:
# ^UnComponentsText
Выберите компоненты, которые вы хотите удалить. $_CLICK
# ^UnComponentsSubText1
Выберите тип удаления:
# ^UnComponentsSubText2_NoInstTypes
Выберите компоненты для удаления:
# ^UnComponentsSubText2
или выберите дополнительные компоненты для удаления:
# ^DirText
Программа установит $(^NameDA) в указанную папку. Чтобы установить приложение в другую папку, нажмите кнопку 'Обзор' и укажите ее. $_CLICK
# ^DirSubText
Папка установки
# ^DirBrowseText
Укажите папку для установки $(^NameDA):
# ^UnDirText
Программа удалит $(^NameDA) из указанной папки. Чтобы выполнить удаление из другой папки, нажмите кнопку 'Обзор' и укажите ее. $_CLICK
# ^UnDirSubText
""
# ^UnDirBrowseText
Укажите папку, из которой нужно удалить $(^NameDA):
# ^SpaceAvailable
"Доступно на диске: "
# ^SpaceRequired
"Требуется на диске: "
# ^UninstallingText
Программа $(^NameDA) будет удалена из вашего ПК. $_CLICK
# ^UninstallingSubText
Удаление из:
# ^FileError
Невозможно открыть файл для записи: \r\n\t"$0"\r\n'Прервать': остановить установку;\r\n"Повтор": повторить попытку;\r\n"Пропуск": пропустить это действие.
# ^FileError_NoIgnore
Невозможно открыть файл для записи: \r\n\t"$0"\r\n'Повтор': повторить попытку;\r\n'Отмена': прервать процесс установки.
# ^CantWrite
"Невозможно записать: "
# ^CopyFailed
Ошибка при копировании
# ^CopyTo
"Копирование в "
# ^Registering
"Регистрация: "
# ^Unregistering
"Де-регистрация: "
# ^SymbolNotFound
"Невозможно найти символ: "
# ^CouldNotLoad
"Невозможно загрузить: "
# ^CreateFolder
"Создание папки: "
# ^CreateShortcut
"Создание ярлыка: "
# ^CreatedUninstaller
"Создание программы удаления: "
# ^Delete
"Удаление файла: "
# ^DeleteOnReboot
"Удаление при перезагрузке ПК: "
# ^ErrorCreatingShortcut
"Ошибка создания ярлыка: "
# ^ErrorCreating
"Ошибка создания: "
# ^ErrorDecompressing
Ошибка распаковки данных! Возможно, повреждён дистрибутив.
# ^ErrorRegistering
Невозможно зарегистрировать библиотеку (DLL)
# ^ExecShell
"Выполнение команды оболочки: "
# ^Exec
"Выполнение: "
# ^Extract
"Извлечение: "
# ^ErrorWriting
"Извлечение: ошибка записи файла "
# ^InvalidOpcode
Дистрибутив поврежден: недопустимый код
# ^NoOLE
"Нет OLE для: "
# ^OutputFolder
"Папка установки: "
# ^RemoveFolder
"Удаление папки: "
# ^RenameOnReboot
"Переименование при перезагрузке ПК: "
# ^Rename
"Переименование: "
# ^Skipped
"Пропуск: "
# ^CopyDetails
Копировать сведения в буфер обмена
# ^LogInstall
Вести отчет установки
# byte
байт
# kilo
К
# mega
М
# giga
Г

+ 129
- 0
distrib/Russian.nsh View File

@@ -0,0 +1,129 @@
;Language: Russian (1049)
;Translation updated by Dmitry Yerokhin [erodim@mail.ru] (050424)
!insertmacro LANGFILE "Russian" = "Русский" "Russkij"
!ifdef MUI_WELCOMEPAGE
${LangFileString} MUI_TEXT_WELCOME_INFO_TITLE "Вас приветствует мастер установки $(^NameDA)"
${LangFileString} MUI_TEXT_WELCOME_INFO_TEXT "Эта программа установит $(^NameDA) на ваш компьютер.$\r$\n$\r$\nПеред началом установки рекомендуется закрыть все работающие приложения. Это позволит программе установки обновить системные файлы без перезагрузки компьютера.$\r$\n$\r$\n$_CLICK"
!endif
!ifdef MUI_UNWELCOMEPAGE
${LangFileString} MUI_UNTEXT_WELCOME_INFO_TITLE "Вас приветствует мастер удаления $(^NameDA)"
${LangFileString} MUI_UNTEXT_WELCOME_INFO_TEXT "Эта программа удалит $(^NameDA) из вашего компьютера.$\r$\n$\r$\nПеред началом удаления убедитесь, что программа $(^NameDA) не запущена.$\r$\n$\r$\n$_CLICK"
!endif
!ifdef MUI_LICENSEPAGE
${LangFileString} MUI_TEXT_LICENSE_TITLE "Лицензионное соглашение"
${LangFileString} MUI_TEXT_LICENSE_SUBTITLE "Перед установкой $(^NameDA) ознакомьтесь с лицензионным соглашением."
${LangFileString} MUI_INNERTEXT_LICENSE_BOTTOM "Если вы принимаете условия соглашения, нажмите кнопку $\"Принимаю$\". Чтобы установить программу, необходимо принять соглашение."
${LangFileString} MUI_INNERTEXT_LICENSE_BOTTOM_CHECKBOX "Если вы принимаете условия соглашения, установите флажок ниже. Чтобы установить программу, необходимо принять соглашение. $_CLICK"
${LangFileString} MUI_INNERTEXT_LICENSE_BOTTOM_RADIOBUTTONS "Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. Чтобы установить программу, необходимо принять соглашение. $_CLICK"
!endif
!ifdef MUI_UNLICENSEPAGE
${LangFileString} MUI_UNTEXT_LICENSE_TITLE "Лицензионное соглашение"
${LangFileString} MUI_UNTEXT_LICENSE_SUBTITLE "Перед удалением $(^NameDA) ознакомьтесь с лицензионным соглашением."
${LangFileString} MUI_UNINNERTEXT_LICENSE_BOTTOM "Если вы принимаете условия соглашения, нажмите кнопку $\"Принимаю$\". Для удаления необходимо принять соглашение. $_CLICK"
${LangFileString} MUI_UNINNERTEXT_LICENSE_BOTTOM_CHECKBOX "Если вы принимаете условия соглашения, установите флажок ниже. Для удаления необходимо принять соглашение. $_CLICK"
${LangFileString} MUI_UNINNERTEXT_LICENSE_BOTTOM_RADIOBUTTONS "Если вы принимаете условия соглашения, выберите первый вариант из предложенных ниже. Для удаления необходимо принять соглашение. $_CLICK"
!endif
!ifdef MUI_LICENSEPAGE | MUI_UNLICENSEPAGE
${LangFileString} MUI_INNERTEXT_LICENSE_TOP "Для перемещения по тексту используйте клавиши $\"PageUp$\" и $\"PageDown$\"."
!endif
!ifdef MUI_COMPONENTSPAGE
${LangFileString} MUI_TEXT_COMPONENTS_TITLE "Компоненты устанавливаемой программы"
${LangFileString} MUI_TEXT_COMPONENTS_SUBTITLE "Выберите компоненты $(^NameDA), которые вы хотите установить."
!endif
!ifdef MUI_UNCOMPONENTSPAGE
${LangFileString} MUI_UNTEXT_COMPONENTS_TITLE "Компоненты программы"
${LangFileString} MUI_UNTEXT_COMPONENTS_SUBTITLE "Выберите компоненты $(^NameDA), которые вы хотите удалить."
!endif
!ifdef MUI_COMPONENTSPAGE | MUI_UNCOMPONENTSPAGE
${LangFileString} MUI_INNERTEXT_COMPONENTS_DESCRIPTION_TITLE "Описание"
!ifndef NSIS_CONFIG_COMPONENTPAGE_ALTERNATIVE
${LangFileString} MUI_INNERTEXT_COMPONENTS_DESCRIPTION_INFO "Наведите курсор мыши на название компонента, чтобы прочесть его описание."
!else
${LangFileString} MUI_INNERTEXT_COMPONENTS_DESCRIPTION_INFO "Выберите компонент, чтобы увидеть его описание."
!endif
!endif
!ifdef MUI_DIRECTORYPAGE
${LangFileString} MUI_TEXT_DIRECTORY_TITLE "Выбор папки установки"
${LangFileString} MUI_TEXT_DIRECTORY_SUBTITLE "Выберите папку для установки $(^NameDA)."
!endif
!ifdef MUI_UNDIRECTORYPAGE
${LangFileString} MUI_UNTEXT_DIRECTORY_TITLE "Выбор папки для удаления"
${LangFileString} MUI_UNTEXT_DIRECTORY_SUBTITLE "Укажите папку, из которой нужно удалить $(^NameDA)."
!endif
!ifdef MUI_INSTFILESPAGE
${LangFileString} MUI_TEXT_INSTALLING_TITLE "Копирование файлов"
${LangFileString} MUI_TEXT_INSTALLING_SUBTITLE "Подождите, идет копирование файлов $(^NameDA)..."
${LangFileString} MUI_TEXT_FINISH_TITLE "Установка завершена"
${LangFileString} MUI_TEXT_FINISH_SUBTITLE "Установка успешно завершена."
${LangFileString} MUI_TEXT_ABORT_TITLE "Установка прервана"
${LangFileString} MUI_TEXT_ABORT_SUBTITLE "Установка не завершена."
!endif
!ifdef MUI_UNINSTFILESPAGE
${LangFileString} MUI_UNTEXT_UNINSTALLING_TITLE "Удаление"
${LangFileString} MUI_UNTEXT_UNINSTALLING_SUBTITLE "Подождите, идет удаление файлов $(^NameDA)..."
${LangFileString} MUI_UNTEXT_FINISH_TITLE "Удаление завершено"
${LangFileString} MUI_UNTEXT_FINISH_SUBTITLE "Удаление программы успешно завершено."
${LangFileString} MUI_UNTEXT_ABORT_TITLE "Удаление прервано"
${LangFileString} MUI_UNTEXT_ABORT_SUBTITLE "Удаление произведено не полностью."
!endif
!ifdef MUI_FINISHPAGE
${LangFileString} MUI_TEXT_FINISH_INFO_TITLE "Завершение работы мастера установки $(^NameDA)"
${LangFileString} MUI_TEXT_FINISH_INFO_TEXT "Установка $(^NameDA) выполнена.$\r$\n$\r$\nНажмите кнопку $\"Готово$\" для выхода из программы установки."
${LangFileString} MUI_TEXT_FINISH_INFO_REBOOT "Для завершения установки $(^NameDA) необходимо перезагрузить компьютер. Хотите сделать это сейчас?"
!endif
!ifdef MUI_UNFINISHPAGE
${LangFileString} MUI_UNTEXT_FINISH_INFO_TITLE "Завершение работы мастера удаления $(^NameDA)"
${LangFileString} MUI_UNTEXT_FINISH_INFO_TEXT "Программа $(^NameDA) удалена из вашего компьютера.$\r$\n$\r$\nНажмите кнопку $\"Готово$\"для выхода из программы удаления."
${LangFileString} MUI_UNTEXT_FINISH_INFO_REBOOT "Для завершения удаления $(^NameDA) нужно перезагрузить компьютер. Хотите сделать это сейчас?"
!endif
!ifdef MUI_FINISHPAGE | MUI_UNFINISHPAGE
${LangFileString} MUI_TEXT_FINISH_REBOOTNOW "Да, перезагрузить ПК сейчас"
${LangFileString} MUI_TEXT_FINISH_REBOOTLATER "Нет, я перезагружу ПК позже"
${LangFileString} MUI_TEXT_FINISH_RUN "&Запустить $(^NameDA)"
${LangFileString} MUI_TEXT_FINISH_SHOWREADME "&Показать файл ReadMe"
${LangFileString} MUI_BUTTONTEXT_FINISH "&Готово"
!endif
!ifdef MUI_STARTMENUPAGE
${LangFileString} MUI_TEXT_STARTMENU_TITLE "Папка в меню $\"Пуск$\""
${LangFileString} MUI_TEXT_STARTMENU_SUBTITLE "Выберите папку в меню $\"Пуск$\" для размещения ярлыков программы."
${LangFileString} MUI_INNERTEXT_STARTMENU_TOP "Выберите папку в меню $\"Пуск$\", куда будут помещены ярлыки программы. Вы также можете ввести другое имя папки."
${LangFileString} MUI_INNERTEXT_STARTMENU_CHECKBOX "Не создавать ярлыки"
!endif
!ifdef MUI_UNCONFIRMPAGE
${LangFileString} MUI_UNTEXT_CONFIRM_TITLE "Удаление $(^NameDA)"
${LangFileString} MUI_UNTEXT_CONFIRM_SUBTITLE "Удаление $(^NameDA) из компьютера."
!endif
!ifdef MUI_ABORTWARNING
${LangFileString} MUI_TEXT_ABORTWARNING "Вы действительно хотите отменить установку $(^Name)?"
!endif
!ifdef MUI_UNABORTWARNING
${LangFileString} MUI_UNTEXT_ABORTWARNING "Вы действительно хотите отменить удаление $(^Name)?"
!endif
!ifdef MULTIUSER_INSTALLMODEPAGE
${LangFileString} MULTIUSER_TEXT_INSTALLMODE_TITLE "Режим установки"
${LangFileString} MULTIUSER_TEXT_INSTALLMODE_SUBTITLE "Выберите, для каких пользователей вы хотите установить $(^NameDA)."
${LangFileString} MULTIUSER_INNERTEXT_INSTALLMODE_TOP "Выберите, будете ли вы устанавливать $(^NameDA) только для себя или для всех пользователей данного компьютера. $(^ClickNext)"
${LangFileString} MULTIUSER_INNERTEXT_INSTALLMODE_ALLUSERS "Установить для всех пользователей"
${LangFileString} MULTIUSER_INNERTEXT_INSTALLMODE_CURRENTUSER "Установить только для текущего пользователя"
!endif

BIN
View File


BIN
View File


+ 68
- 0
distrib/ark_tomsk.nsi View File

@@ -0,0 +1,68 @@
; ark_tomsk.nsi
; 03.03.2015
; Vladimir Smagin, 2015
; 21h@blindage.org, http://blindage.org. English or russian, please.
!include "langfile.nsh"
!include "nsProcess.nsh"
!include "Russian.nsh"
LoadLanguageFile "${NSISDIR}\Contrib\Language files\Russian.nlf"
Name "Æóðíàë ïåðåäà÷ ÀÐÊ Òîìñê"
OutFile "ark_tomsk_install.exe"
XPStyle on
InstallDir $APPDATA\ARK_Tomsk
RequestExecutionLevel admin
SetFont "Tahoma" 11
;Page license
Page directory
Page instfiles
UninstPage uninstConfirm
UninstPage instfiles
;LicenseData "license.txt"
DirText "Âûáåðèòå äèðåêòîðèþ äëÿ óñòàíîâêè. Îíà íå äîëæíà òðåáîâàòü àäìèíèñòðàòèâíûõ ïðàâ. Åñëè âû íå óâåðåíû, òî îñòàâüòå òó, ÷òî óêàçàíà ïî óìîë÷àíèþ." "Äèðåêòîðèÿ" "Âûáðàòü" "Âûáîð äèðåêòîðèè"
Section "ÀÐÊ Òîìñê"
SetOutPath $INSTDIR
File ark_laucher.exe
File avtokanal.exe
File mpg123.exe
File version
CreateShortCut "$SMPROGRAMS\Æóðíàë ÀÐÊ Òîìñê.lnk" "$INSTDIR\ark_laucher.exe"
WriteRegStr HKLM SOFTWARE\ARK_Tomsk "Install_Dir" "$INSTDIR"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"DisplayName" "ARK_Tomsk"
WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"UninstallString" '"$INSTDIR\uninstall.exe"'
WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"NoModify" 1
WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk" \
"NoRepair" 1
WriteUninstaller "uninstall.exe"
SectionEnd
Section "Uninstall"
${nsProcess::FindProcess} "ark_laucher.exe" $R0
${nsProcess::KillProcess} "ark_laucher.exe" $R0
${nsProcess::FindProcess} "avtokanal.exe" $R0
${nsProcess::KillProcess} "avtokanal.exe" $R0
${nsProcess::FindProcess} "mpg123.exe" $R0
${nsProcess::KillProcess} "mpg123.exe" $R0
DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ARK_Tomsk"
DeleteRegKey HKLM SOFTWARE\ARK_Tomsk
Delete $INSTDIR\*.*
Delete $INSTDIR\uninstall.exe
Delete "$SMPROGRAMS\Æóðíàë ÀÐÊ Òîìñê.lnk"
RMDir "$INSTDIR"
SectionEnd

BIN
View File


BIN
View File


BIN
View File


+ 3
- 0
distrib/license.txt View File

@@ -0,0 +1,3 @@
Программа поставляется как есть без каких-либо гарантий. Обновления устанавливаются в автоматическом режиме при каждом запуске программы.
Все предложения пишите на почту 21h@blindage.org.

BIN
View File


+ 28
- 0
distrib/nsProcess.nsh View File

@@ -0,0 +1,28 @@
!define nsProcess::FindProcess `!insertmacro nsProcess::FindProcess`
!macro nsProcess::FindProcess _FILE _ERR
nsProcess::_FindProcess /NOUNLOAD `${_FILE}`
Pop ${_ERR}
!macroend
!define nsProcess::KillProcess `!insertmacro nsProcess::KillProcess`
!macro nsProcess::KillProcess _FILE _ERR
nsProcess::_KillProcess /NOUNLOAD `${_FILE}`
Pop ${_ERR}
!macroend
!define nsProcess::CloseProcess `!insertmacro nsProcess::CloseProcess`
!macro nsProcess::CloseProcess _FILE _ERR
nsProcess::_CloseProcess /NOUNLOAD `${_FILE}`
Pop ${_ERR}
!macroend
!define nsProcess::Unload `!insertmacro nsProcess::Unload`
!macro nsProcess::Unload
nsProcess::_Unload
!macroend

+ 1
- 0
distrib/version View File

@@ -0,0 +1 @@
0.12

+ 1
- 0
distrib/version.w32 View File

@@ -0,0 +1 @@
0.12

+ 0
- 0
View File


BIN
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


BIN
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 1
- 1
laucher/backup/unit1.lfm.bak View File

@@ -9,7 +9,7 @@ object Form1: TForm1
ClientHeight = 59
ClientWidth = 449
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object Label1: TLabel
Left = 8
Height = 15


+ 3
- 3
laucher/backup/unit1.pas.bak View File

@@ -86,7 +86,7 @@ begin
http := THTTPSend.Create;
with http do
begin
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/version.w32') then
if HTTPMethod('GET', 'http://radio70.ru/dist/version.w32') then
try
memstream := TMemoryStream.Create;
memstream := Document;
@@ -109,7 +109,7 @@ begin
with http do
begin
Sock.OnStatus := @SockCallBack;
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/avtokanal.w32.zip') then
if HTTPMethod('GET', 'http://radio70.ru/dist/avtokanal.w32.zip') then
try
Application.ProcessMessages;
memstream := TMemoryStream.Create;
@@ -132,7 +132,7 @@ begin
finally
UnZipper.Free;
end;
ShowMessage('Программа обновлена до версии '+remote_version);
//ShowMessage('Программа обновлена до версии '+remote_version);
end;
ShellExecute(0,nil, PChar('avtokanal.exe'),PChar(''),nil,1);
Close;


+ 0
- 0
View File


+ 0
- 0
View File


+ 5
- 0
laucher/lib/i386-win32/ark_laucher.compiled View File

@@ -0,0 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.exe" Date="1189850957"/>
<Params Value=" -MObjFPC -Scghi -O1 -WG -l -vewnhibq &quot;-FiD:\vlad\Documents\Документы мои\Projects\avtokanal\laucher\lib\i386-win32&quot; -FuC:\lazarus\lcl\units\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32 -FuC:\lazarus\components\lazutils\lib\i386-win32 -FuC:\lazarus\packager\units\i386-win32 &quot;-FuD:\vlad\Documents\Документы мои\Projects\avtokanal\laucher\&quot; &quot;-FUD:\vlad\Documents\Документы мои\Projects\avtokanal\laucher\lib\i386-win32\&quot; -dLCL -dLCLwin32 ark_laucher.lpr"/>
</CONFIG>

BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


+ 34
- 0
laucher/lib/i386-win32/unit1.lfm View File

@@ -0,0 +1,34 @@
object Form1: TForm1
Left = 401
Height = 59
Top = 192
Width = 449
BorderIcons = []
BorderStyle = bsDialog
Caption = 'Автоматическое обновление'
ClientHeight = 59
ClientWidth = 449
Position = poScreenCenter
LCLVersion = '1.4.2.0'
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 217
Caption = 'Проверка новой версии на radio70.ru ...'
ParentColor = False
end
object ProgressBar1: TProgressBar
Left = 8
Height = 20
Top = 31
Width = 432
TabOrder = 0
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
left = 208
top = 40
end
end

BIN
View File


BIN
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 0
- 0
View File


+ 5
- 5
laucher/unit1.lfm View File

@@ -9,13 +9,13 @@ object Form1: TForm1
ClientHeight = 59
ClientWidth = 449
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 133
Caption = 'Проверка новой версии'
Width = 217
Caption = 'Проверка новой версии на radio70.ru ...'
ParentColor = False
end
object ProgressBar1: TProgressBar
@@ -28,7 +28,7 @@ object Form1: TForm1
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
left = 201
top = 11
left = 208
top = 40
end
end

+ 2
- 2
laucher/unit1.pas View File

@@ -86,7 +86,7 @@ begin
http := THTTPSend.Create;
with http do
begin
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/version.w32') then
if HTTPMethod('GET', 'http://radio70.ru/dist/version.w32') then
try
memstream := TMemoryStream.Create;
memstream := Document;
@@ -109,7 +109,7 @@ begin
with http do
begin
Sock.OnStatus := @SockCallBack;
if HTTPMethod('GET', 'http://avto.opentomsk.net/dist/avtokanal.w32.zip') then
if HTTPMethod('GET', 'http://radio70.ru/dist/avtokanal.w32.zip') then
try
Application.ProcessMessages;
memstream := TMemoryStream.Create;


+ 0
- 1
laucher/version View File

@@ -1 +0,0 @@
0.9

+ 0
- 0
View File


+ 2
- 2
lib/i386-win32/avtokanal.compiled View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.exe" Date="1179555526"/>
<Params Value=" -Twin32 -Pi386 -MObjFPC -Scghi -O2 -WG -l -vewnhibq -FiC:\dev\avtokanal\lib\i386-win32 -FuC:\lazarus\components\sqldb\lib\i386-win32\win32 -FuC:\lazarus\components\ideintf\units\i386-win32\win32 -FuC:\lazarus\components\synedit\units\i386-win32\win32 -FuC:\lazarus\components\lazcontrols\lib\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32 -FuC:\lazarus\components\codetools\units\i386-win32 -FuC:\lazarus\components\lazutils\lib\i386-win32 -FuC:\lazarus\packager\units\i386-win32 -FuC:\dev\avtokanal\ -FUC:\dev\avtokanal\lib\i386-win32\ -dLCL -dLCLwin32 avtokanal.lpr"/>
<Compiler Value="C:\lazarus\fpc\2.6.4\bin\i386-win32\fpc.exe" Date="1189850957"/>
<Params Value=" -Twin32 -Pi386 -MObjFPC -Scghi -O2 -WG -l -vewnhibq &quot;-FiD:\vlad\Documents\Документы мои\Projects\avtokanal\lib\i386-win32&quot; -FuC:\lazarus\components\sqldb\lib\i386-win32\win32 -FuC:\lazarus\components\ideintf\units\i386-win32\win32 -FuC:\lazarus\components\synedit\units\i386-win32\win32 -FuC:\lazarus\components\lazcontrols\lib\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32\win32 -FuC:\lazarus\lcl\units\i386-win32 -FuC:\lazarus\components\codetools\units\i386-win32 -FuC:\lazarus\components\lazutils\lib\i386-win32 -FuC:\lazarus\packager\units\i386-win32 &quot;-FuD:\vlad\Documents\Документы мои\Projects\avtokanal\&quot; &quot;-FUD:\vlad\Documents\Документы мои\Projects\avtokanal\lib\i386-win32\&quot; -dLCL -dLCLwin32 avtokanal.lpr"/>
</CONFIG>

BIN
View File


BIN
View File


+ 0
- 0
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


BIN
View File


+ 1
- 1
lib/i386-win32/unit1.lfm View File

@@ -11,7 +11,7 @@ object Form1: TForm1
OnShow = FormShow
OnWindowStateChange = FormWindowStateChange
Position = poScreenCenter
LCLVersion = '1.4.0.1'
LCLVersion = '1.4.2.0'
object DateEdit1: TDateEdit
Left = 200
Height = 23


BIN
View File


Some files were not shown because too many files changed in this diff

Loading…
Cancel
Save