anthony/abtool
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

НАСТРОЙКИ

Browse Source 
Отображение формы настроек переделано. Теперь она создаётся только 1 раз при первом вызове.
Добавлен выпадающий списк для выбора локализаций. Кнопка сброса к дефолту изменена.
Чтение настроек из abtool.ini (кроме локализаций). Сброс контроллов к актуальным настройкам при каждом показе формы настроек.
Считанные настройки хранятся в глобальной переменной внутри uOptions. Таким образом:
- исключены циклические ссылки с участием dMain ради доступа к настройкам
- теперь можно только вызвать конструктор TOptions, а сам созданный объект нигде не сохранять: объект GlobalOptions уже будет доступен
Новая функция dMain.GetLocalesIniFileList для получения списка файлов локализаций.
Обновлены ini-файлы. Мелочи по оформлению кода.
This commit is contained in:
Anthony Axenov 2019-01-26 01:37:22 +08:00
parent e968856a55
commit 685274a356
15 changed files with 1325 additions and 194 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ABTool.lpi
View File

@ -75,7 +75,7 @@
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="8">
<Units Count="9">
<Unit0>
<Filename Value="ABTool.lpr"/>
<IsPartOfProject Value="True"/>
@ -120,9 +120,15 @@
<Filename Value="foptions.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="fmOptions"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="fOptions"/>
</Unit7>
<Unit8>
<Filename Value="uoptions.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uOptions"/>
</Unit8>
</Units>
</ProjectOptions>
<CompilerOptions>

3
ABTool.lpr
View File

@ -13,7 +13,8 @@ uses {$IFDEF UNIX} {$IFDEF UseCThreads}
uPackage,
uPackageUtils,
uPackageList,
fOptions;
fOptions,
uOptions;
{$R *.res}

187
ABTool/Languages/DEBUG.lng Normal file
View File

@ -0,0 +1,187 @@
; Author: AnthonyAxenov, anthonysoprano.93@gmail.com, abtool.ru
; Date: 20:11 20.05.2015
[Info]
; Language name - required
Name=DEBUG
; ABTool version — required
ABToolVer=0.8.0
[Main]
; Bidirectional mode:
; = 1 - Left to right
; = 2 - Right to left with right alignment
; = 3 - Right to left with left alignment
; = 4 - Right to left with right alignment only for reading (not typing)
Bidi=1
[SplashForm]
;
; Splash form
;
SplashForm_Lab_Loading=SplashForm_Lab_Loading
[MainForm]
;
; Main form
;
;Tabs
MainForm_Tab_Soft=MainForm_Tab_Soft
MainForm_Tab_Tools=MainForm_Tab_Tools
MainForm_Tab_System=MainForm_Tab_System
; Deprecated since v0.8.0.313 (19:01 19.05.2015)
;MainForm_Tab_SysInfo=MainForm_Tab_SysInfo
; Deprecated since v0.8.0.313 (19:01 19.05.2015)
;MainForm_Tab_SysCare=MainForm_Tab_SysCare
MainForm_Tab_Log=MainForm_Tab_Log
;Common buttons on toolbars
MainForm_Btn_List=MainForm_Btn_List
MainForm_Mnb_ExpandAll=MainForm_Mnb_ExpandAll
MainForm_Mnb_CollapseAll=MainForm_Mnb_CollapseAll
MainForm_Btn_Search=MainForm_Btn_Search
MainForm_Mnb_PackDefault=MainForm_Mnb_PackDefault
MainForm_Mnb_PacksEdit=MainForm_Mnb_PacksEdit
;"Programms" tab
MainForm_Btn_SoftCheck=MainForm_Btn_SoftCheck
MainForm_Mnb_SoftCheckAll=MainForm_Mnb_SoftCheckAll
MainForm_Mnb_SoftCheckNone=MainForm_Mnb_SoftCheckNone
MainForm_Btn_SoftPackages=MainForm_Btn_SoftPackages
MainForm_Btn_SoftStart=MainForm_Btn_SoftStart
;"Utilities" tab
MainForm_Btn_ToolsPackages=MainForm_Btn_ToolsPackages
;"System" tab
MainForm_Lab_System=MainForm_Lab_System
MainForm_SInfo_RowOSVer=MainForm_SInfo_RowPCName
MainForm_SInfo_RowPCName=MainForm_SInfo_RowPCName
MainForm_SInfo_RowUserName=MainForm_SInfo_RowUserName
MainForm_Lab_UserVars=MainForm_Lab_UserVars
MainForm_Vars_Col1=MainForm_Vars_Col1
MainForm_Vars_Col2=MainForm_Vars_Col2
MainForm_Lab_SysVars=MainForm_Lab_SysVars
MainForm_Btn_SysInfoRefresh=MainForm_Btn_SysInfoRefresh
MainForm_Btn_VarsEdit=MainForm_Btn_VarsEdit
MainForm_Mnb_CopyVarValue=MainForm_Mnb_CopyVarValue
MainForm_Mnb_CopyVarLine=MainForm_Mnb_CopyVarLine
MainForm_Mnb_CopyVarAll=MainForm_Mnb_CopyVarAll
MainForm_Grp_Power=MainForm_Grp_Power
MainForm_Btn_PowerOff=MainForm_Btn_PowerOff
MainForm_Btn_Reboot=MainForm_Btn_Reboot
;"Log" tab
MainForm_Btn_LogClear=MainForm_Btn_LogClear
MainForm_Btn_LogSave=MainForm_Btn_LogSave
;Other strings in this window
;MainForm_Caption=ABTool Debugging
MainForm_Btn_Options=MainForm_Btn_Options
[OptionsForm]
;
; Options form
;
;Tabs
OptForm_Tab_Common=OptForm_Tab_Common
OptForm_Tab_Interface=OptForm_Tab_Interface
OptForm_Tab_Packages=OptForm_Tab_Packages
OptForm_Tab_About=OptForm_Tab_About
;"Common" tab
; "OptForm_Grp_Lang / Language"
OptForm_Grp_Lang=OptForm_Grp_Lang
OptForm_Lab_LangFileIs=OptForm_Lab_LangFileIs
OptForm_Lab_LangNameIs=OptForm_Lab_LangNameIs
OptForm_Lab_LangVerIs=OptForm_Lab_LangVerIs
OptForm_Grp_Soft=OptForm_Grp_Soft
OptForm_Chb_ChkExitCodes=OptForm_Chb_ChkExitCodes
OptForm_Chb_ChkExitCodesHint=OptForm_Chb_ChkExitCodesHint
OptForm_Chb_DntUnChkItems=OptForm_Chb_DntUnChkItems
OptForm_Chb_DntUnChkItemsHint=OptForm_Chb_DntUnChkItemsHint
OptForm_Chb_ColorSoftTree=OptForm_Chb_ColorSoftTree
OptForm_Chb_ColorSoftTreeHint=OptForm_Chb_ColorSoftTreeHint
OptForm_Chb_ShowProgress=OptForm_Chb_ShowProgress
OptForm_Chb_ShowProgressHint=OptForm_Chb_ShowProgressHint
OptForm_Chb_ExpandSoft=OptForm_Chb_ExpandSoft
OptForm_Chb_ExpandSoftHint=OptForm_Chb_ExpandSoftHint
OptForm_Chb_QuietREG=OptForm_Chb_QuietREG
OptForm_Chb_QuietREGHint=OptForm_Chb_QuietREGHint
OptForm_Grp_Tools=OptForm_Grp_Tools
OptForm_Chb_HideOnTool=OptForm_Chb_HideOnTool
OptForm_Chb_HideOnToolHint=OptForm_Chb_HideOnToolHint
OptForm_Chb_ExpandTools=OptForm_Chb_ExpandTools
OptForm_Chb_ExpandToolsHint=OptForm_Chb_ExpandToolsHint
; "OptForm_Url_DownloadLangs / Download other languages"
OptForm_Url_DownloadLangs=OptForm_Url_DownloadLangs
;"Interface" tab
OptForm_Chb_ShowLog=OptForm_Chb_ShowLog
OptForm_Chb_ShowLogHint=OptForm_Chb_ShowLogHint
OptForm_Chb_DrawOutlines=OptForm_Chb_DrawOutlines
OptForm_Chb_DrawOutlinesHint=OptForm_Chb_DrawOutlinesHint
OptForm_Chb_ScreenSnap=OptForm_Chb_ScreenSnap
OptForm_Chb_ScreenSnapHint=OptForm_Chb_ScreenSnapHint
OptForm_Chb_OnTop=OptForm_Chb_OnTop
OptForm_Chb_OnTopHint=OptForm_Chb_OnTopHint
OptForm_Chb_ShowPkgDesc=OptForm_Chb_ShowPkgDesc
OptForm_Chb_ShowPkgDescHint=OptForm_Chb_ShowPkgDescHint
OptForm_Chb_SrchVisible=OptForm_Chb_SrchVisible
OptForm_Chb_SrchVisibleHint=OptForm_Chb_SrchVisibleHint
OptForm_Chb_ScrollLog=OptForm_Chb_ScrollLog
OptForm_Chb_ScrollLogHint=OptForm_Chb_ScrollLogHint
OptForm_Grp_PkgSwitchMethod=OptForm_Grp_PkgSwitchMethod
OptForm_Rdb_PkgSwByMenu=OptForm_Rdb_PkgSwByMenu
OptForm_Rdb_PkgSwByMenuHint=OptForm_Rdb_PkgSwByMenuHint
OptForm_Rdb_PkgSwByTabs=OptForm_Rdb_PkgSwByTabs
OptForm_Rdb_PkgSwByTabsHint=OptForm_Rdb_PkgSwByTabsHint
OptForm_Chb_PkgSwShrinkTabs=OptForm_Chb_PkgSwShrinkTabs
OptForm_Chb_PkgSwShrinkTabsHint=OptForm_Chb_PkgSwShrinkTabsHint
OptForm_Cmb_PkgSwTabsPosHint=OptForm_Cmb_PkgSwTabsPosHint
OptForm_Cmb_PkgSwTabsPosTop=OptForm_Cmb_PkgSwTabsPosTop
OptForm_Cmb_PkgSwTabsPosBottom=OptForm_Cmb_PkgSwTabsPosBottom
OptForm_Cmb_PkgSwTabsPosLeft=OptForm_Cmb_PkgSwTabsPosLeft
OptForm_Cmb_PkgSwTabsPosRight=OptForm_Cmb_PkgSwTabsPosRight
;"Packages" tab
OptForm_Grp_PkgSoft=OptForm_Grp_PkgSoft
OptForm_Grp_PkgTools=OptForm_Grp_PkgTools
OptForm_Btn_BrowseUserSoftPkg=OptForm_Btn_BrowseUserSoftPkg
OptForm_Btn_BrowseUserSoftPkgHint=OptForm_Btn_BrowseUserSoftPkgHint
OptForm_Btn_ClearUserSoftPkgHint=OptForm_Btn_ClearUserSoftPkgHint
OptForm_Btn_OpenIniDir=OptForm_Btn_OpenIniDir
OptForm_Btn_OpenIniDirHint=OptForm_Btn_OpenIniDirHint
OptForm_Grp_PkgInfo=OptForm_Grp_PkgInfo
OptForm_Lab_PkgNameIs=OptForm_Lab_PkgNameIs
OptForm_Lab_PkgDescIs=OptForm_Lab_PkgDescIs
;"About" tab
OptForm_Lab_ABToolBuildIs=OptForm_Lab_ABToolBuildIs
OptForm_Lab_WhatsNew=OptForm_Lab_WhatsNew
OptForm_Url_ReportBug=OptForm_Url_ReportBug
OptForm_Url_Help=OptForm_Url_Help
OptForm_Btn_CheckUpdates=OptForm_Btn_CheckUpdates
OptForm_Btn_CheckingUpdates=OptForm_Btn_CheckingUpdates
;Other strings in this window
OptForm_Caption=OptForm_Caption
OptForm_Btn_ResetOptions=OptForm_Btn_ResetOptions
OptForm_Btn_SaveOptions=OptForm_Btn_SaveOptions
OptForm_Btn_Close=OptForm_Btn_Close
[ProgressForm]
;
; Installation progress form
;
[ChoosePkgForm]
;
; Form to choose package
;
[Messages]
;
; Messages to show
;
[Log]
;
; Log messages
;

