unit CategoriesForm;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.GraphUtil,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Data.DB,
  Vcl.Grids,
  Vcl.DBGrids,
  Vcl.ExtCtrls,
  Vcl.DBCtrls,
  Vcl.StdCtrls,
  Vcl.Mask,
  System.TimeSpan,
  System.Diagnostics,
  TL.Components;

type

  TfrmCategories = class(TLForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GridCategories: TLDBGrid;
    GridSubcategories: TLDBGrid;
    LDBGrid1: TLDBGrid;
    LDBGrid2: TLDBGrid;
    Splitter1: TSplitter;
    procedure FormClose(
       Sender    : TObject;
       var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
  end;

var
  frmCategories: TfrmCategories;

implementation

{$R *.dfm}

uses
  DataModule;

procedure TfrmCategories.FormActivate(Sender: TObject);
  begin
    dm.DataSourceMutaties.DataSet.Filtered := True;
  end;

procedure TfrmCategories.FormClose(
   Sender    : TObject;
   var Action: TCloseAction);
  begin
    if Self.GridCategories.DataSource.DataSet.State = dsEdit
    then
      GridCategories.DataSource.DataSet.Post;
    if Self.GridSubcategories.DataSource.DataSet.State = dsEdit
    then
      Self.GridSubcategories.DataSource.DataSet.Post;
  end;

end.