mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
87c496ca85
Simba now has some parameters (-o/--open to open a file and -r/--run to run that file at startup). Simba now opens a file correctly if you double click an associated .simb file. Initalized several TPA-functions-results.. (BoxFromTPA could return random values when sending an empty TPA). Opening/Creating a 'script' will now happen in a new tab (unless the current tab is the same as the default script) Restructured the internets unit (+ implemented all of the HTTP-client stuff). And updated the Synapse units. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@538 3f818213-9676-44b0-a9b4-5e4c4e03d09d
121 lines
2.7 KiB
ObjectPascal
121 lines
2.7 KiB
ObjectPascal
unit simbasettings;
|
|
|
|
{$mode objfpc} {$M+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
ComCtrls, StdCtrls, settings;
|
|
|
|
type
|
|
|
|
{ TSettingsForm }
|
|
|
|
TSettingsForm = class(TForm)
|
|
SettingsFormButtonCancel: TButton;
|
|
SettingsFormButtonOK: TButton;
|
|
SettingsTreeView: TTreeView;
|
|
Settings: TMMLSettings;
|
|
procedure SettingsFormButtonCancelClick(Sender: TObject);
|
|
procedure SettingsFormButtonOKClick(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure SettingsTreeViewDblClick(Sender: TObject);
|
|
{ private declarations }
|
|
public
|
|
procedure SaveCurrent;
|
|
procedure Reload;
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
SettingsForm: TSettingsForm;
|
|
SimbaSettingsFile : string;
|
|
|
|
implementation
|
|
|
|
{ TSettingsForm }
|
|
|
|
procedure TSettingsForm.FormCreate(Sender: TObject);
|
|
|
|
begin
|
|
Settings := TMMLSettings.Create(SettingsTreeView.Items);
|
|
if not FileExists(SimbaSettingsFile) then
|
|
begin
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.SaveToXML(SimbaSettingsFile);
|
|
end;
|
|
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.LoadFromXML(SimbaSettingsFile);
|
|
end;
|
|
|
|
procedure TSettingsForm.SettingsFormButtonOKClick(Sender: TObject);
|
|
begin
|
|
Self.Settings.SaveToXML(SimbaSettingsFile);
|
|
Self.ModalResult:=mrOK;
|
|
end;
|
|
|
|
procedure TSettingsForm.SettingsFormButtonCancelClick(Sender: TObject);
|
|
begin
|
|
if not FileExists(SimbaSettingsFile) then
|
|
begin
|
|
Self.SettingsTreeView.Items.Clear;
|
|
Self.Settings.SaveToXML(SimbaSettingsFile);
|
|
Self.SettingsTreeView.Items.Clear;
|
|
Self.Settings.LoadFromXML(SimbaSettingsFile);
|
|
end;
|
|
Self.ModalResult:=mrOK;
|
|
end;
|
|
|
|
procedure TSettingsForm.FormDestroy(Sender: TObject);
|
|
begin
|
|
Settings.Free;
|
|
end;
|
|
|
|
procedure TSettingsForm.SettingsTreeViewDblClick(Sender: TObject);
|
|
var
|
|
p, pp: TPoint;
|
|
N: TTreeNode;
|
|
Path, NewVal: String;
|
|
|
|
begin
|
|
p := Mouse.CursorPos;
|
|
pp := TSettingsForm(Sender).ScreenToClient(p);
|
|
N := SettingsTreeView.GetNodeAt(pp.x, pp.y);
|
|
if N <> nil then
|
|
if assigned(N.Data) then
|
|
begin
|
|
Path := Settings.GetNodePath(N.Parent);
|
|
NewVal := InputBox('Change Setting', 'Change value for ' + TSettingData(N.Data).Val,
|
|
Settings.GetKeyValue(Path));
|
|
writeln('NewVal: ' + NewVal);
|
|
Settings.SetKeyValue(Path, NewVal);
|
|
N.Text := NewVal;
|
|
end;
|
|
end;
|
|
|
|
procedure TSettingsForm.SaveCurrent;
|
|
begin
|
|
Settings.SaveToXML(SimbaSettingsFile);
|
|
end;
|
|
|
|
procedure TSettingsForm.Reload;
|
|
begin
|
|
if not FileExists(SimbaSettingsFile) then
|
|
begin
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.SaveToXML(SimbaSettingsFile);
|
|
end;
|
|
|
|
SettingsTreeView.Items.Clear;
|
|
Settings.LoadFromXML(SimbaSettingsFile);
|
|
end;
|
|
|
|
initialization
|
|
{$I simbasettings.lrs}
|
|
|
|
end.
|
|
|