source: tags/1.3.0/UCore.pas

unit UCore;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, UAcronym, Forms, Controls, LazFileUtils;

type

  { TCore }

  TCore = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    FAlwaysOnTop: Boolean;
    procedure SetAlwaysOnTop(AValue: Boolean);
    function FindFirstNonOption: string;
  public
    AcronymDb: TAcronymDb;
    StartOnLogon: Boolean;
    StartMinimizedToTray: Boolean;
    InitializeStarted: Boolean;
    InitializeFinished: Boolean;
    procedure Initialize;
    procedure LoadConfig;
    procedure SaveConfig;
    property AlwaysOnTop: Boolean read FAlwaysOnTop write SetAlwaysOnTop;
  end;

var
  Core: TCore;

implementation

uses
  UFormMain;

const
  ExampleFile = 'Example acronyms.adp';


{$R *.lfm}

procedure TCore.DataModuleCreate(Sender: TObject);
begin
  AcronymDb := TAcronymDb.Create;
  InitializeStarted := False;
  InitializeFinished := False;
end;

procedure TCore.DataModuleDestroy(Sender: TObject);
begin
  FreeAndNil(AcronymDb);
end;

procedure TCore.SetAlwaysOnTop(AValue: Boolean);
begin
  if FAlwaysOnTop = AValue then Exit;
  FAlwaysOnTop := AValue;
  if FAlwaysOnTop then FormMain.FormStyle := fsSystemStayOnTop
    else FormMain.FormStyle := fsNormal;
end;

procedure TCore.Initialize;
var
  FileNameOption: string;
begin
  if not InitializeStarted then begin
    InitializeStarted := True;
    LoadConfig;

    {$IFDEF 0}
    if Application.HasOption('h', 'help') then begin
      WriteLn('AcronymDecoder <project file>');
      WriteLn('  -t    --tray   Start minimized in system tray');
      WriteLn('  -h    --help  Show this help');
      Application.Terminate;
      Exit;
    end;
    {$ENDIF}

    if Application.HasOption('t', 'tray') then begin
      FormMain.Visible := False;
    end;

    FileNameOption := FindFirstNonOption;
    if FileNameOption <> '' then begin
      // Open file specified as command line parameter
      AcronymDB.LoadFromFile(FileNameOption);
      FormMain.LastOpenedList1.AddItem(FormMain.OpenDialog1.FileName);
    end else
    if (FormMain.LastOpenedList1.Items.Count > 0) and FileExists(FormMain.LastOpenedList1.Items[0]) then begin
      // Open last opened file
      AcronymDB.LoadFromFile(FormMain.LastOpenedList1.Items[0])
    end else begin
      // Open default database with examples if no item is in recent openned history
      FileNameOption := ExtractFileDir(Application.ExeName) + DirectorySeparator + ExampleFile;
      {$IFDEF Linux}
      // If installed in Linux system then use installation directory for po files
      if Application.ExeName = '/usr/bin/' + ExtractFileNameOnly(Application.ExeName) then
        FileNameOption := '/usr/share/' + ExtractFileNameOnly(Application.ExeName) + '/Examples/' + ExampleFile;
      {$ENDIF}
      FormMain.ProjectOpen(FileNameOption);
    end;
    FormMain.UpdateAcronymsList;
    FormMain.ListViewFilter1.UpdateFromListView(FormMain.ListViewAcronyms);
    InitializeFinished := True;
  end;
end;

procedure TCore.LoadConfig;
begin
  FormMain.LoadConfig;
end;

procedure TCore.SaveConfig;
begin
  FormMain.SaveConfig;
end;

function TCore.FindFirstNonOption: string;
var
  S: string;
  I: Integer;
begin
  Result := '';
  for I := 1 to Application.ParamCount do begin
    S := Application.Params[I];
    if S[1] = Application.OptionChar then Continue;
    Result := S;
    Break;
  end;
end;



end.