david
0cbd2a5477
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@49 b6239004-a887-0f4b-9937-50029ccdca16
57 lines
1.5 KiB
ObjectPascal
57 lines
1.5 KiB
ObjectPascal
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.
|