1unit MutatiesForm;
 2
 3interface
 4
 5uses
 6  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
 7  Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids, DataModule, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.WinXCtrls,
 8  Vcl.ExtCtrls, Vcl.ComCtrls, TL.Components;
 9
10type
11  TfrmMutaties = class(TLForm)
12    GridMutaties: TLDBGrid;
13    Panel2: TPanel;
14    Panel3: TPanel;
15    DBLookupListBoxCategories: TDBLookupListBox;
16    DBLookupListBoxSubcategories: TDBLookupListBox;
17    Panel1: TPanel;
18    Label1: TLabel;
19    ToggleSwitchNotAssigned: TToggleSwitch;
20    Panel4: TPanel;
21    Label2: TLabel;
22    Label3: TLabel;
23    procedure FormCreate(Sender: TObject);
24    procedure ToggleSwitchNotAssignedClick(Sender: TObject);
25    procedure GridMutatiesDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
26      State: TGridDrawState);
27  private
28    { Private declarations }
29  public
30    { Public declarations }
31  end;
32
33var
34  frmMutaties: TfrmMutaties;
35
36implementation
37
38{$R *.dfm}
39
40procedure TfrmMutaties.FormCreate(Sender: TObject);
41begin
42  if dm.Connection.Connected then
43    begin
44      Self.GridMutaties.SetColumnAttr;
45      Self.RegVars.Values['ToggleSwitchNotAssigned']:= '0';
46      Self.LoadConfig;
47      Self.ToggleSwitchNotAssigned.State:= TToggleSwitchState(StrToInt(Self.RegVars.Values['ToggleSwitchNotAssigned']));
48    end;
49end;
50
51procedure TfrmMutaties.GridMutatiesDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
52  State: TGridDrawState);
53var
54  Grid: TLDBGrid;
55begin
56    // Locale variables for coding convinience ;)
57  Grid:= (Sender as TLDBGrid);
58  Grid.SetStyle(
59    DataCol,
60    Grid,
61    Column,
62    State,
63    -2,
64    -2);
65
66end;
67
68procedure TfrmMutaties.ToggleSwitchNotAssignedClick(Sender: TObject);
69begin
70  if Self.ToggleSwitchNotAssigned.State = tssOn then
71    dm.DataSetMutaties.Filtered:= True
72  else
73    dm.DataSetMutaties.Filtered:= False;
74  Self.RegVars.Values['ToggleSwitchNotAssigned']:= IntToStr(Ord(Self.ToggleSwitchNotAssigned.State));
75  Self.SaveConfig;
76end;
77
78end.
79