- Added lightlevel slider

Client/Tools/UfrmLightlevel.lfm

@@ -0,0 +1,22 @@
+inherited frmLightlevel: TfrmLightlevel
+  Height = 171
+  Width = 40
+  ActiveControl = tbLightlevel
+  Caption = 'Lightlevel'
+  ClientHeight = 171
+  ClientWidth = 40
+  object tbLightlevel: TTrackBar[0]
+    Left = 0
+    Height = 171
+    Top = 0
+    Width = 40
+    Max = 32
+    OnChange = tbLightlevelChange
+    Orientation = trVertical
+    Position = 0
+    Align = alClient
+    TabOrder = 0
+  end
+  inherited tmClose: TTimer[1]
+  end
+end

Client/Tools/UfrmLightlevel.pas

@@ -0,0 +1,48 @@
+unit UfrmLightlevel;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
+  ExtCtrls, ComCtrls, UfrmToolWindow;
+
+type
+
+  { TfrmLightlevel }
+
+  TfrmLightlevel = class(TfrmToolWindow)
+    tbLightlevel: TTrackBar;
+    procedure tbLightlevelChange(Sender: TObject);
+  private
+    { private declarations }
+  public
+    { public declarations }
+  end; 
+
+var
+  frmLightlevel: TfrmLightlevel;
+
+implementation
+
+uses
+  UfrmMain;
+
+{ TfrmLightlevel }
+
+procedure TfrmLightlevel.tbLightlevelChange(Sender: TObject);
+begin
+  if frmMain.LightManager.LightLevel = 0 then
+  begin
+    frmMain.LightManager.LightLevel := tbLightlevel.Position;
+    frmMain.InvalidateFilter;
+  end else
+    frmMain.LightManager.LightLevel := tbLightlevel.Position;
+end;
+
+initialization
+  {$I UfrmLightlevel.lrs}
+
+end.
+