59,6 → 59,9 |
procedure AlleUhrenstoppen1Click(Sender: TObject); |
private |
procedure CreateMDIChild(const Name: string); |
protected |
procedure SaveSettings; |
procedure LoadSettings; |
public |
procedure StopAllTimers; |
end; |
70,7 → 73,7 |
|
{$R *.dfm} |
|
uses CHILDWIN, about, IniFiles; |
uses CHILDWIN, about, IniFiles, Registry; |
|
var |
StopUhrCount: integer = 1; |
108,10 → 111,20 |
end; |
|
procedure TMainForm.FormShow(Sender: TObject); |
begin |
LoadSettings; |
end; |
|
procedure TMainForm.HelpAbout1Execute(Sender: TObject); |
begin |
AboutBox.ShowModal; |
end; |
|
procedure TMainForm.LoadSettings; |
var |
x: TMemIniFile; |
x: TRegIniFile; |
begin |
x := TMemIniFile.Create('Settings.ini'); |
x := TRegIniFile.Create('Software\ViaThinkSoft\Stoppuhren'); |
try |
NureineUhrgleichzeitig1.Checked := x.ReadBool('Settings', 'SingleClockMode', false); |
finally |
119,19 → 132,18 |
end; |
end; |
|
procedure TMainForm.HelpAbout1Execute(Sender: TObject); |
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject); |
begin |
AboutBox.ShowModal; |
SaveSettings; |
end; |
|
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject); |
procedure TMainForm.SaveSettings; |
var |
x: TMemIniFile; |
x: TRegIniFile; |
begin |
x := TMemIniFile.Create('Settings.ini'); |
x := TRegIniFile.Create('Software\ViaThinkSoft\Stoppuhren'); |
try |
x.WriteBool('Settings', 'SingleClockMode', NureineUhrgleichzeitig1.Checked); |
x.UpdateFile; |
finally |
FreeAndNil(x); |
end; |