189
ABTool/Languages/English.lng Normal file
View File

@ -0,0 +1,189 @@
; Author: AnthonyAxenov, anthonysoprano.93@gmail.com, abtool.ru
; Date: 20:11 20.05.2015
[Info]
; Language name - required
Name=English
; ABTool version — required
ABToolVer=0.8.0
[Main]
; Bidirectional mode:
; = 1 - Left to right
; = 2 - Right to left with right alignment
; = 3 - Right to left with left alignment
; = 4 - Right to left with right alignment only for reading (not typing)
Bidi=1
[SplashForm]
;
; Splash form
;
SplashForm_Lab_Loading=Loading...
[MainForm]
;
; Main form
;
;Tabs
MainForm_Tab_Soft=Programms
MainForm_Tab_Tools=Utilities
MainForm_Tab_System=System
; Deprecated since v0.8.0.313 (19:01 19.05.2015)
;MainForm_Tab_SysInfo=Common info
; Deprecated since v0.8.0.313 (19:01 19.05.2015)
;MainForm_Tab_SysCare=Maintenance
MainForm_Tab_Log=Log
;Common buttons on toolbars
MainForm_Btn_List=List
MainForm_Mnb_ExpandAll=Expand all
MainForm_Mnb_CollapseAll=Collapse all
MainForm_Btn_Search=Search
MainForm_Mnb_PackDefault=Default
MainForm_Mnb_PacksEdit=Package management...
;"Programms" tab
MainForm_Btn_SoftCheck=Choose
MainForm_Mnb_SoftCheckAll=Choose all
MainForm_Mnb_SoftCheckNone=Choose none
MainForm_Btn_SoftPackages=Programm packages
MainForm_Btn_SoftStart=<<< Start installation >>>
;"Utilities" tab
MainForm_Btn_ToolsPackages=Utility packages
;"System" tab
MainForm_Lab_System=System
MainForm_SInfo_RowOSVer=OS version
MainForm_SInfo_RowPCName=PC name
MainForm_SInfo_RowUserName=User name
MainForm_Lab_UserVars=Environment variables for
MainForm_Vars_Col1=Variable
MainForm_Vars_Col2=Value
MainForm_Lab_SysVars=System environment variables
MainForm_Btn_SysInfoRefresh=Refresh
MainForm_Btn_VarsEdit=Edit variables...
MainForm_Mnb_CopyVarValue=Copy value to clipboard
MainForm_Mnb_CopyVarLine=Copy variable with value
MainForm_Mnb_CopyVarAll=Copy all
MainForm_Grp_Power=Power management
MainForm_Btn_PowerOff=Power off
MainForm_Btn_Reboot=Reboot
;"Log" tab
MainForm_Btn_LogClear=Clear log
MainForm_Btn_LogSave=Save log to file...
;Other strings in this window
;MainForm_Caption=ABTool in English!
MainForm_Btn_Options=Options
[OptionsForm]
;
; Options form
;
;Tabs
OptForm_Tab_Common=Common
OptForm_Tab_Interface=Interface
OptForm_Tab_Packages=Packages
OptForm_Tab_About=About
;"Common" tab
; "OptForm_Grp_Lang / Language"
OptForm_Grp_Lang=
OptForm_Lab_LangFileIs=Filename:
OptForm_Lab_LangNameIs=Language:
OptForm_Lab_LangVerIs=Version:
OptForm_Grp_Soft=«Software» tab
OptForm_Chb_ChkExitCodes=Immediately report if the return code <> 0
OptForm_Chb_ChkExitCodesHint=When the installer is finished with a code other than zero, you will be asked to terminate the installation process
OptForm_Chb_DntUnChkItems=Leave the check box checked with the return code <> 0
OptForm_Chb_DntUnChkItemsHint=Later, you can try to install only those programs, the installation of which was not completed correctly
OptForm_Chb_ColorSoftTree=Color software tree list after installing
OptForm_Chb_ColorSoftTreeHint=When the installation process is complete, a list of programs to be is colored as follows: Failed to start — red, return code <> 0 — blue
OptForm_Chb_ShowProgress=Show the overall process of software installation
OptForm_Chb_ShowProgressHint=During installation, the main window will disappear and there will be another, displaying the overall progress of the installation. Otherwise - the main window will not disappear, but will be blocked
OptForm_Chb_ExpandSoft=Expand software tree when package is loaded
OptForm_Chb_ExpandSoftHint=
OptForm_Chb_QuietREG=Silent import from REG-files
OptForm_Chb_QuietREGHint=REGEDIT will not ask for confirmation
OptForm_Grp_Tools=«Utilities» tab
OptForm_Chb_HideOnTool=Hide ABTool when utility is launched
OptForm_Chb_HideOnToolHint=When utility is launched, ABTool will not disturb
OptForm_Chb_ExpandTools=Expand utilities tree when package is loaded
OptForm_Chb_ExpandToolsHint=
; "OptForm_Url_DownloadLangs / Download other languages"
;OptForm_Url_DownloadLangs=
;"Interface" tab
OptForm_Chb_ShowLog=Show log tab
OptForm_Chb_ShowLogHint=The log appears on the an additional tab and contains complete protocol of events
OptForm_Chb_DrawOutlines=Draw lists outlines
OptForm_Chb_DrawOutlinesHint=It applies both to the Software and Utilities tabs
OptForm_Chb_ScreenSnap=Snap ABTool to the screen borders when moving
OptForm_Chb_ScreenSnapHint=
OptForm_Chb_OnTop=Keep ABTool on top
OptForm_Chb_OnTopHint=
OptForm_Chb_ShowPkgDesc=Show package descriptions
OptForm_Chb_ShowPkgDescHint=It applies both to the Software and Utilities tabs
OptForm_Chb_SrchVisible=Search bar is always shown
OptForm_Chb_SrchVisibleHint=It applies both to the Software and Utilities tabs
OptForm_Chb_ScrollLog=Always scroll log to the end
OptForm_Chb_ScrollLogHint=
OptForm_Grp_PkgSwitchMethod=Package switching method
OptForm_Rdb_PkgSwByMenu=Let me choose via package menu
OptForm_Rdb_PkgSwByMenuHint=It applies both to the Software and Utilities tabs
OptForm_Rdb_PkgSwByTabs=Show packages as tabs:
OptForm_Rdb_PkgSwByTabsHint=It applies both to the Software and Utilities tabs
OptForm_Chb_PkgSwShrinkTabs=Fit all names (long names will be trimmed)
OptForm_Chb_PkgSwShrinkTabsHint=If disabled, all packages' names may not fit on this panel
OptForm_Cmb_PkgSwTabsPosHint=Choose package tabs position
OptForm_Cmb_PkgSwTabsPosTop=Top
OptForm_Cmb_PkgSwTabsPosBottom=Bottom
OptForm_Cmb_PkgSwTabsPosLeft=Left
OptForm_Cmb_PkgSwTabsPosRight=Right
;"Packages" tab
OptForm_Grp_PkgSoft=Software
OptForm_Grp_PkgTools=Utilities
OptForm_Btn_BrowseUserSoftPkg=Choose
OptForm_Btn_BrowseUserSoftPkgHint=Choose your package in special window
OptForm_Btn_ClearUserSoftPkgHint=Clear field
OptForm_Btn_OpenIniDir=Open ABTool_ini directory
OptForm_Btn_OpenIniDirHint=
OptForm_Grp_PkgInfo=Package info
OptForm_Lab_PkgNameIs=Name:
OptForm_Lab_PkgDescIs=Description:
;"About" tab
OptForm_Lab_ABToolBuildIs=build
OptForm_Lab_WhatsNew=What's new in this version:
OptForm_Url_ReportBug=Report bug
OptForm_Url_Help=Get help
OptForm_Btn_CheckUpdates=Check updates
OptForm_Btn_CheckingUpdates=Checking updates...
;Other strings in this window
OptForm_Caption=ABTool options
OptForm_Btn_ResetOptions=Reset
OptForm_Btn_SaveOptions=Save
OptForm_Btn_Close=Close
[ProgressForm]
;
; Installation progress form
;
[ChoosePkgForm]
;
; Form to choose package
;
[Messages]
;
; Messages to show
;
[Log]
;
; Log messages
;

