| Class TReconcileErrorForm (unit ReconcileErrorDialog2) |
TForm
| Constructors |
constructor CreateForm(DataSet: TDataSet; UpdateKind: TUpdateKind;
Error: EReconcileError);| Functions |
procedure DisplayFieldValues(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure UpdateDataSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
procedure UpdateDataSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
procedure AdjustColumnWidths;
procedure InitDataFields;
procedure InitReconcileActions;
procedure InitUpdateData(HasCurValues: Boolean);
procedure SetFieldValues(DataSet: TDataSet);| 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;