112 lines
2.4 KiB
Plaintext
112 lines
2.4 KiB
Plaintext
{*******************************************************}
|
|
{ }
|
|
{ ManagerConfig }
|
|
{ }
|
|
{ Copyright (C) 2021 Sunk }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit ManagerConfig;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, Tocsg.Obj;
|
|
|
|
const
|
|
CFG_FILE = 'QatorRecorder.cfg';
|
|
|
|
type
|
|
TManagerConfig = class(TTgObject)
|
|
public
|
|
AutoDelMergeAv,
|
|
ReTryRec,
|
|
StayOnTop,
|
|
SavePosSize,
|
|
ShowRecArea,
|
|
NoShowRecFrame,
|
|
StartRecToTray: Boolean;
|
|
Left, Top,
|
|
Width, Height,
|
|
RecQuality,
|
|
FrameRate: Integer;
|
|
|
|
Constructor Create;
|
|
|
|
procedure Save;
|
|
procedure Load;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
superobject, Tocsg.Path;
|
|
|
|
{ TManagerConfig}
|
|
|
|
Constructor TManagerConfig.Create;
|
|
begin
|
|
Inherited Create;
|
|
|
|
AutoDelMergeAv := false;
|
|
ReTryRec := true;
|
|
StayOnTop := false;
|
|
SavePosSize := false;
|
|
ShowRecArea := false;
|
|
NoShowRecFrame := false;
|
|
StartRecToTray := false;
|
|
Left := 0;
|
|
Top := 0;
|
|
Width := 0;
|
|
Height := 0;
|
|
RecQuality := -1;
|
|
FrameRate := -1;
|
|
|
|
Load;
|
|
end;
|
|
|
|
procedure TManagerConfig.Save;
|
|
var
|
|
O: ISuperObject;
|
|
begin
|
|
O := SO;
|
|
O.B['AutoDelMergeAv'] := AutoDelMergeAv;
|
|
O.B['ReTryRec'] := ReTryRec;
|
|
O.B['StayOnTop'] := StayOnTop;
|
|
O.B['SavePosSize'] := SavePosSize;
|
|
O.B['ShowRecArea'] := ShowRecArea;
|
|
O.B['NoShowRecFrame'] := NoShowRecFrame;
|
|
O.B['StartRecToTray'] := StartRecToTray;
|
|
O.I['Left'] := Left;
|
|
O.I['Top'] := Top;
|
|
O.I['Width'] := Width;
|
|
O.I['Height'] := Height;
|
|
O.I['RecQuality'] := RecQuality;
|
|
O.I['FrameRate'] := FrameRate;
|
|
SaveJsonObjToFile(O, GetRunExePathDir + CFG_FILE);
|
|
end;
|
|
|
|
procedure TManagerConfig.Load;
|
|
var
|
|
O: ISuperObject;
|
|
begin
|
|
if LoadJsonObjFromFile(O, GetRunExePathDir + CFG_FILE) then
|
|
begin
|
|
AutoDelMergeAv := O.B['AutoDelMergeAv'];
|
|
ReTryRec := O.B['ReTryRec'];
|
|
StayOnTop := O.B['StayOnTop'];
|
|
SavePosSize := O.B['SavePosSize'];
|
|
ShowRecArea := O.B['ShowRecArea'];
|
|
NoShowRecFrame := O.B['NoShowRecFrame'];
|
|
StartRecToTray := O.B['StartRecToTray'];
|
|
Left := O.I['Left'];
|
|
Top := O.I['Top'];
|
|
Width := O.I['Width'];
|
|
Height := O.I['Height'];
|
|
RecQuality := O.I['RecQuality'];
|
|
FrameRate := O.I['FrameRate'];
|
|
end;
|
|
end;
|
|
|
|
end.
|