Class TCompRecordForm (unit CompRecordsDlg)

Inherits from

TForm

Constructors



Functions

procedure AllLocalButClick(Sender: TObject);


procedure AllRemoteButClick(Sender: TObject);


procedure CancelButClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

******************************************************************** TCompRecordForm

procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GetUserChoice(InLocal, InRemote: boolean);


procedure InitFields(Table: TTable);


procedure LocalButClick(Sender: TObject);


procedure RemoteButClick(Sender: TObject);


procedure SetFieldValues(f: TField; const v1, v2: string);

Clear out the old controls

procedure SkipButClick(Sender: TObject);


procedure SetUserChoice(Choice: TUserChoice);


Properties

property UserChoice : TUserChoice


Events

Variables

AllLocalBut : TButton;


AllRemoteBut : TButton;


BotPanel : TPanel;


CancelBut : TBitBtn;


FieldBox : TScrollBox;


FieldPanel : TPanel;


FormSettings1 : TFormSettings;


LocalBut : TButton;


LocalValPanel : TPanel;


RemoteBut : TButton;


RemoteValPanel : TPanel;


SkipBut : TBitBtn;


StatusBar1 : TStatusBar;


TopPanel : TPanel;


FCList : TFieldConList;


FUserChoice : TUserChoice;



Constructors


Functions


procedure AllLocalButClick(Sender: TObject);


procedure AllRemoteButClick(Sender: TObject);


procedure CancelButClick(Sender: TObject);


procedure FormCreate(Sender: TObject);

******************************************************************** TCompRecordForm


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure GetUserChoice(InLocal, InRemote: boolean);


procedure InitFields(Table: TTable);


procedure LocalButClick(Sender: TObject);


procedure RemoteButClick(Sender: TObject);


procedure SetFieldValues(f: TField; const v1, v2: string);

Clear out the old controls


procedure SkipButClick(Sender: TObject);


procedure SetUserChoice(Choice: TUserChoice);


Properties


property UserChoice : TUserChoice


Events


Variables


AllLocalBut : TButton;


AllRemoteBut : TButton;


BotPanel : TPanel;


CancelBut : TBitBtn;


FieldBox : TScrollBox;


FieldPanel : TPanel;


FormSettings1 : TFormSettings;


LocalBut : TButton;


LocalValPanel : TPanel;


RemoteBut : TButton;


RemoteValPanel : TPanel;


SkipBut : TBitBtn;


StatusBar1 : TStatusBar;


TopPanel : TPanel;


FCList : TFieldConList;


FUserChoice : TUserChoice;