Subversion Repositories delphiutils

Rev

Rev 76 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 76 Rev 77
Line 57... Line 57...
57 
    procedure NureineUhrgleichzeitig1Click(Sender: TObject);
 57 
    procedure NureineUhrgleichzeitig1Click(Sender: TObject);
58 
    procedure FormShow(Sender: TObject);
 58 
    procedure FormShow(Sender: TObject);
59 
    procedure AlleUhrenstoppen1Click(Sender: TObject);
 59 
    procedure AlleUhrenstoppen1Click(Sender: TObject);
60 
  private
 60 
  private
61 
    procedure CreateMDIChild(const Name: string);
 61 
    procedure CreateMDIChild(const Name: string);
- 
 
 62 
  protected
- 
 
 63 
    procedure SaveSettings;
- 
 
 64 
    procedure LoadSettings;
62 
  public
 65 
  public
63 
    procedure StopAllTimers;
 66 
    procedure StopAllTimers;
64 
  end;
 67 
  end;
65 
 
 68 
 
66 
var
 69 
var
Line 68... Line 71...
68 
 
 71 
 
69 
implementation
 72 
implementation
70 
 
 73 
 
71 
{$R *.dfm}
 74 
{$R *.dfm}
72 
 
 75 
 
73 
uses CHILDWIN, about, IniFiles;
 76 
uses CHILDWIN, about, IniFiles, Registry;
74 
 
 77 
 
75 
var
 78 
var
76 
  StopUhrCount: integer = 1;
 79 
  StopUhrCount: integer = 1;
77 
 
 80 
 
78 
procedure TMainForm.AlleUhrenstoppen1Click(Sender: TObject);
 81 
procedure TMainForm.AlleUhrenstoppen1Click(Sender: TObject);
Line 106... Line 109...
106 
  // Brauchen wir nicht, da die einzelnen MDI-Fenster ja schon meckern
 109 
  // Brauchen wir nicht, da die einzelnen MDI-Fenster ja schon meckern
107 
  //CanClose := MessageDlg('Programm wirklich beenden?', mtConfirmation, mbYesNoCancel, 0) = mrYes;
 110 
  //CanClose := MessageDlg('Programm wirklich beenden?', mtConfirmation, mbYesNoCancel, 0) = mrYes;
108 
end;
 111 
end;
109 
 
 112 
 
110 
procedure TMainForm.FormShow(Sender: TObject);
 113 
procedure TMainForm.FormShow(Sender: TObject);
- 
 
 114 
begin
- 
 
 115 
  LoadSettings;
- 
 
 116 
end;
- 
 
 117 
 
- 
 
 118 
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
- 
 
 119 
begin
- 
 
 120 
  AboutBox.ShowModal;
- 
 
 121 
end;
- 
 
 122 
 
- 
 
 123 
procedure TMainForm.LoadSettings;
111 
var
 124 
var
112 
  x: TMemIniFile;
 125 
  x: TRegIniFile;
113 
begin
 126 
begin
114 
  x := TMemIniFile.Create('Settings.ini');
 127 
  x := TRegIniFile.Create('Software\ViaThinkSoft\Stoppuhren');
115 
  try
 128 
  try
116 
    NureineUhrgleichzeitig1.Checked := x.ReadBool('Settings', 'SingleClockMode', false);
 129 
    NureineUhrgleichzeitig1.Checked := x.ReadBool('Settings', 'SingleClockMode', false);
117 
  finally
 130 
  finally
118 
    FreeAndNil(x);
 131 
    FreeAndNil(x);
119 
  end;
 132 
  end;
120 
end;
 133 
end;
121 
 
 134 
 
122 
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
 135 
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject);
123 
begin
 136 
begin
124 
  AboutBox.ShowModal;
 137 
  SaveSettings;
125 
end;
 138 
end;
126 
 
 139 
 
127 
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject);
 140 
procedure TMainForm.SaveSettings;
128 
var
 141 
var
129 
  x: TMemIniFile;
 142 
  x: TRegIniFile;
130 
begin
 143 
begin
131 
  x := TMemIniFile.Create('Settings.ini');
 144 
  x := TRegIniFile.Create('Software\ViaThinkSoft\Stoppuhren');
132 
  try
 145 
  try
133 
    x.WriteBool('Settings', 'SingleClockMode', NureineUhrgleichzeitig1.Checked);
 146 
    x.WriteBool('Settings', 'SingleClockMode', NureineUhrgleichzeitig1.Checked);
134 
    x.UpdateFile;
 - 
 
135 
  finally
 147 
  finally
136 
    FreeAndNil(x);
 148 
    FreeAndNil(x);
137 
  end;
 149 
  end;
138 
end;
 150 
end;
139 
 
 151