flickr.lib.options.pas

// Copyright (c) 2015, Jordi Corbilla
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
//
// - Redistributions of source code must retain the above copyright notice,
// this list of conditions and the following disclaimer.
// - Redistributions in binary form must reproduce the above copyright notice,
// this list of conditions and the following disclaimer in the documentation
// and/or other materials provided with the distribution.
// - Neither the name of this library nor the names of its contributors may be
// used to endorse or promote products derived from this software without
// specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
// POSSIBILITY OF SUCH DAMAGE.

unit flickr.lib.options;

interface

uses
  System.Classes;

type
  IOptions = Interface
    procedure SetConsiderPendingQueueItems(const Value: boolean);
    procedure SeteMailAddress(const Value: string);
    procedure SetMaxItems(const Value: integer);
    procedure SetMaxItemsListGlobals(const Value: string);
    procedure SetMaxNumberOfLinesLog(const Value: string);
    procedure SetShowMarksInGraphs(const Value: boolean);
    procedure SetUpdateCountsRealTime(const Value: boolean);
    function GetMaxItemsListGlobals() : string;
    function GetShowMarksInGraphs() : boolean;
    function GetConsiderPendingQueueItems() : boolean;
    function GetUpdateCountsRealTime() : boolean;
    function GetMaxNumberOfLinesLog() : string;
    function GeteMailAddress() : string;
    procedure SeturlName(const Value: string);
    function GeturlName() : string;
    function GetMaxItems(): integer;
    function GetsortingEnabled() : boolean;
    procedure SetsortingEnabled(const Value: boolean);
    function GetSortedBy(): integer;
    procedure SetSortedBy(const Value: integer);
    function GetAlbumViews(): TStringList;
    procedure SetAlbumViews(const Value: TStringList);
    function GetAlbumLikes(): TStringList;
    procedure SetAlbumLikes(const Value: TStringList);
    function GetSortedByGropus(): integer;
    procedure SetSortedByGropus(const Value: integer);
    procedure SetDisableTrendDisplay(const Value: boolean);
    procedure SetDisplaySuccessfulResponses(const Value: boolean);
    procedure SetKeepRejectedListAlive(const Value: boolean);
    procedure SetUpdateCollections(const Value: boolean);
    function GetKeepRejectedListAlive() : boolean;
    function GetDisplaySuccessfulResponses() : boolean;
    function GetUpdateCollections() : boolean;
    function GetDisableTrendDisplay() : boolean;
    function GetAlbumViewsID(): TStringList;
    procedure SetAlbumViewsID(const Value: TStringList);
    function GetAlbumLikesID(): TStringList;
    procedure SetAlbumLikesID(const Value: TStringList);
    procedure SetWorkspace(const Value: string);
    function GetWorkspace() : string;
    procedure SetShowHints(const Value: boolean);
    function GetShowHints() : boolean;
    procedure SetBackupDate(const Value: string);
    function GetBackupDate() : string;
    property MaxItemsListGlobals : string read GetMaxItemsListGlobals write SetMaxItemsListGlobals;
    property ShowMarksInGraphs : boolean read GetShowMarksInGraphs write SetShowMarksInGraphs;
    property ConsiderPendingQueueItems : boolean read GetConsiderPendingQueueItems write SetConsiderPendingQueueItems;
    property UpdateCountsRealTime : boolean read GetUpdateCountsRealTime write SetUpdateCountsRealTime;
    property MaxNumberOfLinesLog : string read GetMaxNumberOfLinesLog write SetMaxNumberOfLinesLog;
    property eMailAddress : string read GeteMailAddress write SeteMailAddress;
    property MaxItems : integer read GetMaxItems write SetMaxItems;
    property urlName : string read GeturlName write SeturlName;
    property sortingEnabled : boolean read GetsortingEnabled write SetsortingEnabled;
    property SortedBy : integer read GetSortedBy write SetSortedBy;
    property AlbumViews : TStringList read GetAlbumViews write SetAlbumViews;
    property AlbumLikes : TStringList read GetAlbumLikes write SetAlbumLikes;
    property SortedByGropus : integer read GetSortedByGropus write SetSortedByGropus;
    property KeepRejectedListAlive: boolean read GetKeepRejectedListAlive write SetKeepRejectedListAlive;
    property DisplaySuccessfulResponses: boolean read GetDisplaySuccessfulResponses write SetDisplaySuccessfulResponses;
    property UpdateCollections: boolean read GetUpdateCollections write SetUpdateCollections;
    property DisableTrendDisplay: boolean read GetDisableTrendDisplay write SetDisableTrendDisplay;
    property AlbumViewsID : TStringList read GetAlbumViewsID write SetAlbumViewsID;
    property AlbumLikesID : TStringList read GetAlbumLikesID write SetAlbumLikesID;
    property Workspace : string read GetWorkspace write SetWorkspace;
    property ShowHints : boolean read GetShowHints write SetShowHints;
    property BackupDate : string read GetBackupDate write SetBackupDate;
    function Load() : IOptions;
    procedure Save();
  End;

  TOptions = class(TInterfacedObject, IOptions)
  private
    FConsiderPendingQueueItems: boolean;
    FUpdateCountsRealTime: boolean;
    FMaxNumberOfLinesLog: string;
    FMaxItemsListGlobals: string;
    FMaxItems: integer;
    FShowMarksInGraphs: boolean;
    FeMailAddress: string;
    FurlName: string;
    FSortingEnabled : boolean;
    FSortedBy : integer;
    FAlbumViews : TStringList;
    FAlbumLikes : TStringList;
    FAlbumViewsID : TStringList;
    FAlbumLikesID : TStringList;
    FSortedByGroups : integer;
    FKeepRejectedListAlive: boolean;
    FDisplaySuccessfulResponses: boolean;
    FUpdateCollections: boolean;
    FDisableTrendDisplay: boolean;
    FWorkspace: string;
    FShowHints: boolean;
    FBackupDate: string;
    procedure SetConsiderPendingQueueItems(const Value: boolean);
    procedure SeteMailAddress(const Value: string);
    procedure SetMaxItems(const Value: integer);
    procedure SetMaxItemsListGlobals(const Value: string);
    procedure SetMaxNumberOfLinesLog(const Value: string);
    procedure SetShowMarksInGraphs(const Value: boolean);
    procedure SetUpdateCountsRealTime(const Value: boolean);
    function GetMaxItemsListGlobals() : string;
    function GetShowMarksInGraphs() : boolean;
    function GetConsiderPendingQueueItems() : boolean;
    function GetUpdateCountsRealTime() : boolean;
    function GetMaxNumberOfLinesLog() : string;
    function GeteMailAddress() : string;
    function GetMaxItems(): integer;
    procedure SeturlName(const Value: string);
    function GeturlName() : string;
    function GetsortingEnabled() : boolean;
    procedure SetsortingEnabled(const Value: boolean);
    function GetSortedBy(): integer;
    procedure SetSortedBy(const Value: integer);
    function GetSortedByGropus(): integer;
    procedure SetSortedByGropus(const Value: integer);
    function GetAlbumViews(): TStringList;
    procedure SetAlbumViews(const Value: TStringList);
    function GetAlbumLikes(): TStringList;
    procedure SetAlbumLikes(const Value: TStringList);
    function GetAlbumViewsID(): TStringList;
    procedure SetAlbumViewsID(const Value: TStringList);
    function GetAlbumLikesID(): TStringList;
    procedure SetAlbumLikesID(const Value: TStringList);
    procedure SetDisableTrendDisplay(const Value: boolean);
    procedure SetDisplaySuccessfulResponses(const Value: boolean);
    procedure SetKeepRejectedListAlive(const Value: boolean);
    procedure SetUpdateCollections(const Value: boolean);
    function GetKeepRejectedListAlive() : boolean;
    function GetDisplaySuccessfulResponses() : boolean;
    function GetUpdateCollections() : boolean;
    function GetDisableTrendDisplay() : boolean;
    procedure SetWorkspace(const Value: string);
    function GetWorkspace() : string;
    procedure SetShowHints(const Value: boolean);
    function GetShowHints() : boolean;
    procedure SetBackupDate(const Value: string);
    function GetBackupDate() : string;
  public
    property MaxItemsListGlobals : string read GetMaxItemsListGlobals write SetMaxItemsListGlobals;
    property ShowMarksInGraphs : boolean read GetShowMarksInGraphs write SetShowMarksInGraphs;
    property ConsiderPendingQueueItems : boolean read GetConsiderPendingQueueItems write SetConsiderPendingQueueItems;
    property UpdateCountsRealTime : boolean read GetUpdateCountsRealTime write SetUpdateCountsRealTime;
    property MaxNumberOfLinesLog : string read GetMaxNumberOfLinesLog write SetMaxNumberOfLinesLog;
    property eMailAddress : string read GeteMailAddress write SeteMailAddress;
    property MaxItems : integer read GetMaxItems write SetMaxItems;
    property urlName : string read GeturlName write SeturlName;
    property sortingEnabled : boolean read GetsortingEnabled write SetsortingEnabled;
    property SortedBy : integer read GetSortedBy write SetSortedBy;
    property SortedByGropus : integer read GetSortedByGropus write SetSortedByGropus;
    property AlbumViews : TStringList read GetAlbumViews write SetAlbumViews;
    property AlbumLikes : TStringList read GetAlbumLikes write SetAlbumLikes;
    property AlbumViewsID : TStringList read GetAlbumViewsID write SetAlbumViewsID;
    property AlbumLikesID : TStringList read GetAlbumLikesID write SetAlbumLikesID;
    property KeepRejectedListAlive: boolean read GetKeepRejectedListAlive write SetKeepRejectedListAlive;
    property DisplaySuccessfulResponses: boolean read GetDisplaySuccessfulResponses write SetDisplaySuccessfulResponses;
    property UpdateCollections: boolean read GetUpdateCollections write SetUpdateCollections;
    property DisableTrendDisplay: boolean read GetDisableTrendDisplay write SetDisableTrendDisplay;
    property Workspace : string read GetWorkspace write SetWorkspace;
    property ShowHints : boolean read GetShowHints write SetShowHints;
    property BackupDate : string read GetBackupDate write SetBackupDate;
    class function New(): IOptions;
    function Load() : IOptions;
    procedure Save();
    constructor Create();
    destructor Destroy(); override;
  end;

