mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 15:58:51 -05:00
merge
This commit is contained in:
Merlijn Wajer
commit
cb5d6c3843
@ -3,11 +3,11 @@
|
|||||||
Simba settings
|
Simba settings
|
||||||
==============
|
==============
|
||||||
|
|
||||||
The Simba settings form can be used to tweak various Simba settings. Varying
|
The Simba settings form can be used to modify the settings. These options vary
|
||||||
from how often Simba will check for an update to wether or not you want the tray
|
from how often Simba will check for an update to whether the tray icon is
|
||||||
icon to show at all times.
|
displayed at all times.
|
||||||
|
|
||||||
Settings can be changed by going to the menubar titled *Tools* and the
|
Settings can be changed by going to the menu *Tools* menu and the
|
||||||
selecting the *Settings* option.
|
selecting the *Settings* option.
|
||||||
|
|
||||||
If you at any time have serious problems with Simba not behaving it as you
|
If you at any time have serious problems with Simba not behaving it as you
|
||||||
@ -16,6 +16,7 @@ closing Simba and deleting ``settings.xml``. Simba will create one with
|
|||||||
default settings if it does not exist.
|
default settings if it does not exist.
|
||||||
|
|
||||||
|
|
||||||
|
=======
|
||||||
General Settings
|
General Settings
|
||||||
----------------
|
----------------
|
||||||
|
|
||||||
@ -26,7 +27,7 @@ Recent files history
|
|||||||
|
|
||||||
``MaxRecentFiles``
|
``MaxRecentFiles``
|
||||||
|
|
||||||
Stores the amount of recent files to remember. *10* is default.
|
Stores the amount of recent files to remember. The default is *10*.
|
||||||
|
|
||||||
|
|
||||||
Extensions
|
Extensions
|
||||||
@ -129,7 +130,8 @@ Automatically pop up Code Hints
|
|||||||
``ShowAutomatically``
|
``ShowAutomatically``
|
||||||
|
|
||||||
If set to *True*, code hints will be shown when appropriate.
|
If set to *True*, code hints will be shown when appropriate.
|
||||||
On *False* code hints will never be shown automatically.
|
On *False* code hints will never be shown automatically, but can still be
|
||||||
|
accessed by pressing *Ctrl+Space*.
|
||||||
|
|
||||||
|
|
||||||
Code Hints
|
Code Hints
|
||||||
@ -160,7 +162,7 @@ It true is set to *True*, the function list will be visible on startup. *False*
|
|||||||
requires you to enable it yourself.
|
requires you to enable it yourself.
|
||||||
|
|
||||||
|
|
||||||
Colour Picker
|
Color Picker
|
||||||
-------------
|
-------------
|
||||||
|
|
||||||
``Settings/ColourPicker``
|
``Settings/ColourPicker``
|
||||||
@ -184,9 +186,9 @@ Script opening mode
|
|||||||
|
|
||||||
``OpenScriptInNewTab``
|
``OpenScriptInNewTab``
|
||||||
|
|
||||||
Simba can load Scripts in two diffferent ways. It can open every script in a new
|
Simba can load Scripts in two different ways. It can open every script in a new
|
||||||
tab, or it can override the currently active tab. Setting this to *True* opens
|
tab, or it can override the currently active tab. Setting this to *True* opens
|
||||||
scripts in new tabs; this is also the default.
|
scripts in new tabs, this is the default.
|
||||||
|
|
||||||
Behaviour when closing tabs
|
Behaviour when closing tabs
|
||||||
~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
||||||
|
|||||||
@ -1,74 +0,0 @@
|
|||||||
object SettingsForm: TSettingsForm
|
|
||||||
Left = 563
|
|
||||||
Height = 558
|
|
||||||
Top = 173
|
|
||||||
Width = 360
|
|
||||||
Caption = 'Simba Settings'
|
|
||||||
ClientHeight = 558
|
|
||||||
ClientWidth = 360
|
|
||||||
OnCreate = FormCreate
|
|
||||||
OnDestroy = FormDestroy
|
|
||||||
OnMouseUp = MouseUp
|
|
||||||
LCLVersion = '0.9.29'
|
|
||||||
object SettingsTreeView: TTreeView
|
|
||||||
Left = 16
|
|
||||||
Height = 473
|
|
||||||
Top = 16
|
|
||||||
Width = 324
|
|
||||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
||||||
DefaultItemHeight = 15
|
|
||||||
ReadOnly = True
|
|
||||||
ScrollBars = ssAutoBoth
|
|
||||||
TabOrder = 0
|
|
||||||
OnDblClick = SettingsTreeViewDblClick
|
|
||||||
OnKeyPress = OnKeyPress
|
|
||||||
OnMouseUp = MouseUp
|
|
||||||
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
|
|
||||||
end
|
|
||||||
object SettingsFormButtonOK: TButton
|
|
||||||
Left = 265
|
|
||||||
Height = 25
|
|
||||||
Top = 511
|
|
||||||
Width = 75
|
|
||||||
Anchors = [akRight, akBottom]
|
|
||||||
Caption = 'OK'
|
|
||||||
OnClick = SettingsFormButtonOKClick
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object SettingsFormButtonCancel: TButton
|
|
||||||
Left = 16
|
|
||||||
Height = 25
|
|
||||||
Top = 511
|
|
||||||
Width = 75
|
|
||||||
Anchors = [akLeft, akBottom]
|
|
||||||
Caption = 'Cancel'
|
|
||||||
OnClick = SettingsFormButtonCancelClick
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object DeleteButton: TButton
|
|
||||||
Left = 120
|
|
||||||
Height = 25
|
|
||||||
Top = 511
|
|
||||||
Width = 120
|
|
||||||
Anchors = [akBottom]
|
|
||||||
Caption = 'Delete Selected'
|
|
||||||
OnClick = DeleteSelected
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
object SettingsPopup: TPopupMenu
|
|
||||||
left = 40
|
|
||||||
top = 32
|
|
||||||
object PopupRename: TMenuItem
|
|
||||||
Caption = 'Rename'
|
|
||||||
OnClick = PopupRenameClick
|
|
||||||
end
|
|
||||||
object PopupDelete: TMenuItem
|
|
||||||
Caption = 'Delete'
|
|
||||||
OnClick = PopupDeleteClick
|
|
||||||
end
|
|
||||||
object PopupCreate: TMenuItem
|
|
||||||
Caption = 'Create subkey'
|
|
||||||
OnClick = PopupCreateKey
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,26 +0,0 @@
|
|||||||
LazarusResources.Add('TSettingsForm','FORMDATA',[
|
|
||||||
'TPF0'#13'TSettingsForm'#12'SettingsForm'#4'Left'#3'3'#2#6'Height'#3'.'#2#3'T'
|
|
||||||
+'op'#3#173#0#5'Width'#3'h'#1#7'Caption'#6#14'Simba Settings'#12'ClientHeight'
|
|
||||||
+#3'.'#2#11'ClientWidth'#3'h'#1#8'OnCreate'#7#10'FormCreate'#9'OnDestroy'#7#11
|
|
||||||
+'FormDestroy'#9'OnMouseUp'#7#7'MouseUp'#10'LCLVersion'#6#6'0.9.29'#0#9'TTree'
|
|
||||||
+'View'#16'SettingsTreeView'#4'Left'#2#16#6'Height'#3#217#1#3'Top'#2#16#5'Wid'
|
|
||||||
+'th'#3'D'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'Def'
|
|
||||||
+'aultItemHeight'#2#15#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrd'
|
|
||||||
+'er'#2#0#10'OnDblClick'#7#24'SettingsTreeViewDblClick'#10'OnKeyPress'#7#10'O'
|
|
||||||
+'nKeyPress'#9'OnMouseUp'#7#7'MouseUp'#7'Options'#11#17'tvoAutoItemHeight'#16
|
|
||||||
+'tvoHideSelection'#21'tvoKeepCollapsedNodes'#11'tvoReadOnly'#14'tvoShowButto'
|
|
||||||
+'ns'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#7'TButton'#20'Se'
|
|
||||||
+'ttingsFormButtonOK'#4'Left'#3#9#1#6'Height'#2#25#3'Top'#3#255#1#5'Width'#2
|
|
||||||
+'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#7'Caption'#6#2'OK'#7'OnClick'#7#25
|
|
||||||
+'SettingsFormButtonOKClick'#8'TabOrder'#2#1#0#0#7'TButton'#24'SettingsFormBu'
|
|
||||||
+'ttonCancel'#4'Left'#2#16#6'Height'#2#25#3'Top'#3#255#1#5'Width'#2'K'#7'Anch'
|
|
||||||
+'ors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#6'Cancel'#7'OnClick'#7#29'Sett'
|
|
||||||
+'ingsFormButtonCancelClick'#8'TabOrder'#2#2#0#0#7'TButton'#12'DeleteButton'#4
|
|
||||||
+'Left'#2'x'#6'Height'#2#25#3'Top'#3#255#1#5'Width'#2'x'#7'Anchors'#11#8'akBo'
|
|
||||||
+'ttom'#0#7'Caption'#6#15'Delete Selected'#7'OnClick'#7#14'DeleteSelected'#8
|
|
||||||
+'TabOrder'#2#3#0#0#10'TPopupMenu'#13'SettingsPopup'#4'left'#2'('#3'top'#2' '
|
|
||||||
+#0#9'TMenuItem'#11'PopupRename'#7'Caption'#6#6'Rename'#7'OnClick'#7#16'Popup'
|
|
||||||
+'RenameClick'#0#0#9'TMenuItem'#11'PopupDelete'#7'Caption'#6#6'Delete'#7'OnCl'
|
|
||||||
+'ick'#7#16'PopupDeleteClick'#0#0#9'TMenuItem'#11'PopupCreate'#7'Caption'#6#13
|
|
||||||
+'Create subkey'#7'OnClick'#7#14'PopupCreateKey'#0#0#0#0
|
|
||||||
]);
|
|
||||||
@ -1,244 +0,0 @@
|
|||||||
unit Simbasettings;
|
|
||||||
|
|
||||||
{$mode objfpc}{$H+}
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Classes, SysUtils, FileUtil, LResources, Forms, Controls,MufasaBase, Graphics, Dialogs,
|
|
||||||
ComCtrls, StdCtrls, Menus, settings;
|
|
||||||
|
|
||||||
type
|
|
||||||
|
|
||||||
{ TSettingsForm }
|
|
||||||
|
|
||||||
TSettingsForm = class(TForm)
|
|
||||||
DeleteButton: TButton;
|
|
||||||
PopupCreate: TMenuItem;
|
|
||||||
PopupRename: TMenuItem;
|
|
||||||
PopupDelete: TMenuItem;
|
|
||||||
SettingsPopup: TPopupMenu;
|
|
||||||
SettingsFormButtonCancel: TButton;
|
|
||||||
SettingsFormButtonOK: TButton;
|
|
||||||
SettingsTreeView: TTreeView;
|
|
||||||
Settings: TMMLSettings;
|
|
||||||
procedure DeleteSelected(Sender: TObject);
|
|
||||||
procedure MouseUp(Sender: TObject; Button: TMouseButton;
|
|
||||||
Shift: TShiftState; X, Y: Integer);
|
|
||||||
procedure OnKeyPress(Sender: TObject; var Key: char);
|
|
||||||
procedure PopupCreateKey(Sender: TObject);
|
|
||||||
procedure PopupDeleteClick(Sender: TObject);
|
|
||||||
procedure PopupRenameClick(Sender: TObject);
|
|
||||||
procedure SettingsFormButtonCancelClick(Sender: TObject);
|
|
||||||
procedure SettingsFormButtonOKClick(Sender: TObject);
|
|
||||||
procedure DeleteANode(N: TTreeNode);
|
|
||||||
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
|
|
||||||
|
|
||||||
uses LCLtype;
|
|
||||||
|
|
||||||
{ TSettingsForm }
|
|
||||||
|
|
||||||
procedure TSettingsForm.FormCreate(Sender: TObject);
|
|
||||||
var
|
|
||||||
FirstNode : TTreeNode;
|
|
||||||
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);
|
|
||||||
FirstNode := SettingsTreeView.Items.GetFirstNode;
|
|
||||||
if FirstNode <> nil then
|
|
||||||
if FirstNode.Text = 'Settings' then
|
|
||||||
FirstNode.Expand(false);
|
|
||||||
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.MouseUp(Sender: TObject; Button: TMouseButton;
|
|
||||||
Shift: TShiftState; X, Y: Integer);
|
|
||||||
var
|
|
||||||
N: TTreeNode;
|
|
||||||
begin
|
|
||||||
if Button = mbRight then
|
|
||||||
begin
|
|
||||||
N := SettingsTreeView.GetNodeAt(X, Y);
|
|
||||||
if N = nil then
|
|
||||||
exit;
|
|
||||||
SettingsTreeView.Selected := N;
|
|
||||||
SettingsPopup.PopUp();
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.OnKeyPress(Sender: TObject; var Key: char);
|
|
||||||
var
|
|
||||||
N: TTreeNode;
|
|
||||||
begin
|
|
||||||
if (Ord(Key) = VK_DELETE) or (Ord(Key) = VK_BACK) then
|
|
||||||
begin
|
|
||||||
N := SettingsTreeView.Selected;
|
|
||||||
if N = nil then
|
|
||||||
exit;
|
|
||||||
DeleteANode(N);
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.PopupCreateKey(Sender: TObject);
|
|
||||||
var
|
|
||||||
KeyName, P: String;
|
|
||||||
N, NN: TTreeNode;
|
|
||||||
begin
|
|
||||||
N := SettingsTreeView.Selected;
|
|
||||||
if N = nil then
|
|
||||||
exit;
|
|
||||||
|
|
||||||
if N.Data <> nil then
|
|
||||||
exit;
|
|
||||||
|
|
||||||
if N.GetFirstChild <> nil then
|
|
||||||
if N.GetFirstChild.Data <> nil then
|
|
||||||
exit;
|
|
||||||
|
|
||||||
KeyName := InputBox('Create new Key', 'Please enter the key name', '');
|
|
||||||
|
|
||||||
if KeyName = '' then
|
|
||||||
exit;
|
|
||||||
P := Settings.GetNodePath(N);
|
|
||||||
|
|
||||||
if Settings.CreateKey(P + '/' + KeyName) then
|
|
||||||
mDebugLn('Added key ' + KeyName);
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure TSettingsForm.FormDestroy(Sender: TObject);
|
|
||||||
begin
|
|
||||||
Settings.Free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.PopupDeleteClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
DeleteSelected(Sender);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.PopupRenameClick(Sender: TObject);
|
|
||||||
var
|
|
||||||
N: TTreeNode;
|
|
||||||
MBox, Path: String;
|
|
||||||
begin
|
|
||||||
N := SettingsTreeView.Selected;
|
|
||||||
if N = nil then
|
|
||||||
exit;
|
|
||||||
|
|
||||||
Path := Settings.GetNodePath(N);
|
|
||||||
|
|
||||||
MBox := InputBox('Rename', 'Please fill in the new name', '');
|
|
||||||
if MBox = '' then
|
|
||||||
exit;
|
|
||||||
|
|
||||||
if Settings.RenameKey(Path, MBox) then
|
|
||||||
N.Text := MBox;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.DeleteSelected(Sender: TObject);
|
|
||||||
var
|
|
||||||
N: TTreeNode;
|
|
||||||
begin
|
|
||||||
N := SettingsTreeView.Selected;
|
|
||||||
if N = nil then
|
|
||||||
exit;
|
|
||||||
DeleteANode(N);
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.DeleteANode(N: TTreeNode);
|
|
||||||
var
|
|
||||||
Path: String;
|
|
||||||
begin
|
|
||||||
if N = nil then
|
|
||||||
exit;
|
|
||||||
if MessageDlg('Delete a setting', 'Are you sure you want to delete this setting?', mtWarning, [mbYes, mbNo], 0) = mrNo then
|
|
||||||
exit;
|
|
||||||
|
|
||||||
Path := Settings.GetNodePath(N);
|
|
||||||
Settings.DeleteKey(Path);
|
|
||||||
N.DeleteChildren;
|
|
||||||
N.Delete;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSettingsForm.SettingsTreeViewDblClick(Sender: TObject);
|
|
||||||
var
|
|
||||||
p, pp: TPoint;
|
|
||||||
N: TTreeNode;
|
|
||||||
Path, NewVal: String;
|
|
||||||
|
|
||||||
begin
|
|
||||||
p := Mouse.CursorPos;
|
|
||||||
|
|
||||||
pp := TTreeView(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));
|
|
||||||
mDebugLn('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
|
|
||||||
{$R *.lfm}
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user