| Class TCompRecordForm (unit CompRecordsDlg) |
TForm
| Constructors |
| Functions |
procedure AllLocalButClick(Sender: TObject);
procedure AllRemoteButClick(Sender: TObject);
procedure CancelButClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
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);
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;