implementation

uses
  System.inifiles, SysUtils;

{ TOptions }

constructor TOptions.Create;
begin
  FAlbumViews := TStringList.Create;
  FAlbumLikes := TStringList.Create;
  FAlbumViewsID := TStringList.Create;
  FAlbumLikesID := TStringList.Create;
end;

destructor TOptions.Destroy;
begin
  if assigned(FAlbumViews) then
    FAlbumViews.Free;
  if assigned(FAlbumLikes) then
    FAlbumLikes.Free;
  if assigned(FAlbumViewsID) then
    FAlbumViewsID.Free;
  if assigned(FAlbumLikesID) then
    FAlbumLikesID.Free;
  inherited;
end;

function TOptions.GetAlbumLikes: TStringList;
begin
  result := FAlbumLikes;
end;

function TOptions.GetAlbumLikesID: TStringList;
begin
  result := FAlbumLikesID;
end;

function TOptions.GetAlbumViews: TStringList;
begin
  result := FAlbumViews;
end;

function TOptions.GetAlbumViewsID: TStringList;
begin
  result := FAlbumViewsID;
end;

function TOptions.GetBackupDate: string;
begin
  result := FBackupDate;
end;

function TOptions.GetConsiderPendingQueueItems: boolean;
begin
  result := FConsiderPendingQueueItems;