185
ABTool/Languages/Russian.lng Normal file
View File

@ -0,0 +1,185 @@
; Author: AnthonyAxenov, anthonysoprano.93@gmail.com, abtool.ru
; Date: 20:11 20.05.2015
[Info]
; Language name - required
Name=Русский
; ABTool version — required
ABToolVer=0.8.0
[Main]
; Bidirectional mode:
; = 1 - Left to right
; = 2 - Right to left with right alignment
; = 3 - Right to left with left alignment
; = 4 - Right to left with right alignment only for reading (not typing)
Bidi=2
[SplashForm]
;
; Splash form
;
SplashForm_Lab_Loading=Загрузка...
[MainForm]
;
; Main form
;
;Tabs
MainForm_Tab_Soft=Программы
MainForm_Tab_Tools=Утилиты
MainForm_Tab_System=Система
; Deprecated since v0.8.0.313 (19:01 19.05.2015)
;MainForm_Tab_SysInfo=Общая информация
; Deprecated since v0.8.0.313 (19:01 19.05.2015)
;MainForm_Tab_SysCare=Обслуживание
MainForm_Tab_Log=Лог
;Common buttons on toolbars
MainForm_Btn_List=Список
MainForm_Mnb_ExpandAll=Развернуть все
MainForm_Mnb_CollapseAll=Свернуть все
MainForm_Btn_Search=Поиск
MainForm_Mnb_PackDefault=По умолчанию
MainForm_Mnb_PacksEdit=Управление пакетами...
;"Programms" tab
MainForm_Btn_SoftCheck=Выбор
MainForm_Mnb_SoftCheckAll=Выбрать все
MainForm_Mnb_SoftCheckNone=Снять выбор
MainForm_Btn_SoftPackages=Пакеты программ
MainForm_Btn_SoftStart=<<< Приступить к установке >>>
;"Utilities" tab
MainForm_Btn_ToolsPackages=Пакеты утилит
;"System" tab
MainForm_Lab_System=Система
MainForm_SInfo_RowOSVer=Версия ОС
MainForm_SInfo_RowPCName=Имя ПК
MainForm_SInfo_RowUserName=Имя пользователя
MainForm_Lab_UserVars=Переменные среды для
MainForm_Vars_Col1=Переменная
MainForm_Vars_Col2=Значение
MainForm_Lab_SysVars=Системные переменные среды
MainForm_Btn_SysInfoRefresh=Обновить
MainForm_Btn_VarsEdit=Редактирование...
MainForm_Mnb_CopyVarValue=Копировать значение
MainForm_Mnb_CopyVarLine=Копировать строку
MainForm_Mnb_CopyVarAll=Копировать все
MainForm_Grp_Power=Питание компьютера
MainForm_Btn_PowerOff=Выключение
MainForm_Btn_Reboot=Перезагрузка
;"Log" tab
MainForm_Btn_LogClear=Очистить лог
MainForm_Btn_LogSave=Сохранить...
;Other strings in this window
MainForm_Btn_Options=Настройки
[OptionsForm]
;
; Options form
;
;Tabs
OptForm_Tab_Common=Общие
OptForm_Tab_Interface=Интерфейс
OptForm_Tab_Packages=Пакеты
OptForm_Tab_About=О программе
;"Common" tab
; "OptForm_Grp_Lang / Language"
OptForm_Grp_Lang=Язык
OptForm_Lab_LangFileIs=Файл:
OptForm_Lab_LangNameIs=Язык:
OptForm_Lab_LangVerIs=Версия:
OptForm_Grp_Soft=Вкладка «Программы»
OptForm_Chb_ChkExitCodes=Немедленно сообщать о коде возврата <> 0
OptForm_Chb_ChkExitCodesHint=В случае завершения инсталлятора с кодом, отличным от нуля, вам предлагается прервать процесс установки программ
OptForm_Chb_DntUnChkItems=Не снимать отметку с чекбокса при коде возврата <> 0
OptForm_Chb_DntUnChkItemsHint=В последующем вы можете попробовать установить только те программы, установка которых не была завершена корректно
OptForm_Chb_ColorSoftTree=Раскрашивать список программ после установки
OptForm_Chb_ColorSoftTreeHint=После завершения процесса установки список программ будет раскрашен так: ошибка запуска — красный, код возврата <> 0 — синий
OptForm_Chb_ShowProgress=Отображать общий ход установки программ
OptForm_Chb_ShowProgressHint=Во время установки главное окно скроется и появится другое, с отображением общего хода установки. Иначе — главное окно не исчезнет, но заблокируется
OptForm_Chb_ExpandSoft=Раскрывать список программ после загрузки пакета
OptForm_Chb_ExpandSoftHint=
OptForm_Chb_QuietREG=Тихий импорт REG-файлов
OptForm_Chb_QuietREGHint=Когда до него дойдёт очередь, данные будут внесены без подтверждений
OptForm_Grp_Tools=Вкладка «Утилиты»
OptForm_Chb_HideOnTool=Скрыть главное окно ABTool при запуске утилиты
OptForm_Chb_HideOnToolHint=После запуска утилиты окно ABTool не будет мешать
OptForm_Chb_ExpandTools=Раскрывать список утилит после загрузки пакета
OptForm_Chb_ExpandToolsHint=
; "OptForm_Url_DownloadLangs / Download other languages"
OptForm_Url_DownloadLangs=Скачать другие языки
;"Interface" tab
OptForm_Chb_ShowLog=Показывать лог событий
OptForm_Chb_ShowLogHint=Лог выводится на дополнительную вкладку и содержит полный протокол событий
OptForm_Chb_DrawOutlines=Показывать линии при отрисовке списков
OptForm_Chb_DrawOutlinesHint=
OptForm_Chb_ScreenSnap=Прилипание окон к краям экрана
OptForm_Chb_ScreenSnapHint=
OptForm_Chb_OnTop=Поверх всех окон
OptForm_Chb_OnTopHint=
OptForm_Chb_ShowPkgDesc=Показывать описания пакетов
OptForm_Chb_ShowPkgDescHint=Действует как на вкладке установки, так и на вкладке утилит
OptForm_Chb_SrchVisible=Строка поиска всегда видна
OptForm_Chb_SrchVisibleHint=Действует как на вкладке установки, так и на вкладке утилит
OptForm_Chb_ScrollLog=Всегда прокручивать лог до конца
OptForm_Chb_ScrollLogHint=
OptForm_Grp_PkgSwitchMethod=Переключение между пакетами
OptForm_Rdb_PkgSwByMenu=Через меню над списками
OptForm_Rdb_PkgSwByMenuHint=Действует как на вкладке установки, так и на вкладке утилит
OptForm_Rdb_PkgSwByTabs=Отображать в виде закладок:
OptForm_Rdb_PkgSwByTabsHint=Действует как на вкладке установки, так и на вкладке утилит
OptForm_Chb_PkgSwShrinkTabs=Вмещать все (длинные названия будут укорочены)
OptForm_Chb_PkgSwShrinkTabsHint=Если выключено, все названия могут не поместиться в ширину панели закладок
OptForm_Cmb_PkgSwTabsPosHint=Выберите положение панели закладок
OptForm_Cmb_PkgSwTabsPosTop=Сверху
OptForm_Cmb_PkgSwTabsPosBottom=Снизу
OptForm_Cmb_PkgSwTabsPosLeft=Слева
OptForm_Cmb_PkgSwTabsPosRight=Справа
;"Packages" tab
OptForm_Grp_PkgSoft=Программы
OptForm_Grp_PkgTools=Утилиты
OptForm_Btn_BrowseUserSoftPkg=Выбор
OptForm_Btn_BrowseUserSoftPkgHint=Выбрать пользовательский пакет в отдельном окне
OptForm_Btn_ClearUserSoftPkgHint=Очистить поле
OptForm_Btn_OpenIniDir=Открыть папку ABTool_ini
OptForm_Btn_OpenIniDirHint=
OptForm_Grp_PkgInfo=Информация о пакете
OptForm_Lab_PkgNameIs=Название:
OptForm_Lab_PkgDescIs=Описание:
;"About" tab
OptForm_Lab_ABToolBuildIs=сборка
OptForm_Lab_WhatsNew=Что нового в этой версии:
OptForm_Url_ReportBug=Сообщить об ошибке
OptForm_Url_Help=Помощь
OptForm_Btn_CheckUpdates=Проверить обновления
OptForm_Btn_CheckingUpdates=ПОлучение информации...
;Other strings in this window
OptForm_Caption=Настройки ABTool
OptForm_Btn_ResetOptions=Сброс
OptForm_Btn_SaveOptions=Сохранить
OptForm_Btn_Close=Закрыть
[ProgressForm]
;
; Installation progress form
;
[ChoosePkgForm]
;
; Form to choose package
;
[Messages]
;
; Messages to show
;
[Log]
;
; Log messages
;

31
ABTool/abtool.ini
View File

@ -1,25 +1,22 @@
[Options]
Locale=
ScreenSnap=1
ShowPkgDesc=1
DrawOutlines=1
OnTop=0
ChkExitCodes=0
DntUnChkItems=1
ColorSoftTree=1
ShowProgress=1
ExpandSoft=1
QuietREG=0
ExpandSoft=1
HideOnTool=0
ExpandTools=1
ShowLog=1
DrawOutlines=1
ScreenSnap=1
OnTop=0
ShowPkgDesc=1
SrchVisible=0
[UserSoftPackages]
UserSoftPkg1=
UserSoftPkg2=
UserSoftPkg3=
LastUserSoftPkg=0
[UserToolPackages]
UserToolPkg1=
UserToolPkg2=
UserToolPkg3=
LastUserToolPkg=0
Left=
Top=
Width=
Height=

