mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-12 04:15:07 -05:00
c5faba2cb5
Lots of TODO's, but it should be functional for programming uses. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@379 3f818213-9676-44b0-a9b4-5e4c4e03d09d
75 lines
1.3 KiB
ObjectPascal
75 lines
1.3 KiB
ObjectPascal
unit simbasettings;
|
|
|
|
{$mode objfpc} {$M+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
ComCtrls, settings;
|
|
|
|
type
|
|
|
|
{ TSettingsForm }
|
|
|
|
TSettingsForm = class(TForm)
|
|
SettingsTreeView: TTreeView;
|
|
Settings: TMMLSettings;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
{ private declarations }
|
|
public
|
|
procedure SaveCurrent;
|
|
procedure Reload;
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
SettingsForm: TSettingsForm;
|
|
|
|
implementation
|
|
|
|
{ TSettingsForm }
|
|
|
|
procedure TSettingsForm.FormCreate(Sender: TObject);
|
|
|
|
begin
|
|
Settings := TMMLSettings.Create(SettingsTreeView.Items);
|
|
if not FileExists('settings.xml') then
|
|
begin
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.SaveToXML('settings.xml');
|
|
end;
|
|
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.LoadFromXML('settings.xml');
|
|
end;
|
|
|
|
procedure TSettingsForm.FormDestroy(Sender: TObject);
|
|
begin
|
|
Settings.Free;
|
|
end;
|
|
|
|
procedure TSettingsForm.SaveCurrent;
|
|
begin
|
|
Settings.SaveToXML('settings.xml');
|
|
end;
|
|
|
|
procedure TSettingsForm.Reload;
|
|
begin
|
|
if not FileExists('settings.xml') then
|
|
begin
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.SaveToXML('settings.xml');
|
|
end;
|
|
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.LoadFromXML('settings.xml');
|
|
end;
|
|
|
|
initialization
|
|
{$I simbasettings.lrs}
|
|
|
|
end.
|
|
|