end;

function TOptions.GetDisableTrendDisplay: boolean;
begin
  result := FDisableTrendDisplay;
end;

function TOptions.GetDisplaySuccessfulResponses: boolean;
begin
  result := FDisplaySuccessfulResponses;
end;

function TOptions.GeteMailAddress: string;
begin
  result := FeMailAddress;
end;

function TOptions.GetKeepRejectedListAlive: boolean;
begin
  result := FKeepRejectedListAlive;
end;

function TOptions.GetMaxItems: integer;
begin
  result := FMaxItems;
end;

function TOptions.GetMaxItemsListGlobals: string;
begin
  result := FMaxItemsListGlobals;
end;

function TOptions.GetMaxNumberOfLinesLog: string;
begin
  result := FMaxNumberOfLinesLog;
end;

function TOptions.GetShowHints: boolean;
begin
  result := FShowHints;
end;

function TOptions.GetShowMarksInGraphs: boolean;
begin
  result := FShowMarksInGraphs;
end;

function TOptions.GetSortedBy: integer;
begin
  result := FSortedBy;
end;

function TOptions.GetSortedByGropus: integer;
begin
  result := FSortedByGroups;
end;

function TOptions.GetsortingEnabled: boolean;
begin
  result := FSortingEnabled;
end;

function TOptions.GetUpdateCollections: boolean;
begin
  result := FUpdateCollections;
end;

function TOptions.GetUpdateCountsRealTime: boolean;
begin
  result := FUpdateCountsRealTime;
end;