36
dmain.lfm
View File

@ -3678,6 +3678,42 @@ object dmMain: TdmMain
end
object mbRefresh: TMenuItem
Caption = 'Обновить'
Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00994E
0399994E035C9B500400994E031A984D026C984D02A6984D02CC984D02C1984D
028C984D024D994E03109C510500A2570A00A65B0D00FFFFFF00FFFFFF009C51
05CC9C5105CC9C510585A35806BFC8841AE3EAA71FF5FCB920FFFCB920F1EAA6
1FCFC78219A6A35909789D520622A2570A00A65B0D00FFFFFF00FFFFFF00A257
0ACCF9BF40FFA2570ACCF7B52AFFF6B01CFFF7B11EFFF8B527FFF8B527F1F7B1
1ED6F6B01CB4F8BA3490AB62105FA3580B19A65B0D00FFFFFF00FFFFFF00A85D
0ECCF2B339FFF3B844FFEEA824FFF2B339FFC37E23DCA85D0ECCA85D0EC1C27E
22BAE7A937B2EFAB2A90F3B8436DAD631243A95E0F06FFFFFF00FFFFFF00AF64
14CCECB149FFE6A334FFEEB752FFAF6414CCAF641494AD621200AA5F0F00AE63
134AAF641488E4A74491E8A83B6DCA88314EAF641419FFFFFF00FFFFFF00B66B
19CCEBB861FFE7B057FFE7B057FFEEBF6AFFB66B19CCB76C1A5CB56A1800AF64
1400B56A1932C7843178E3A84E6CDCA24C54B66B1925FFFFFF00FFFFFF00BD72
1E99BE731FCCBE731FCCBE731FCCBE731FCCBE731FCCBD721E99C0752000C378
2300BD721E00BE731F33E5B06140E7B4663FBD721E20FFFFFF00FFFFFF00C67B
2620E8B86F3FE6B46C40C57A2533C2782200BF752000C1762100C67B2699C57A
25CCC57A25CCC57A25CCC57A25CCC57A25CCC67B2699FFFFFF00FFFFFF00CD82
2A25E6B16654E8B5706CD8984478CE832B32CF842C00CB802800CC81295CCD82
2ACCF3CD84FFECBD77FFECBD77FFF0C57EFFCD822ACCFFFFFF00FFFFFF00D489
3019E2A7554EEDBC766DEEBE7491D4893088D58A314AD98E3300D3882F00D489
3094D48930CCF4CD84FFEAB772FFF1C67EFFD48930CCFFFFFF00FFFFFF00DA8F
3406DD943A43F8D2896DF4C57D90F4C77AB2E5A852BADB9034C1DB9034CCE5A8
52DCF7CD85FFF2C27AFFF8D389FFF7CD85FFDB9034CCFFFFFF00FFFFFF00DC91
3500E0953919E49E435FFCD88D90FACF85B4FBD086D6FCD489F1FCD489FFFBD0
86FFFACF85FFFBD389FFE19639CCFEDD92FFE19639CCFFFFFF00FFFFFF00DC91
3500E1963900E59A3D22E79F4378F1B964A6FACF80CFFEDA8EF1FEDA8EFFFACF
81F5F1BB65E3E79E42BFE59A3D85E59A3DCCE59A3DCCFFFFFF00FFFFFF00DC91
3500E1963900E59A3D00E89D3F10E99E404DE99E408CE99E40C1E99E40CCE99E
40A6E99E406CE89D3F1AE69B3D00E99E405CE99E4099FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
ImageIndex = 16
ShortCut = 16466
OnClick = mbRefreshClick

95
dmain.pas
View File

@ -5,8 +5,8 @@ unit dMain;
interface
uses
Classes, SysUtils, FileUtil, Controls, Menus, Forms, PopupNotifier,
VirtualTrees, uPackage, uPackageList, fOptions;
Classes, SysUtils, FileUtil, Controls, Menus, Forms, PopupNotifier, Dialogs,
VirtualTrees, uPackage, uPackageList, fOptions, uOptions;
type
@ -47,13 +47,13 @@ type
procedure mbOptionsPkgClick(Sender: TObject);
procedure mbRefreshClick(Sender: TObject);
private
// Форма настроек
fmOptions: TfmOptions;
// Подготовка директорий
procedure PrepareDirs();
// Подготовка списков пакетов
procedure PreparePackages();
procedure PreparePackageLists();
public
{ Публичные переменные, которые доступны во всех юнитах с подключенным uses ..., dMain }
// путь к файлу ABTool.exe
ABToolExePath: String;
// путь к директории ABTool
@ -70,6 +70,8 @@ type
ToolsPackages: TPackageList;
// Установка состояния отметки для всех корневых нод указанного дерева
procedure SetVSTCheckState(AVST: TBaseVirtualTree; AState: boolean);
// Показ формы настроек на указанной странице и возврат модального результата
function CallOptionsForm(APageIndex: byte = 0): TModalResult;
end;
var
@ -90,22 +92,13 @@ uses fMain;
procedure TdmMain.DataModuleCreate(Sender: TObject);
begin
PrepareDirs();
PreparePackages();
PreparePackageLists();
TOptions.Create(dmMain.ABToolDataPath + '\abtool.ini');
end;
procedure TdmMain.mbAboutClick(Sender: TObject);
var
fmOptions: TfmOptions;
begin
fmOptions := TfmOptions.Create(fmMain);
fmOptions.PageControl.ActivePageIndex := 2;
fmOptions.ShowModal;
end;
{------------------------------------------------------------------------------
Конструктор: TdmMain.SetVSTCheckState()
Назначение: Установка состояния отметки для всех корневых нод указанного дерева
Конструктор: TdmMain.SetVSTCheckState()
Назначение: Установка состояния отметки для всех корневых нод указанного дерева
Вх. параметры:
AVST: TBaseVirtualTree - дерево
AState: boolean - состояние отметок: TRUE выбрать все, FALSE снять выбор со всех
@ -147,8 +140,8 @@ begin
end;
{------------------------------------------------------------------------------
Конструктор: TdmMain.mbCheckAllClick()
Назначение: Обработка клика п. меню "Выбрать всё"
Конструктор: TdmMain.mbCheckAllClick()
Назначение: Обработка клика п. меню "Выбрать всё"
------------------------------------------------------------------------------}
procedure TdmMain.mbCheckAllClick(Sender: TObject);
begin
@ -156,8 +149,8 @@ begin
end;
{------------------------------------------------------------------------------
Конструктор: TdmMain.mbCheckNoneClick()
Назначение: Обработка клика п. меню "Снять выбор"
Конструктор: TdmMain.mbCheckNoneClick()
Назначение: Обработка клика п. меню "Снять выбор"
------------------------------------------------------------------------------}
procedure TdmMain.mbCheckNoneClick(Sender: TObject);
begin
@ -201,7 +194,7 @@ begin
end;
{------------------------------------------------------------------------------
Процедура: TdmMain.PreparePackages()
Процедура: TdmMain.PrepareDirs()
Назначение: Подготовка директорий
------------------------------------------------------------------------------}
procedure TdmMain.PrepareDirs();
@ -220,10 +213,10 @@ begin
end;
{------------------------------------------------------------------------------
Процедура: TdmMain.PreparePackages()
Процедура: TdmMain.PreparePackageLists()
Назначение: Подготовка списков пакетов
------------------------------------------------------------------------------}
procedure TdmMain.PreparePackages();
procedure TdmMain.PreparePackageLists();
begin
SoftPackages := TPackageList.Create;
SoftPackages.Load(ptSoft);
@ -231,21 +224,51 @@ begin
ToolsPackages.Load(ptTools);
end;
procedure TdmMain.mbOptionsMainClick(Sender: TObject);
var
fmOptions: TfmOptions;
{------------------------------------------------------------------------------
Функция: TdmMain.CallOptionsForm()
Назначение: Показ формы настроек на указанной странице и возврат модального
результата
Возвращает: TModalResult
------------------------------------------------------------------------------}
function TdmMain.CallOptionsForm(APageIndex: byte = 0): TModalResult;
begin
fmOptions := TfmOptions.Create(fmMain);
fmOptions.ShowModal;
if fmOptions = nil then
fmOptions := TfmOptions.Create(fmMain);
fmOptions.PageControl.ActivePageIndex := APageIndex;
Result := fmOptions.ShowModal;
end;
procedure TdmMain.mbOptionsPkgClick(Sender: TObject);
var
fmOptions: TfmOptions;
{------------------------------------------------------------------------------
Процедура: TdmMain.mbOptionsMainClick()
Назначение: Обработка клика п. меню "Настройки - Основные..."
------------------------------------------------------------------------------}
procedure TdmMain.mbOptionsMainClick(Sender: TObject);
begin
fmOptions := TfmOptions.Create(fmMain);
fmOptions.PageControl.ActivePageIndex := 1;
fmOptions.ShowModal;
CallOptionsForm;
end;
{------------------------------------------------------------------------------
Процедура: TdmMain.mbOptionsPkgClick()
Назначение: Обработка клика п. меню "Настройки - Управление пакетами..."
------------------------------------------------------------------------------}
procedure TdmMain.mbOptionsPkgClick(Sender: TObject);
begin
case CallOptionsForm(1) of
mrOK: ;//ShowMessage('mrOK');
mrClose: ;//ShowMessage('mrClose');
end;
end;
{------------------------------------------------------------------------------
Процедура: TdmMain.mbAboutClick()
Назначение: Обработка клика п. меню "Помощь - О программе..."
------------------------------------------------------------------------------}
procedure TdmMain.mbAboutClick(Sender: TObject);
begin
case CallOptionsForm(2) of
mrOK: ;//ShowMessage('mrOK');
mrClose: ;//ShowMessage('mrClose');
end;
end;
end.

4
fmain.lfm
View File

@ -1,7 +1,7 @@
object fmMain: TfmMain
Left = 301
Left = 1513
Height = 450
Top = 108
Top = 182
Width = 350
BorderIcons = [biSystemMenu, biMinimize]
Caption = 'ABTool'

172
foptions.lfm
View File

@ -1,7 +1,7 @@
object fmOptions: TfmOptions
Left = 656
Left = 1451
Height = 450
Top = 109
Top = 164
Width = 350
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
@ -3207,13 +3207,15 @@ object fmOptions: TfmOptions
71FE000F5EFF000773FE000387FE800176FD80002DC38001693C0003D1190007
36A3800F57F7800F8AFFC00F76FFC01F8BFFE03FBEFFF47FBDFF
}
OnCreate = FormCreate
OnClose = FormClose
OnShow = FormShow
Position = poMainFormCenter
ShowHint = True
ShowInTaskBar = stNever
LCLVersion = '1.8.4.0'
object PageControl: TPageControl
Left = 0
Height = 416
Height = 412
Top = 0
Width = 350
ActivePage = tabCommon
@ -3223,30 +3225,30 @@ object fmOptions: TfmOptions
TabWidth = 86
object tabCommon: TTabSheet
Caption = 'Общие'
ClientHeight = 390
ClientHeight = 386
ClientWidth = 342
object grpOptInstall: TGroupBox
Left = 5
Height = 171
Top = 131
Height = 159
Top = 149
Width = 332
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
Caption = 'Вкладка «Установка»'
ClientHeight = 153
ClientHeight = 141
ClientWidth = 328
TabOrder = 0
object cbChkExitCodes: TCheckBox
Left = 5
Height = 19
Top = 5
Top = 4
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Немедленно сообщать о коде возврата <> 0'
TabOrder = 0
@ -3254,12 +3256,12 @@ object fmOptions: TfmOptions
object cbDntUnChkItems: TCheckBox
Left = 5
Height = 19
Top = 29
Top = 27
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Не снимать отметку с чекбокса при коде возврата <> 0'
TabOrder = 1
@ -3267,12 +3269,12 @@ object fmOptions: TfmOptions
object cbShowProgress: TCheckBox
Left = 5
Height = 19
Top = 77
Top = 73
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Отображать общий ход установки программ'
TabOrder = 2
@ -3280,12 +3282,12 @@ object fmOptions: TfmOptions
object cbColorSoftTree: TCheckBox
Left = 5
Height = 19
Top = 53
Top = 50
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Раскрашивать список программ после установки'
TabOrder = 3
@ -3293,12 +3295,12 @@ object fmOptions: TfmOptions
object cbQuietREG: TCheckBox
Left = 5
Height = 19
Top = 101
Top = 96
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Тихий импорт REG-файлов'
TabOrder = 4
@ -3306,12 +3308,12 @@ object fmOptions: TfmOptions
object cbExpandSoft: TCheckBox
Left = 5
Height = 19
Top = 125
Top = 119
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Раскрывать дерево после загрузки пакета'
TabOrder = 5
@ -3319,26 +3321,26 @@ object fmOptions: TfmOptions
end
object grpOptTools: TGroupBox
Left = 5
Height = 73
Top = 307
Height = 67
Top = 313
Width = 332
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
Caption = 'Вкладка «Утилиты»'
ClientHeight = 55
ClientHeight = 49
ClientWidth = 328
TabOrder = 1
object cbHideOnTool: TCheckBox
Left = 5
Height = 19
Top = 5
Top = 4
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Скрывать главное окно при запуске утилит'
TabOrder = 0
@ -3346,12 +3348,12 @@ object fmOptions: TfmOptions
object cbExpandTools: TCheckBox
Left = 5
Height = 19
Top = 29
Top = 27
Width = 318
Align = alTop
AutoSize = False
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Раскрывать дерево после загрузки пакета'
TabOrder = 1
@ -3359,25 +3361,25 @@ object fmOptions: TfmOptions
end
object grpOptMainform: TGroupBox
Left = 5
Height = 121
Top = 5
Height = 111
Top = 33
Width = 332
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Right = 5
Caption = 'Главное окно'
ClientHeight = 103
ClientHeight = 93
ClientWidth = 328
TabOrder = 2
object cbOnTop: TCheckBox
Left = 5
Height = 19
Top = 77
Top = 73
Width = 318
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Поверх всех окон'
TabOrder = 0
@ -3385,23 +3387,23 @@ object fmOptions: TfmOptions
object cbDrawOutlines: TCheckBox
Left = 5
Height = 19
Top = 53
Top = 50
Width = 318
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Рисовать линии при отрисовке деревьев'
Caption = 'Рисовать в деревьях линии уровней вложенности'
TabOrder = 1
end
object cbShowPkgDesc: TCheckBox
Left = 5
Height = 19
Top = 29
Top = 27
Width = 318
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Показывать описания пакетов'
TabOrder = 2
@ -3409,16 +3411,45 @@ object fmOptions: TfmOptions
object cbScreenSnap: TCheckBox
Left = 5
Height = 19
Top = 5
Top = 4
Width = 318
Align = alTop
BorderSpacing.Left = 5
BorderSpacing.Top = 5
BorderSpacing.Top = 4
BorderSpacing.Right = 5
Caption = 'Прилипание к краям экрана'
TabOrder = 3
end
end
object pnLanguage: TPanel
Left = 0
Height = 28
Top = 0
Width = 342
Align = alTop
BevelOuter = bvNone
ClientHeight = 28
ClientWidth = 342
TabOrder = 3
object cmbLanguage: TComboBox
Left = 108
Height = 21
Top = 4
Width = 230
Anchors = [akTop, akLeft, akRight]
ItemHeight = 13
Style = csDropDownList
TabOrder = 0
end
object Label1: TLabel
Left = 8
Height = 13
Top = 8
Width = 83
Caption = 'Язык / Language'
ParentColor = False
end
end
end
object tabPackages: TTabSheet
Caption = 'Пакеты'
@ -3427,7 +3458,6 @@ object fmOptions: TfmOptions
Caption = 'О программе'
ClientHeight = 390
ClientWidth = 342
OnContextPopup = tabAboutContextPopup
object imgLogo: TImage
Left = 147
Height = 48
@ -3720,18 +3750,18 @@ object fmOptions: TfmOptions
end
object btnClose: TButton
Left = 272
Height = 25
Top = 420
Height = 29
Top = 416
Width = 75
Anchors = [akTop, akRight]
Caption = 'Закрыть'
OnClick = btnCloseClick
ModalResult = 11
TabOrder = 1
end
object btnSave: TButton
Left = 109
Height = 25
Top = 420
Height = 29
Top = 416
Width = 132
Anchors = [akTop, akLeft, akRight]
Caption = 'Сохранить'
@ -3741,15 +3771,53 @@ object fmOptions: TfmOptions
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
ModalResult = 1
OnClick = btnSaveClick
ParentFont = False
TabOrder = 2
end
object btnSetDefault: TButton
Left = 4
Height = 25
Top = 420
Width = 75
Caption = 'Сброс'
TabOrder = 3
object btnSetDefault: TSpeedButton
Left = 8
Height = 24
Hint = 'Установить настройки по умолчанию'
Top = 418
Width = 24
Flat = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00994E
0399994E035C9B500400994E031A984D026C984D02A6984D02CC984D02C1984D
028C984D024D994E03109C510500A2570A00A65B0D00FFFFFF00FFFFFF009C51
05CC9C5105CC9C510585A35806BFC8841AE3EAA71FF5FCB920FFFCB920F1EAA6
1FCFC78219A6A35909789D520622A2570A00A65B0D00FFFFFF00FFFFFF00A257
0ACCF9BF40FFA2570ACCF7B52AFFF6B01CFFF7B11EFFF8B527FFF8B527F1F7B1
1ED6F6B01CB4F8BA3490AB62105FA3580B19A65B0D00FFFFFF00FFFFFF00A85D
0ECCF2B339FFF3B844FFEEA824FFF2B339FFC37E23DCA85D0ECCA85D0EC1C27E
22BAE7A937B2EFAB2A90F3B8436DAD631243A95E0F06FFFFFF00FFFFFF00AF64
14CCECB149FFE6A334FFEEB752FFAF6414CCAF641494AD621200AA5F0F00AE63
134AAF641488E4A74491E8A83B6DCA88314EAF641419FFFFFF00FFFFFF00B66B
19CCEBB861FFE7B057FFE7B057FFEEBF6AFFB66B19CCB76C1A5CB56A1800AF64
1400B56A1932C7843178E3A84E6CDCA24C54B66B1925FFFFFF00FFFFFF00BD72
1E99BE731FCCBE731FCCBE731FCCBE731FCCBE731FCCBD721E99C0752000C378
2300BD721E00BE731F33E5B06140E7B4663FBD721E20FFFFFF00FFFFFF00C67B
2620E8B86F3FE6B46C40C57A2533C2782200BF752000C1762100C67B2699C57A
25CCC57A25CCC57A25CCC57A25CCC57A25CCC67B2699FFFFFF00FFFFFF00CD82
2A25E6B16654E8B5706CD8984478CE832B32CF842C00CB802800CC81295CCD82
2ACCF3CD84FFECBD77FFECBD77FFF0C57EFFCD822ACCFFFFFF00FFFFFF00D489
3019E2A7554EEDBC766DEEBE7491D4893088D58A314AD98E3300D3882F00D489
3094D48930CCF4CD84FFEAB772FFF1C67EFFD48930CCFFFFFF00FFFFFF00DA8F
3406DD943A43F8D2896DF4C57D90F4C77AB2E5A852BADB9034C1DB9034CCE5A8
52DCF7CD85FFF2C27AFFF8D389FFF7CD85FFDB9034CCFFFFFF00FFFFFF00DC91
3500E0953919E49E435FFCD88D90FACF85B4FBD086D6FCD489F1FCD489FFFBD0
86FFFACF85FFFBD389FFE19639CCFEDD92FFE19639CCFFFFFF00FFFFFF00DC91
3500E1963900E59A3D22E79F4378F1B964A6FACF80CFFEDA8EF1FEDA8EFFFACF
81F5F1BB65E3E79E42BFE59A3D85E59A3DCCE59A3DCCFFFFFF00FFFFFF00DC91
3500E1963900E59A3D00E89D3F10E99E404DE99E408CE99E40C1E99E40CCE99E
40A6E99E406CE89D3F1AE69B3D00E99E405CE99E4099FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
end
end

75
foptions.pas
View File

@ -5,15 +5,14 @@ unit fOptions;
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
ComCtrls, ExtCtrls, StdCtrls, Menus, Types;
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, Menus, Buttons, uOptions;
type
{ TfmOptions }
TfmOptions = class(TForm)
btnSetDefault: TButton;
btnSave: TButton;
btnClose: TButton;
btnCheckUpdates: TButton;
@ -33,6 +32,7 @@ type
cbHideOnTool: TCheckBox;
cbDrawOutlines: TCheckBox;
cbScreenSnap: TCheckBox;
cmbLanguage: TComboBox;
grpOptMainform: TGroupBox;
grpOptInstall: TGroupBox;
grpOptTools: TGroupBox;
@ -40,18 +40,20 @@ type
labAboutTitle: TLabel;
labCopyright: TLabel;
labDescription: TLabel;
Label1: TLabel;
mmLicenseText: TMemo;
PageControl: TPageControl;
pnLanguage: TPanel;
btnSetDefault: TSpeedButton;
tabCommon: TTabSheet;
tabPackages: TTabSheet;
tabAbout: TTabSheet;
tabLicense: TTabSheet;
procedure btnCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure tabAboutContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure btnSaveClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormShow(Sender: TObject);
private
procedure ResetControlls;
public
end;
@ -65,20 +67,65 @@ implementation
{ TfmOptions }
procedure TfmOptions.FormCreate(Sender: TObject);
{------------------------------------------------------------------------------
Процедура: TfmOptions.btnSaveClick()
Назначение: Закрытие формы настроек и возврат модального результата при клике
по кнопке "Сохранить"
Описание: Закрытие формы происходит автоматически благодаря свойству
ModalResult = mrOK, заданному кнопке в инспекторе объектов.
------------------------------------------------------------------------------}
procedure TfmOptions.btnSaveClick(Sender: TObject);
begin
//TODO сохранение настроек
end;
procedure TfmOptions.btnCloseClick(Sender: TObject);
{------------------------------------------------------------------------------
Процедура: TfmOptions.FormClose()
Назначение: Закрытие формы при её закрытии через кнопку в заголовке и возврат
модального результата
------------------------------------------------------------------------------}
procedure TfmOptions.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
Self.Destroy;
ModalResult := mrClose;
end;
procedure TfmOptions.tabAboutContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
{------------------------------------------------------------------------------
Процедура: TfmOptions.FormShow()
Назначение: Показ окна настроек
Описание: Форма настроек создаётся однажды при её первом вызове. При закрытии
она не уничтожается. Она может быть закрыта без сохранения настроек. При
повторном открытии окна контроллы должны принять состояние, соответствущее
текущим (при запуске или прошлом сохранении) настройкам. В противном случае,
повторное открытие окна отобразит прошлые несохранённые изменения - это
введёт пользователя в заблуждение и он примет эти настройки как текущие.
------------------------------------------------------------------------------}
procedure TfmOptions.FormShow(Sender: TObject);
begin
ResetControlls;
end;
{------------------------------------------------------------------------------
Процедура: TfmOptions.ResetControlls()
Назначение: Сброс состояния контроллов в сооответствии с текущими настройками
------------------------------------------------------------------------------}
procedure TfmOptions.ResetControlls;
begin
cmbLanguage.Items := GlobalOptions.ReadAvailableLocales(false);
cbScreenSnap.Checked := GlobalOptions.ScreenSnap;
cbShowPkgDesc.Checked := GlobalOptions.ShowPkgDesc;
cbDrawOutlines.Checked := GlobalOptions.DrawOutlines;
cbOnTop.Checked := GlobalOptions.OnTop;
cbChkExitCodes.Checked := GlobalOptions.ChkExitCodes;
cbDntUnChkItems.Checked := GlobalOptions.DntUnChkItems;
cbColorSoftTree.Checked := GlobalOptions.ColorSoftTree;
cbShowProgress.Checked := GlobalOptions.ShowProgress;
cbQuietREG.Checked := GlobalOptions.QuietREG;
cbExpandSoft.Checked := GlobalOptions.ExpandSoft;
cbHideOnTool.Checked := GlobalOptions.HideOnTool;
cbExpandTools.Checked := GlobalOptions.ExpandTools;
end;
end.

73
ufileutils.pas
View File

