unit MutatiesForm;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Data.DB,
  Vcl.Grids,
  Vcl.DBGrids,
  DataModule,
  Vcl.StdCtrls,
  Vcl.DBCtrls,
  Vcl.WinXCtrls,
  Vcl.ExtCtrls,
  Vcl.ComCtrls,
  TL.Components;

type
  TfrmMutaties = class(TLForm)
    DBLookupListBoxCategories: TDBLookupListBox;
    DBLookupListBoxSubcategories: TDBLookupListBox;
    GridMutaties: TLDBGrid;
    Panel1: TPanel;
    ToggleSwitchNotAssigned: TToggleSwitch;
    Label1: TLabel;
    Panel2: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure ToggleSwitchNotAssignedClick(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
  end;

var
  frmMutaties: TfrmMutaties;

implementation

{$R *.dfm}

procedure TfrmMutaties.FormCreate(Sender: TObject);
  begin
    if dm.Connection.Connected
    then
    begin
      Self.GridMutaties.SetColumnAttr;
      Self.RegVars.Values['ToggleSwitchNotAssigned'] := '0';
      Self.LoadConfig;
      Self.ToggleSwitchNotAssigned.State :=
         TToggleSwitchState(StrToInt(Self.RegVars.Values['ToggleSwitchNotAssigned']));
    end;
  end;

procedure TfrmMutaties.ToggleSwitchNotAssignedClick(Sender: TObject);
  begin
    if Self.ToggleSwitchNotAssigned.State = tssOn
    then
      dm.DataSetMutaties.Filtered := True
    else
      dm.DataSetMutaties.Filtered                  := False;
    Self.RegVars.Values['ToggleSwitchNotAssigned'] := IntToStr(Ord(Self.ToggleSwitchNotAssigned.State));
    Self.SaveConfig;
  end;

end.