Subversion Repositories delphiutils

Compare Revisions

No changes between revisions

Regard whitespace Rev 76 → Rev 77

/trunk/Stoppuhren-Verwaltung/Settings.ini
File deleted
/trunk/Stoppuhren-Verwaltung/Main.pas
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;
/trunk/Stoppuhren-Verwaltung/Stoppuhren.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream