source: tags/1.4.0/Forms/UFormGenerate.pas

unit UFormGenerate;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin, UVCard;

type

  { TFormGenerate }

  TFormGenerate = class(TForm)
    ButtonGenerate: TButton;
    Label1: TLabel;
    SpinEditCount: TSpinEdit;
    procedure ButtonGenerateClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  public
    Contacts: TContacts;
    procedure UpdateInterface;
  end;

var
  FormGenerate: TFormGenerate;


implementation

{$R *.lfm}

uses
  UCore;

{ TFormGenerate }

procedure TFormGenerate.ButtonGenerateClick(Sender: TObject);
var
  I: Integer;
  Contact: TContact;
begin
  for I := 1 to SpinEditCount.Value do begin
    Contact := Contacts.AddNew;
    with Contact do begin
      Fields[cfVersion] := Core.DefaultVcardVersion;
      Fields[cfFirstName] := 'First ' + IntToStr(Random(10000));
      Fields[cfLastName] := 'Last ' + IntToStr(Random(10000));
      Fields[cfFullName] := 'FullName ' + IntToStr(Random(100));
      Fields[cfTelCell] := IntToStr(Random(1000000000));
      Fields[cfTelHome] := IntToStr(Random(1000000000));
      Fields[cfTelWork] := IntToStr(Random(1000000000));
      Fields[cfNote] := 'Some contact notes';
      Fields[cfEmail] := 'user@email.com';
      Fields[cfEmailHome] := 'home@email.com';
      Fields[cfEmailWork] := 'home@email.com';
      Fields[cfUrl] := 'https://url.com';
      Fields[cfUrlWork] := 'https://work.com';
      Fields[cfUrlHome] := 'https://home.com';
    end;
  end;
  Close;
  ModalResult := mrOk;
end;

procedure TFormGenerate.FormClose(Sender: TObject; var CloseAction: TCloseAction
  );
begin
  Core.GenerateCount := SpinEditCount.Value;
  Core.PersistentForm1.Save(Self);
end;

procedure TFormGenerate.FormCreate(Sender: TObject);
begin
  Core.Translator.TranslateComponentRecursive(Self);
  Core.ThemeManager1.UseTheme(Self);
end;

procedure TFormGenerate.FormShow(Sender: TObject);
begin
  Core.PersistentForm1.Load(Self);
  SpinEditCount.Value := Core.GenerateCount;
  UpdateInterface;
end;

procedure TFormGenerate.UpdateInterface;
begin
  ButtonGenerate.Enabled := Assigned(Contacts);
end;

end.