Subversion Repositories delphiutils

Compare Revisions

No changes between revisions

Regard whitespace Rev 77 → Rev 76

/trunk/Stoppuhren-Verwaltung/Main.pas
59,9 → 59,6
procedure AlleUhrenstoppen1Click(Sender: TObject);
private
procedure CreateMDIChild(const Name: string);
protected
procedure SaveSettings;
procedure LoadSettings;
public
procedure StopAllTimers;
end;
73,7 → 70,7
 
{$R *.dfm}
 
uses CHILDWIN, about, IniFiles, Registry;
uses CHILDWIN, about, IniFiles;
 
var
StopUhrCount: integer = 1;
111,20 → 108,10
end;
 
procedure TMainForm.FormShow(Sender: TObject);
begin
LoadSettings;
end;
 
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;
 
procedure TMainForm.LoadSettings;
var
x: TRegIniFile;
x: TMemIniFile;
begin
x := TRegIniFile.Create('Software\ViaThinkSoft\Stoppuhren');
x := TMemIniFile.Create('Settings.ini');
try
NureineUhrgleichzeitig1.Checked := x.ReadBool('Settings', 'SingleClockMode', false);
finally
132,18 → 119,19
end;
end;
 
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject);
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
SaveSettings;
AboutBox.ShowModal;
end;
 
procedure TMainForm.SaveSettings;
procedure TMainForm.NureineUhrgleichzeitig1Click(Sender: TObject);
var
x: TRegIniFile;
x: TMemIniFile;
begin
x := TRegIniFile.Create('Software\ViaThinkSoft\Stoppuhren');
x := TMemIniFile.Create('Settings.ini');
try
x.WriteBool('Settings', 'SingleClockMode', NureineUhrgleichzeitig1.Checked);
x.UpdateFile;
finally
FreeAndNil(x);
end;
/trunk/Stoppuhren-Verwaltung/Settings.ini
0,0 → 1,3
[Settings]
SingleClockMode=1
 
/trunk/Stoppuhren-Verwaltung/Stoppuhren.exe
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream