unit ReducedDeltaClientMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, Grids, DBGrids;

type
  TReducedDeltaClientMainForm = class(TForm)
    OpenButton: TButton;
    ApplyButton: TButton;
    DBGrid1: TDBGrid;
    cbReducedDelta: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure cbReducedDeltaClick(Sender: TObject);
    procedure OpenButtonClick(Sender: TObject);
    procedure ApplyButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ReducedDeltaClientMainForm: TReducedDeltaClientMainForm;

implementation

uses
  ReducedDeltaClientData, uDABin2DataStreamer, uDADataTable;
  
{$R *.dfm}

procedure TReducedDeltaClientMainForm.FormCreate(Sender: TObject);
begin
  cbReducedDelta.Checked:= ReducedDeltaClientDataModule.DataStreamer.SendReducedDelta;
end;

procedure TReducedDeltaClientMainForm.cbReducedDeltaClick(Sender: TObject);
begin
  ReducedDeltaClientDataModule.DataStreamer.SendReducedDelta := cbReducedDelta.Checked;
end;

procedure TReducedDeltaClientMainForm.OpenButtonClick(Sender: TObject);
begin
  with ReducedDeltaClientDataModule.tbl_Customers do
    Active := not Active;
end;

procedure TReducedDeltaClientMainForm.ApplyButtonClick(Sender: TObject);
begin
  ReducedDeltaClientDataModule.tbl_Customers.ApplyUpdates;
end;

end.