function TOptions.GeturlName: string;
begin
  result := FUrlName;
end;

function TOptions.GetWorkspace: string;
begin
  result := FWorksPace;
end;

function TOptions.Load : IOptions;
var
  inifile : Tinifile;
  i : integer;
  value : string;
begin
  inifile := TInifile.Create(ExtractFilePath(ParamStr(0)) + 'FlickrAnalytics.ini');
  try
    FMaxItemsListGlobals := inifile.ReadString('System', 'MaxItemsListGlobals', '80');
    FUrlName := inifile.ReadString('System', 'UrlName', '');
    FWorkspace := inifile.ReadString('System', 'Workspace', '');
    FShowMarksInGraphs := inifile.ReadBool('System', 'ShowMarksInGraphs', false);
    FConsiderPendingQueueItems := inifile.ReadBool('System', 'ConsiderPendingQueueItems', true);
    FUpdateCountsRealTime := inifile.ReadBool('System', 'UpdateCountsRealTime', false);
    FMaxNumberOfLinesLog := inifile.ReadString('System', 'MaxNumberOfLinesLog', '10000');
    FeMailAddress := inifile.ReadString('System', 'eMailAddress', '');
    FSortingEnabled := inifile.ReadBool('System', 'SortingEnabled', true);
    FShowHints := inifile.ReadBool('System', 'ShowHint', false);
    FBackupDate := inifile.ReadString('System', 'BackupDate', '');
    FKeepRejectedListAlive := inifile.ReadBool('System', 'KeepRejectedListAlive', true);
    FDisplaySuccessfulResponses := inifile.ReadBool('System', 'DisplaySuccessfulResponses', true);
    FUpdateCollections := inifile.ReadBool('System', 'UpdateCollections', true);
    FDisableTrendDisplay := inifile.ReadBool('System', 'DisableTrendDisplay', false);

    FSortedBy := inifile.ReadInteger('System', 'SortedBy', 0);
    FSortedByGroups := inifile.ReadInteger('System', 'SortedByGroups', 0);

    FMaxItems := inifile.ReadInteger('AlbumViews', 'MaxItems', 0);

    FAlbumViews.Clear;
    FAlbumViewsID.Clear;
    for i := 0 to FMaxItems - 1 do
    begin
      value := inifile.ReadString('AlbumViews', 'Value' + i.ToString(), '');
      FAlbumViews.Add(value);
      value := inifile.ReadString('AlbumViews', 'ValueID' + i.ToString(), '');
      FAlbumViewsID.Add(value);
    end;

    FMaxItems := inifile.ReadInteger('AlbumLikes', 'MaxItems', 0);

    FAlbumLikes.Clear;
    FAlbumLikesID.Clear;
    for i := 0 to FMaxItems - 1 do
    begin
      value := inifile.ReadString('AlbumLikes', 'Value' + i.ToString(), '');
      FAlbumLikes.Add(value);
      value := inifile.ReadString('AlbumLikes', 'ValueID' + i.ToString(), '');
      FAlbumLikesID.Add(value);
    end;
  finally
    inifile.Free;
  end;
  result := self;
end;

class function TOptions.New: IOptions;
begin
  result := Create;
end;

procedure TOptions.Save;
var
  iniFile : TInifile;
  i : integer;
