procedure TfrmDateBookEventProps.AdvGlowButton1Click(Sender: TObject);
begin
  ModalResult:= mrCancel;
end;
procedure TfrmDateBookEventProps.AdvGlowButton3Click(Sender: TObject);
begin
  if (edtDateBookTitle.Text <> '')
    then  begin
            //ApplyContactChanges(xContactProps);
            ModalResult:= mrOk;
          end
    else ModalResult:= mrCancel;
end;

procedure TfrmDateBookEventProps.FormKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_ESCAPE : CLose;
  end;
end;
procedure TfrmDateBookEventProps.FormCreate(Sender: TObject);
begin
  cbDateBookRepeat.Items.Clear;
  cbDateBookRepeat.Items.Add(DateBookRepeat_1);
  cbDateBookRepeat.Items.Add(DateBookRepeat_2);
  cbDateBookRepeat.Items.Add(DateBookRepeat_3);
  cbDateBookRepeat.Items.Add(DateBookRepeat_4);
  cbDateBookRepeat.Items.Add(DateBookRepeat_5);
  cbDateBookRepeat.Items.Add(DateBookRepeat_6);
  spSkinStdLabel1.Caption:= at_db_dbp_text_01;
  spSkinStdLabel2.Caption:= at_db_dbp_text_02;
  spSkinStdLabel3.Caption:= at_db_dbp_text_03;
  spSkinStdLabel4.Caption:= at_db_dbp_text_04;
  spSkinStdLabel5.Caption:= at_db_dbp_text_05;
  spSkinCheckRadioBox1.Caption:= at_db_dbp_text_06;
  spSkinStdLabel6.Caption:= at_db_dbp_text_07;
  AdvGlowButton1.Caption:= btnCancel;
  AdvGlowButton3.Caption:= btnOk;
end;