ProjectNoteBook/configuration.pas at master · patrovite/ProjectNoteBook · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
unit configuration;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, inifiles;

const
  DISPLAY_PROJECTS = 0;
  DISPLAY_TIMELINE = 1;

type
  TConfig = Class(TObject)
      constructor Create;
    Private
    Public
      Lang : string;
      ConfirmDeleteItem : boolean;
      ConfirmDeleteProject : boolean;
      HideOnMinimize : boolean;
      HideOnClose : boolean;
      MinimizeOnStart : boolean;
      DisplayMode : integer;
      DateOrder : integer;
      WeekChar : string;
      modkey : word;
      key : word;
      LastDir : string;
      WindowW : integer; //-1 : default width
      WindowH : integer; //-1 : default height
      WindowL : integer; //-1 : default left pos
      WindowT : integer; //-1 : default top pos
      pnChecksWidth : integer;
      Procedure SaveConfig();
      Procedure LoadConfig();
  end;

implementation
uses utils_date;

constructor TConfig.Create;
begin
  Lang:='fr';
  DisplayMode:=DISPLAY_PROJECTS;
  ConfirmDeleteItem:=true;
  ConfirmDeleteProject:=true;
  MinimizeOnStart:=false;
  HideOnClose:=false;
  HideOnMinimize:=false;
  WeekChar:='S';
  DateOrder:=DATE_DMY;
  LastDir:='';
  pnChecksWidth:=120;
  WindowW:=-1;
  WindowH:=-1;
  WindowT:=-1;
  WindowL:=-1;
end;


//------------------------------------------------------------------------------
// Save the configuration
//
procedure TConfig.SaveConfig();
var
  f: TIniFile;
begin
  f := TIniFile.Create('.\config.ini');

  f.WriteInteger('Main', 'DisplayMode', DisplayMode);
  f.WriteInteger('Main', 'DateOrder', DateOrder);
  f.WriteInteger('Main', 'Modkey', modkey);
  f.WriteInteger('Main', 'Key', key);
  f.WriteInteger('Main', 'pnChecksWidth',pnChecksWidth);
  f.WriteInteger('Main', 'WindowW',WindowW);
  f.WriteInteger('Main', 'WindowH',WindowH);
  f.WriteInteger('Main', 'WindowT',WindowT);
  f.WriteInteger('Main', 'WindowL',WindowL);

  f.WriteBool('Main','ConfirmDeleteItem',ConfirmDeleteItem);
  f.WriteBool('Main','ConfirmDeleteProject',ConfirmDeleteProject);
  f.WriteBool('Main','HideOnMinimize',HideOnMinimize);
  f.WriteBool('Main','HideOnClose',HideOnClose);
  f.WriteBool('Main','MinimizeOnStart',MinimizeOnStart);
  f.WriteString('Main','Lang',Lang);
  f.WriteString('Main','WeekChar',WeekChar);
  f.WriteString('Main','LastDir',LastDir);

  f.Free;
end;


//------------------------------------------------------------------------------
// Load the configuration
//
procedure TConfig.LoadConfig();
var
  f: TIniFile;
begin
  f := TIniFile.Create('.\config.ini');

  DisplayMode := f.ReadInteger('Main', 'DisplayMode', DISPLAY_PROJECTS);
  DateOrder:= f.ReadInteger('Main', 'DateOrder', DATE_DMY);
  Modkey:= word(f.ReadInteger('Main', 'Modkey', 0));
  key:= word(f.ReadInteger('Main', 'Key', 0));
  pnChecksWidth:= f.ReadInteger('Main', 'pnChecksWidth', 120);
  WindowW:= f.ReadInteger('Main', 'WindowW', -1);
  WindowH:= f.ReadInteger('Main', 'WindowH', -1);
  WindowT:= f.ReadInteger('Main', 'WindowT', -1);
  WindowL:= f.ReadInteger('Main', 'WindowL', -1);


  ConfirmDeleteItem:=f.ReadBool('Main', 'ConfirmDeleteItem', true);
  ConfirmDeleteProject:=f.ReadBool('Main', 'ConfirmDeleteProject', true);
  HideOnMinimize:=f.ReadBool('Main', 'HideOnMinimize', false);
  HideOnClose:=f.ReadBool('Main', 'HideOnClose', false);
  MinimizeOnStart:=f.ReadBool('Main', 'MinimizeOnStart', false);
  Lang:=f.ReadString('Main', 'Lang','en');
  WeekChar:=f.ReadString('Main', 'WeekChar','W');
  LastDir:=f.ReadString('Main', 'LastDir','');

  f.Free;
end;


end.