374 lines
16 KiB
Plaintext
374 lines
16 KiB
Plaintext
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.
|