Class TReconcileErrorForm (unit ReconcileErrorDialog2)

Inherits from

TForm

Constructors


constructor CreateForm(DataSet: TDataSet; UpdateKind: TUpdateKind; Error: EReconcileError);

TReconcileErrorForm


Functions

procedure DisplayFieldValues(Sender: TObject);

Update the grid based on the current display options

procedure FormCreate(Sender: TObject);

Event handlers

procedure FormDestroy(Sender: TObject);

Do not localize

procedure UpdateDataSelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean);

Enable the editing in the grid if we are on the NewValue column and the current reconcile action is raCorrect

procedure UpdateDataSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

Set the Edited flag in the DataField list and save the value

procedure AdjustColumnWidths;


procedure InitDataFields;

Create a list of the data fields in the dataset, and store string values associated with NewValue, OldValue, and CurValue in string variables to make display switching faster

procedure InitReconcileActions;

Update the reconcile action radio group based on the valid reconcile actions

procedure InitUpdateData(HasCurValues: Boolean);

Initialize the column indexes and grid titles

procedure SetFieldValues(DataSet: TDataSet);

For fields that the user has edited, copy the changes back into the NewValue property of the associated field

Properties

Events

Variables

ActionGroup : TRadioGroup;


CancelBtn : TButton;


ChangedOnly : TCheckBox;


ConflictsOnly : TCheckBox;


ErrorMsg : TMemo;


IconImage : TImage;


OKBtn : TButton;


UpdateData : TStringGrid;


UpdateType : TLabel;


FCurColIdx : Integer;


FDataFields : TList;


FDataSet : TDataSet;


FError : EReconcileError;


FNewColIdx : Integer;


FOldColIdx : Integer;


FUpdateKind : TUpdateKind;



Constructors


constructor CreateForm(DataSet: TDataSet; UpdateKind: TUpdateKind; Error: EReconcileError);

TReconcileErrorForm


Functions


procedure DisplayFieldValues(Sender: TObject);

Update the grid based on the current display options


procedure FormCreate(Sender: TObject);

Event handlers


procedure FormDestroy(Sender: TObject);

Do not localize


procedure UpdateDataSelectCell(Sender: TObject; Col, Row: Integer; var CanSelect: Boolean);

Enable the editing in the grid if we are on the NewValue column and the current reconcile action is raCorrect


procedure UpdateDataSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

Set the Edited flag in the DataField list and save the value


procedure AdjustColumnWidths;


procedure InitDataFields;

Create a list of the data fields in the dataset, and store string values associated with NewValue, OldValue, and CurValue in string variables to make display switching faster


procedure InitReconcileActions;

Update the reconcile action radio group based on the valid reconcile actions


procedure InitUpdateData(HasCurValues: Boolean);

Initialize the column indexes and grid titles


procedure SetFieldValues(DataSet: TDataSet);

For fields that the user has edited, copy the changes back into the NewValue property of the associated field


Properties


Events


Variables


ActionGroup : TRadioGroup;


CancelBtn : TButton;


ChangedOnly : TCheckBox;


ConflictsOnly : TCheckBox;


ErrorMsg : TMemo;


IconImage : TImage;


OKBtn : TButton;


UpdateData : TStringGrid;


UpdateType : TLabel;


FCurColIdx : Integer;


FDataFields : TList;


FDataSet : TDataSet;


FError : EReconcileError;


FNewColIdx : Integer;


FOldColIdx : Integer;


FUpdateKind : TUpdateKind;