TUserinfoplus

type TUserinfoplus = class(TGoogleBaseObject)

protected

  procedure Setemail(); virtual;

  procedure Setfamily_name(); virtual;

  procedure Setgender(); virtual;

  procedure Setgiven_name(); virtual;

  procedure Sethd(); virtual;

  procedure Setid(); virtual;

  procedure Setlink(); virtual;

  procedure Setlocale(); virtual;

  procedure Setname(); virtual;

  procedure Setpicture(); virtual;

  procedure Setverified_email(); virtual;

published

  property email: string; [rw]

  property family_name: string; [rw]

  property gender: string; [rw]

  property given_name: string; [rw]

  property hd: string; [rw]

  property id: string; [rw]

  property link: string; [rw]

  property locale: string; [rw]

  property name: string; [rw]

  property picture: string; [rw]

  property verified_email: Boolean; [rw]

end;

TUserinfoplus

TGoogleBaseObject

TObject