begin
  inifile := TInifile.Create(ExtractFilePath(ParamStr(0)) + 'FlickrAnalytics.ini');
  try
    inifile.WriteString('System', 'MaxItemsListGlobals', FMaxItemsListGlobals);
    inifile.WriteString('System', 'UrlName', FUrlName);
    inifile.WriteString('System', 'Workspace', FWorkspace);
    inifile.WriteBool('System', 'ShowMarksInGraphs', FShowMarksInGraphs);
    inifile.WriteBool('System', 'ConsiderPendingQueueItems', FConsiderPendingQueueItems);
    inifile.WriteBool('System', 'UpdateCountsRealTime', FUpdateCountsRealTime);
    inifile.WriteString('System', 'MaxNumberOfLinesLog', FMaxNumberOfLinesLog);
    inifile.WriteString('System', 'eMailAddress', FeMailAddress);
    inifile.WriteBool('System', 'SortingEnabled', FSortingEnabled);
    inifile.WriteBool('System', 'ShowHint', FShowHints);

    inifile.WriteBool('System', 'KeepRejectedListAlive', FKeepRejectedListAlive);
    inifile.WriteBool('System', 'DisplaySuccessfulResponses', FDisplaySuccessfulResponses);
    inifile.WriteBool('System', 'UpdateCollections', FUpdateCollections);
    inifile.WriteBool('System', 'DisableTrendDisplay', FDisableTrendDisplay);
    inifile.WriteString('System', 'BackupDate', FBackupDate);

    inifile.WriteInteger('System', 'SortedBy', FSortedBy);
    inifile.WriteInteger('System', 'SortedByGroups', FSortedByGroups);
    inifile.WriteInteger('AlbumViews', 'MaxItems', FAlbumViews.count);

    for i := 0 to FAlbumViews.Count-1 do
    begin
      inifile.WriteString('AlbumViews', 'Value' + i.ToString(), FAlbumViews[i]);
      inifile.WriteString('AlbumViews', 'ValueID' + i.ToString(), FAlbumViewsID[i]);
    end;

    inifile.WriteInteger('AlbumLikes', 'MaxItems', FAlbumLikes.count);

    for i := 0 to FAlbumLikes.Count-1 do
    begin
      inifile.WriteString('AlbumLikes', 'Value' + i.ToString(), FAlbumLikes[i]);
      inifile.WriteString('AlbumLikes', 'ValueID' + i.ToString(), FAlbumLikesID[i]);
    end;
  finally
    inifile.Free;
  end;
end;

procedure TOptions.SetAlbumLikes(const Value: TStringList);
var
  i: Integer;
begin
  FAlbumLikes.Clear;
  for i := 0 to Value.Count-1 do
    FAlbumLikes.Add(Value[i]);
end;

procedure TOptions.SetAlbumLikesID(const Value: TStringList);
var
  i: Integer;
begin
  FAlbumLikesID.Clear;
  for i := 0 to Value.Count-1 do
    FAlbumLikesID.Add(Value[i]);
end;

procedure TOptions.SetAlbumViews(const Value: TStringList);
var
  i: Integer;
begin
  FAlbumViews.Clear;
  for i := 0 to Value.Count-1 do
    FAlbumViews.Add(Value[i]);
end;

procedure TOptions.SetAlbumViewsID(const Value: TStringList);
var
  i: Integer;
begin
  FAlbumViewsID.Clear;
  for i := 0 to Value.Count-1 do
    FAlbumViewsID.Add(Value[i]);
end;

procedure TOptions.SetBackupDate(const Value: string);
begin
  FBackupDate := Value;
end;

procedure TOptions.SetConsiderPendingQueueItems(const Value: boolean);
begin
  FConsiderPendingQueueItems := Value;
end;

procedure TOptions.SetDisableTrendDisplay(const Value: boolean);
begin
  FDisableTrendDisplay := Value;
end;

procedure TOptions.SetDisplaySuccessfulResponses(const Value: boolean);
begin
  FDisplaySuccessfulResponses := Value;
end;

procedure TOptions.SeteMailAddress(const Value: string);
begin
  FeMailAddress := Value;
end;

procedure TOptions.SetKeepRejectedListAlive(const Value: boolean);
begin
  FKeepRejectedListAlive := Value;
end;

procedure TOptions.SetMaxItems(const Value: integer);
begin
  FMaxItems := Value;
end;

procedure TOptions.SetMaxItemsListGlobals(const Value: string);
begin
  FMaxItemsListGlobals := Value;
end;

procedure TOptions.SetMaxNumberOfLinesLog(const Value: string);
begin
  FMaxNumberOfLinesLog := Value;
end;

procedure TOptions.SetShowHints(const Value: boolean);
begin
  FShowHints := Value;
end;

procedure TOptions.SetShowMarksInGraphs(const Value: boolean);
begin
  FShowMarksInGraphs := Value;
end;

procedure TOptions.SetSortedBy(const Value: integer);
begin
  FSortedBy := Value;
end;

procedure TOptions.SetSortedByGropus(const Value: integer);
begin
  FSortedByGroups := Value;
end;

procedure TOptions.SetsortingEnabled(const Value: boolean);
begin
  FSortingEnabled := value;
end;

procedure TOptions.SetUpdateCollections(const Value: boolean);
begin
  FUpdateCollections := Value;
end;

procedure TOptions.SetUpdateCountsRealTime(const Value: boolean);
begin
  FUpdateCountsRealTime := Value;
end;

procedure TOptions.SeturlName(const Value: string);
begin
  FurlName := Value;
end;

procedure TOptions.SetWorkspace(const Value: string);
begin
  FWorkspace := Value;
end;

end.