@ -5,16 +5,19 @@ unit uFileUtils;
interface
uses
Classes, SysUtils, FileUtil, Types, uPackage;
Classes, SysUtils, FileUtil, uPackage;
// Получение списка файлов в директории
function GetFileList(Path, FileMask: String; FullPaths: Boolean = True): TStringList;
function GetFileList(APath, AFileMask: String; AFullPaths: Boolean = True): TStringList;
// Получение списка всех файлов внутри директории ABTool\
function GetABToolFileList(SubDir, FileMask: String; FullPaths: Boolean = True): TStringList;
// Получение списка всех файлов внутри директории ABTool
function GetABToolFileList(ASubDir, AFileMask: String; AFullPaths: Boolean = True): TStringList;
// Получение списка всех файлов пакетов
function GetPackagesIniFileList(PackageType: TPackageType; FullPaths: Boolean = True): TStringList;
function GetPackagesIniFileList(APackageType: TPackageType; AFullPaths: Boolean = True): TStringList;
// Получение списка всех файлов локализаций
function GetLocalesIniFileList(AFullPaths: Boolean = True): TStringList;
implementation
@ -22,27 +25,27 @@ implementation
Функция: GetFileList
Назначение: Получение списка файлов в директории
Вх. параметры:
Path: string - путь к директории, список файлов которой нужно получить
FileMask: string - маска файлов, по которой нужно отфильтровать список файлов
FullPaths: boolean - возвращать полные пути (true) или только имена
APath: string - путь к директории, список файлов которой нужно получить
AFileMask: string - маска файлов, по которой нужно отфильтровать список файлов
AFullPaths: boolean - возвращать полные пути (true) или только имена
файлов (false). По умолчанию true.
Возвращает:
TStringList - список строк с полными путями или только с именами файлов
------------------------------------------------------------------------------}
function GetFileList(Path, FileMask: String; FullPaths: Boolean = True): TStringList;
function GetFileList(APath, AFileMask: String; AFullPaths: Boolean = True): TStringList;
var
SearchRec: TSearchRec;
ResultLines: TStringList;
begin
ResultLines := TStringList.Create;
Path := IncludeTrailingPathDelimiter(Path);
if FindFirst(Path + FileMask, faNormal, SearchRec) = 0 then
APath := IncludeTrailingPathDelimiter(APath);
if FindFirst(APath + AFileMask, faNormal, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr <> faDirectory) then
begin
if FullPaths then
ResultLines.Add(Path + SearchRec.Name)
if AFullPaths then
ResultLines.Add(APath + SearchRec.Name)
else
ResultLines.Add(SearchRec.Name);
end;
@ -56,37 +59,53 @@ end;
Функция: GetABToolFileList
Назначение: Получение списка всех файлов внутри директории ABTool\
Вх. параметры:
SubDir: string - имя директории внутри ABTool\
FileMask: string - маска файлов, по которой нужно отфильтровать список файлов
FullPaths: boolean - возвращать полные пути (true) или только имена
ASubDir: string - имя директории внутри ABTool\
AFileMask: string - маска файлов, по которой нужно отфильтровать список файлов
AFullPaths: boolean - возвращать полные пути (true) или только имена
файлов (false). По умолчанию true.
Возвращает:
TStringList - список строк с полными путями или только с именами файлов пакетов
------------------------------------------------------------------------------}
function GetABToolFileList(SubDir, FileMask: String; FullPaths: Boolean = True): TStringList;
function GetABToolFileList(ASubDir, AFileMask: String; AFullPaths: Boolean = True): TStringList;
begin
Result := GetFileList(ExtractFilePath(ParamStr(0)) + 'ABTool\' + SubDir, FileMask, FullPaths);
Result := GetFileList(ExtractFilePath(ParamStr(0)) + 'ABTool\' + ASubDir, AFileMask, AFullPaths);
end;
{------------------------------------------------------------------------------
Функция: GetPackagesIniFileList
Назначение: Получение спискавсех файлов пакетов
Назначение: Получение списка всех файлов пакетов
Вх. параметры:
PackageType: TPackageType - тип пакета: ptSoft либо ptTools
FullPaths: boolean - возвращать полные пути (true) или только имена
APackageType: TPackageType - тип пакета: ptSoft либо ptTools
AFullPaths: boolean - возвращать полные пути (true) или только имена
файлов (false). По умолчанию true.
Возвращает:
TStringList - список строк с полными путями или только с именами файлов пакетов
Исключения:
TException - при попытке передать любой другой тип пакета
------------------------------------------------------------------------------}
function GetPackagesIniFileList(APackageType: TPackageType; AFullPaths: Boolean = True): TStringList;
begin
case (APackageType) of
ptSoft: Result := GetABToolFileList('Packages', 'soft.*.ini', AFullPaths);
ptTools: Result := GetABToolFileList('Packages', 'tools.*.ini', AFullPaths);
else raise Exception.Create('GetPackagesIniFileList(): передан неверный тип пакета');
end;
end;
{------------------------------------------------------------------------------
Функция: GetPackagesIniFileList
Назначение: Получение списка всех файлов локализаций
Вх. параметры:
AFullPaths: boolean - возвращать полные пути (true) или только имена
файлов (false). По умолчанию true.
Возвращает:
TStringList - список строк с полными путями или только с именами файлов пакетов
Исключения:
TException - при попытке передать ptUnknown
------------------------------------------------------------------------------}
function GetPackagesIniFileList(PackageType: TPackageType; FullPaths: Boolean = True): TStringList;
function GetLocalesIniFileList(AFullPaths: Boolean = True): TStringList;
begin
case (PackageType) of
ptSoft: Result := GetABToolFileList('Packages', 'soft.*.ini', FullPaths);
ptTools: Result := GetABToolFileList('Packages', 'tools.*.ini', FullPaths);
ptUnknown: raise Exception.Create('GetPackagesIniFileList(): передан ptUnknown');
end;
Result := GetABToolFileList('Languages', '*.lng', AFullPaths);
end;
end.

373
uoptions.pas Normal file
View File

@ -0,0 +1,373 @@
unit uOptions;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, IniFiles, uFileUtils;
type
// Класс настроек
{ TOptions }
TOptions = class(TIniFile)
strict private
// Файл локализации
FLocale: string;
// Прилипание к краям экрана
FScreenSnap: Boolean;
// Показывать описания пакетов
FShowPkgDesc: Boolean;
// Рисовать в деревьях линии уровней вложенности
FDrawOutlines: Boolean;
// Поверх всех окон
FOnTop: Boolean;
// Немедленно сообщать о коде возврата <> 0
FChkExitCodes: Boolean;
// Не снимать отметку с чекбокса при коде возврата <> 0
FDntUnChkItems: Boolean;
// Раскрашивать список программ после установки
FColorSoftTree: Boolean;
// Отображать общий ход установки программ
FShowProgress: Boolean;
// Тихий импорт REG-файлов
FQuietREG: Boolean;
// Раскрывать дерево после загрузки пакета
FExpandSoft: Boolean;
// Скрывать главное окно при запуске утилит
FHideOnTool: Boolean;
// Раскрывать дерево после загрузки пакета
FExpandTools: Boolean;
// Последняя позиция по горизонтали от левого края экрана
FLeft: Integer;
// Последняя позиция по вертикали от верхнего края экрана
FTop: Integer;
// Последняя ширина
FWidth: Integer;
// Последняя высота
FHeight: Integer;
// Параметры, с которыми запушена ABTool
FCLParams: TStringList;
private
// Установка параметра локализации
procedure SetLocale(ALngFilename: string);
public
// Файл локализации
property Locale: string read FLocale write SetLocale;
// Прилипание к краям экрана
property ScreenSnap: Boolean read FScreenSnap write FScreenSnap default True;
// Показывать описания пакетов
property ShowPkgDesc: Boolean read FShowPkgDesc write FShowPkgDesc default True;
// Рисовать в деревьях линии уровней вложенности
property DrawOutlines: Boolean read FDrawOutlines write FDrawOutlines default True;
// Поверх всех окон
property OnTop: Boolean read FOnTop write FOnTop default False;
// Немедленно сообщать о коде возврата <> 0
property ChkExitCodes: Boolean read FChkExitCodes write FChkExitCodes default True;
// Не снимать отметку с чекбокса при коде возврата <> 0
property DntUnChkItems: Boolean read FDntUnChkItems write FDntUnChkItems default True;
// Раскрашивать список программ после установки
property ColorSoftTree: Boolean read FColorSoftTree write FColorSoftTree default True;
// Отображать общий ход установки программ
property ShowProgress: Boolean read FShowProgress write FShowProgress default True;
// Тихий импорт REG-файлов
property QuietREG: Boolean read FQuietREG write FQuietREG default True;
// Раскрывать дерево после загрузки пакета
property ExpandSoft: Boolean read FExpandSoft write FExpandSoft default True;
// Скрывать главное окно при запуске утилит
property HideOnTool: Boolean read FExpandSoft write FExpandSoft default False;
// Раскрывать дерево после загрузки пакета
property ExpandTools: Boolean read FExpandSoft write FExpandSoft default True;
// Последняя позиция по горизонтали от левого края экрана
property Left: Integer read FLeft write FLeft;
// Последняя позиция по вертикали от верхнего края экрана
property Top: Integer read FTop write FTop;
// Последняя ширина
property Width: Integer read FWidth write FWidth default 350;
// Последняя высота
property Height: Integer read FHeight write FHeight default 450;
// Параметры, с которыми запушена ABTool
property CLParams: TStringList read FCLParams;
// Пути ко всем доступным файлам локализаций
function ReadAvailableLocales(AFullPaths: Boolean = True): TStringList;
// Создание объекта настроек и установка настроек
constructor Create(AIniFilename: string); overload;
// Деструктор объекта настроек
destructor Destroy(); override;
// Определение наличия доп. ключей запуска
function HasCLParams: Boolean;
// Установка параметров командной строки, с которыми запущен ABTool
procedure ReadCLParams;
// Поиск ключа запуска среди всех, с которыми запущен ABTool
function FindCLParam(AParamName: string): Boolean;
// Чтение настроек
procedure Load;
end; // TOptions
var
// Настройки - глобальный объект, доступный всем модулям, сославшимся на этот
GlobalOptions: TOptions;
implementation
{ TOptions }
{------------------------------------------------------------------------------
Конструктор: TOptions.Create()
Назначение: Создание объекта настроек и установка настроек
------------------------------------------------------------------------------}
constructor TOptions.Create(AIniFilename: string);
begin
if HasCLParams then
ReadCLParams;
//ReadAvailableLocales;
inherited Create(AIniFilename, [ifoStripComments, ifoStripInvalid]);
Load;
GlobalOptions := Self;
end;
{------------------------------------------------------------------------------
Деструктор: TOptions.Destroy()
------------------------------------------------------------------------------}
destructor TOptions.Destroy();
begin
inherited Destroy();
end;
{------------------------------------------------------------------------------
Функция: TOptions.HasCLParams()
Назначение: Определение наличия доп. ключей запуска
Возвращает: boolean
------------------------------------------------------------------------------}
function TOptions.HasCLParams: Boolean;
begin
Result := ParamCount > 0;
//if FDebug then
// Log('DoesABToolHaveKeys(): '+BoolToStr(Result));
end;
{------------------------------------------------------------------------------
Процедура: TOptions.ReadCLParams()
Назначение: Установка параметров командной строки, с которыми запущен ABTool
------------------------------------------------------------------------------}
procedure TOptions.ReadCLParams;
var
i: byte;
begin
if HasCLParams then
begin
FCLParams := TStringList.Create;
for i := 1 to ParamCount do
FCLParams.Add(Trim(LowerCase(ParamStr(i))));
end;
end;
{------------------------------------------------------------------------------
Функция: TOptions.FindCLParam()
Назначение: Поиск ключа запуска среди всех, с которыми запущен ABTool
Возвращает: boolean
------------------------------------------------------------------------------}
function TOptions.FindCLParam(AParamName: string): Boolean;
var
i: Smallint;
begin
Result := False;
if HasCLParams then
begin
for i := 0 to FCLParams.Count - 1 do
if Pos(LowerCase(AParamName), FCLParams.Strings[i]) > 0 then
begin
Result := True;
Exit;
end;
end;
end;
{------------------------------------------------------------------------------
Процедура: TOptions.Load()
Назначение: Чтение настроек
------------------------------------------------------------------------------}
procedure TOptions.Load;
begin
try
//TODO создание дефолтного файла настроек при отсутсвии такового
//TODO создание файла настроек по умолчанию
SetLocale(ReadString('Options', 'Locale', ''));
FScreenSnap := ReadBool('Options', 'ScreenSnap', True);
FShowPkgDesc := ReadBool('Options', 'ShowPkgDesc', True);
FDrawOutlines := ReadBool('Options', 'DrawOutlines', True);
FOnTop := ReadBool('Options', 'OnTop', False);
FChkExitCodes := ReadBool('Options', 'ChkExitCodes', False);
FDntUnChkItems := ReadBool('Options', 'DntUnChkItems', True);
FColorSoftTree := ReadBool('Options', 'ColorSoftTree', True);
FShowProgress := ReadBool('Options', 'ShowProgress', True);
FQuietREG := ReadBool('Options', 'QuietREG', False);
FExpandSoft := ReadBool('Options', 'ExpandSoft', True);
FHideOnTool := ReadBool('Options', 'HideOnTool', False);
FExpandTools := ReadBool('Options', 'ExpandTools', True);
FLeft := ReadInteger('Options', 'Left', (Screen.Width div 2) - 175);
FTop := ReadInteger('Options', 'Top', (Screen.Height div 2) - 225);
FWidth := ReadInteger('Options', 'Width', 350);
FHeight := ReadInteger('Options', 'Height', 450);
except // SysErrorMessage(GetLastError)
On E: Exception do
begin
raise Exception.Create('Не удалось прочитать настройки из файла abtool.ini.');
//+ #13#10 +
//'Сейчас он будет создан с параметрами по умолчанию.' + #13#10 +
//'Сообщение системы: ' + #13#10 + E.Message + '(' + IntToStr(GetLastError) + ') ');
//SaveOptions(true);
end;
end;
end;
{------------------------------------------------------------------------------
Процедура: TOptions.SetLocale()
Назначение: Установка параметра локализации
------------------------------------------------------------------------------}
procedure TOptions.SetLocale(ALngFilename: string);
begin
//TODO проверка существования файла локализации
FLocale := ALngFilename;
end;
{------------------------------------------------------------------------------
Процедура: TOptions.ReadAvailableLocales()
Назначение: Получение списка всех доступных файлов локализаций
Вх. параметры:
FullPaths: boolean - возвращать полные пути (true) или только имена
файлов (false). По умолчанию true.
Возвращает: TStringList
------------------------------------------------------------------------------}
function TOptions.ReadAvailableLocales(AFullPaths: Boolean = True): TStringList;
begin
Result := GetLocalesIniFileList(AFullPaths);
end;
{
// Чтение настроек
function LoadOptions: boolean;
begin
Result := false;
if Options.Debug then
Log('LoadOptions()');
Log('Загрузка настроек из abtool.ini...');
if not (FileExists(ABToolIniPath + 'abtool.ini')) then begin
Log('Файла настроек не существует. Сейчас он будет создан с параметрами по умолчанию...');
SaveOptions(true);
end // if FileExists
else begin
try
try
with Options do begin
ABToolIniFile := TInifile.Create(ABToolIniPath + 'abtool.ini');
ABToolKeys := TStringList.Create;
ABToolKeys := GetABToolKeys;
if Options.Debug then
Log('LoadOptions(): ABToolKeys='+GetABToolKeys.text);
// Непосредственно чтение настроек из INI в память
if FindCLParam('+lang') then begin
LangFile := ReadString('Options','LangFile','');
if Options.Debug then
Log('LoadOptions(): LangFile='+LangFile);
end; // if +lang
Left := ReadInteger('Options','Left', (Screen.Width div 2) - 180);
Top := ReadInteger('Options','Top', (Screen.Height div 2) - 292);
Width := ReadInteger('Options','Width', 360);
Height := ReadInteger('Options','Height', 485);
ChkExitCodes := ReadBool('Options','ChkExitCodes',false);
DntUnChkItems := ReadBool('Options','DntUnChkItems',true);
ColorSoftTree := ReadBool('Options','ColorSoftTree',true);
ShowProgress := ReadBool('Options','ShowProgress',true);
ExpandSoft := ReadBool('Options','ExpandSoft',true);
QuietREG := ReadBool('Options','QuietREG',false);
HideOnTool := ReadBool('Options','HideOnTool',false);
ExpandTools := ReadBool('Options','ExpandTools',true);
ShowLog := ReadBool('Options','ShowLog',true);
DrawOutlines := ReadBool('Options','DrawOutlines',true);
ScreenSnap := ReadBool('Options','ScreenSnap',true);
OnTop := ReadBool('Options','OnTop',false);
ShowPkgDesc := ReadBool('Options','ShowPkgDesc',true);
SrchVisible := ReadBool('Options','SrchVisible',false);
ScrollLog := ReadBool('Options','ScrollLog',true);
LastSoftPkg := ReadString('Options','LastSoftPkg', '');
LastToolPkg := ReadString('Options','LastToolPkg', '');
if Options.Debug then begin
Log('LoadOptions(): Left='+Left.ToString);
Log('LoadOptions(): Top='+Top.ToString);
Log('LoadOptions(): Width='+Width.ToString);
Log('LoadOptions(): Height='+Height.ToString);
Log('LoadOptions(): ChkExitCodes='+BoolToStr(ChkExitCodes));
Log('LoadOptions(): DntUnChkItems='+BoolToStr(DntUnChkItems));
Log('LoadOptions(): ColorSoftTree='+BoolToStr(ColorSoftTree));
Log('LoadOptions(): ShowProgress='+BoolToStr(ShowProgress));
Log('LoadOptions(): ExpandSoft='+BoolToStr(ExpandSoft));
Log('LoadOptions(): QuietREG='+BoolToStr(QuietREG));
Log('LoadOptions(): HideOnTool='+BoolToStr(HideOnTool));
Log('LoadOptions(): ExpandTools='+BoolToStr(ExpandTools));
Log('LoadOptions(): DrawOutlines='+BoolToStr(DrawOutlines));
Log('LoadOptions(): ScreenSnap='+BoolToStr(ScreenSnap));
Log('LoadOptions(): OnTop='+BoolToStr(OnTop));
Log('LoadOptions(): ShowPkgDesc='+BoolToStr(ShowPkgDesc));
Log('LoadOptions(): SrchVisible='+BoolToStr(SrchVisible));
Log('LoadOptions(): ScrollLog='+BoolToStr(ScrollLog));
Log('LoadOptions(): LastSoftPkg='+LastSoftPkg);
Log('LoadOptions(): ScrollLog='+LastToolPkg);
end;
end; // with Options
Result := true;
except // SysErrorMessage(GetLastError)
On E: Exception Do Begin
Raise Exception.Create('Не удалось прочитать настройки из файла abtool.ini.' + #13#10 +
'Сейчас он будет создан с параметрами по умолчанию.' + #13#10 +
'Сообщение системы: ' + #13#10 + E.Message + '(' + IntToStr(GetLastError) + ') ');
Log('Не удалось прочитать настройки из файла abtool.ini.' + #13#10 +
'Сейчас он будет создан с параметрами по умолчанию.' + #13#10 +
'Сообщение системы: ' + #13#10 + E.Message + '(' + IntToStr(GetLastError) + ') ');
if Options.Debug then
Log('LoadOptions() EXCEPTION Stack Trace:' + #13#10 + E.StackTrace);
SaveOptions(true);
End; // On E: Exception
end; // except
finally
// if Options.ABToolIniFile <> nil then
// Options.Free;
end; // finally
end; // if not FileExists
end;
}
end.

44
upackage.pas
View File

@ -26,9 +26,9 @@ type
TPackage = class(TIniFile)
strict private
// Имя пакета: [PackageInfo] Name
FName: String;
FName: string;
// Описание пакета: [PackageInfo] Description
FDescription: String;
FDescription: string;
// Тип пакета
FType: TPackageType;
private
@ -38,19 +38,19 @@ type
function SetType(): TPackageType;
public
// Имя пакета: [PackageInfo] Name
property Name: String read FName;
property Name: string read FName;
// Описание пакета: [PackageInfo] Description
property Description: String read FDescription;
property Description: string read FDescription;
// Тип пакета
property PackageType: TPackageType read FType;
// Создание объекта пакета и установка информации о нём
constructor Create(APkgFilename: Ansistring); overload;
// Деструктор
constructor Create(AIniFilename: string); overload;
// Деструктор объекта пакета
destructor Destroy(); override;
// Запуск исполняемого файла и получение результатов запуска
function ExecuteItem(const AFileName, AParams: String; AHideMainWindow: Boolean;
function ExecuteItem(const AFileName, AParams: string; AHideMainWindow: Boolean;
Out AOutExitcode: Cardinal): Boolean;
end; // TPackage
@ -61,33 +61,33 @@ implementation
{------------------------------------------------------------------------------
Конструктор: TPackage.Create()
Назначение: Создание объекта пакета и установка информации о нём
Вх. параметры: APkgFilename: Ansistring - путь к ini-файлу
Вх. параметры: AIniFilename: string - путь к ini-файлу
------------------------------------------------------------------------------}
constructor TPackage.Create(APkgFilename: Ansistring);
constructor TPackage.Create(AIniFilename: string);
begin
inherited Create(APkgFilename, [ifoStripComments, ifoStripInvalid]);
inherited Create(AIniFilename, [ifoStripComments, ifoStripInvalid]);
SetProperties();
end;
{------------------------------------------------------------------------------
Процедура: TPackage.SetType()
Назначение: Установка информации о пакете
Процедура: TPackage.SetType()
Назначение: Установка информации о пакете
------------------------------------------------------------------------------}
procedure TPackage.SetProperties();
begin
FName := ReadString('PackageInfo', 'Name', '<без названия>');
FDescription := ReadString('PackageInfo', 'Description', '<без описания>');
FName := Readstring('PackageInfo', 'Name', '<без названия>');
FDescription := Readstring('PackageInfo', 'Description', '<без описания>');
FType := SetType();
end;
{------------------------------------------------------------------------------
Функция: TPackage.SetType()
Назначение: Определение типа пакета по имени его файла
Возвращает: TPackageType - тип пакета
Функция: TPackage.SetType()
Назначение: Определение типа пакета по имени его файла
Возвращает: TPackageType - тип пакета
------------------------------------------------------------------------------}
function TPackage.SetType(): TPackageType;
var
SubStr: String;
SubStr: string;
begin
SubStr := Copy(ExtractFileName(FileName), 1, 4);
if (LowerCase(SubStr) = 'soft') then
@ -99,7 +99,7 @@ begin
end;
{------------------------------------------------------------------------------
Деструктор: TPackage.Destroy()
Деструктор: TPackage.Destroy()
------------------------------------------------------------------------------}
destructor TPackage.Destroy();
begin
@ -110,14 +110,14 @@ end;
Функция: TPackage.ExecuteItem()
Назначение: Запуск исполняемого файла и получение результатов запуска
Вх. параметры:
AFileName : String - путь к исполняемому файлу
AParams : String - дополнительные параметры запуска
AFileName : string - путь к исполняемому файлу
AParams : string - дополнительные параметры запуска
AHideMainWindow : Boolean - скрывать главное окно ABTool (true) или нет (false)
Вых. параметры:
AOutExitcode : Cardinal - код завершения процесса
Возвращает: boolean - true при успешном запуске программы, false при неудаче
------------------------------------------------------------------------------}
function TPackage.ExecuteItem(const AFileName, AParams: String; AHideMainWindow: Boolean;
function TPackage.ExecuteItem(const AFileName, AParams: string; AHideMainWindow: Boolean;
out AOutExitcode: Cardinal): Boolean;
begin

18
upackagelist.pas
View File

@ -39,7 +39,7 @@ implementation
{ TPackageList }
{------------------------------------------------------------------------------
Процедура: TPackageList.Create()
Процедура: TPackageList.Load()
Назначение: Создание списка пакетов по указанному типу
Вх. параметры: APackageType: TPackageType - тип списка пакета
------------------------------------------------------------------------------}
@ -50,8 +50,8 @@ begin
end;
{------------------------------------------------------------------------------
Процедура: TPackageList.Reload()
Назначение: Заполнение списка пакетов объектами пакетов
Процедура: TPackageList.Reload()
Назначение: Заполнение списка пакетов объектами пакетов
------------------------------------------------------------------------------}
procedure TPackageList.Reload();
var
@ -74,9 +74,9 @@ begin
end;
{------------------------------------------------------------------------------
Функция: TPackage.GetPackageByIndex()
Назначение: Получение пакета из списка по его номеру
Возвращает: TPackage - пакет
Функция: TPackage.GetPackageByIndex()
Назначение: Получение пакета из списка по его номеру
Возвращает: TPackage - пакет
------------------------------------------------------------------------------}
function TPackageList.GetPackageByIndex(Index: integer): TPackage;
begin
@ -84,9 +84,9 @@ begin
end;
{------------------------------------------------------------------------------
Функция: TPackage.GetPackageByIndex()
Назначение: Получение количества пакетов в списке
Возвращает: integer - число пакетов в списке
Функция: TPackage.Count()
Назначение: Получение количества пакетов в списке
Возвращает: integer - число пакетов в списке
------------------------------------------------------------------------------}
function TPackageList.Count(): integer;
begin