procedure TfrmContactProp.AdvGlowButton1Click(Sender: TObject);
begin
  ModalResult:= mrcancel;
  AbonentChange:= false;
  close;
end;

procedure TfrmContactProp.AdvGlowButton3Click(Sender: TObject);
begin
if (RzEdit1.Text = '') or (RzEdit2.Text = '')
  then begin
         frmContactProp.modalresult:= mrcancel;
         AbonentChange:= false;
         exit;
       end
  else begin
         frmAT_PhoneBook.ApplyContactChanges(xContactProps);
         frmContactProp.modalresult:= mrOk;
         AbonentChange:= true;
       end;
  close;
end;
procedure TfrmContactProp.AdvOfficeSelector1Change(Sender: TObject);
var
  curInd: integer;
begin
  curInd:= StrToInt(AdvOfficeSelector1.Text);
  AdvPanel3.Visible:= (curInd <= xPhoneBookParam.MECount);
  AdvPanel4.Visible:= (curInd <= xPhoneBookParam.MECount);
end;
procedure TfrmContactProp.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin AbonentChange:= false; close; end;
end;
procedure TfrmContactProp.PlannerDatePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0'..'9', #8, '.']) then Key:= #0; 
end;
procedure TfrmContactProp.FormCreate(Sender: TObject);
begin
  Label1.Caption:= at_pb_col01_01;
  Label2.Caption:= at_pb_col01_02;
  Label3.Caption:= Format(at_pb_col01_03,['']);
  Label4.Caption:= at_pb_col01_04;
  Label5.Caption:= at_pb_col01_05;
  Label6.Caption:= at_pb_col01_06;
  Label7.Caption:= at_pb_col01_07;
  Label9.Caption:= at_pb_col01_08;
  Label15.Caption:= at_pb_col01_15;
  Label10.Caption:= Format(at_pb_col01_09,['']);
  Label8.Caption:= Format(at_pb_col01_10,['']);
  Label11.Caption:= Format(at_pb_col01_11,['']);
  Label12.Caption:= Format(at_pb_col01_12,['']);
  Label13.Caption:= Format(at_pb_col01_13,['']);
  Label14.Caption:= Format(at_pb_col01_14,['']);
  AdvPanel2.Caption:=   at_pb_cont_text03;
  AdvPanel3.Caption:=   at_pb_cont_text04;
  AdvPanel4.Caption:=   at_pb_cont_text05;
  AdvGlowButton1.Caption:= btnCancel;
  AdvGlowButton3.Caption:= btnOk;    
end;