unit uContactProp;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, 
  uAT_PhoneBook, uAT, ImgList, PngImageList,
  SkinCtrls, SkinBoxCtrls, DynamicSkinForm, Mask;
type
  TfrmContactProp = class(TForm)

   PngImageList3: TPngImageList;
    AdvPanel2: TspSkinExPanel;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    Label3: TspSkinStdLabel;
    AdvOfficeSelector1: TspSkinComboBox;
    RzEdit1: TspSkinEdit;
    RzEdit2: TspSkinEdit;
    spDynamicSkinForm1: TspDynamicSkinForm;
    AdvPanel3: TspSkinExPanel;
    Label4: TspSkinStdLabel;
    Label5: TspSkinStdLabel;
    Label6: TspSkinStdLabel;
    AdvOfficeSelector2: TspSkinComboBox;
    AdvOfficeSelector3: TspSkinComboBox;
    AdvOfficeSelector4: TspSkinComboBox;
    AdvOfficeSelector5: TspSkinComboBox;
    Label7: TspSkinStdLabel;
    AdvPanel4: TspSkinExPanel;
    Label9: TspSkinStdLabel;
    Label15: TspSkinStdLabel;
    Label10: TspSkinStdLabel;
    reStreet2: TspSkinEdit;
    reStreet1: TspSkinEdit;
    reNickName: TspSkinEdit;
    reRegion: TspSkinEdit;
    reCity: TspSkinEdit;
    rePostIndex: TspSkinEdit;
    reCountry: TspSkinEdit;
    Label8: TspSkinStdLabel;
    Label11: TspSkinStdLabel;
    Label12: TspSkinStdLabel;
    Label14: TspSkinStdLabel;
    Label13: TspSkinStdLabel;
    PlannerDatePicker1: TspSkinDateEdit;
    AdvGlowButton1: TspSkinSpeedButton;
    AdvGlowButton3: TspSkinSpeedButton;
    procedure AdvGlowButton1Click(Sender: TObject);
    procedure AdvGlowButton3Click(Sender: TObject);
    procedure AdvOfficeSelector1Change(Sender: TObject);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PlannerDatePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    AbonentChange: boolean;
  end;
var
  frmContactProp: TfrmContactProp;
  xContactProps: TContactProps;
implementation
uses uLng, uMain;
{$R *.dfm}