1 files changed, 0 insertions, 335 deletions
diff --git a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas b/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas
deleted file mode 100644
index 8bd46e31..00000000
--- a/extras/tiopf/demos/Demo_21_AdrsBook_MGM/frmcontactmaint.pas
+++ /dev/null
@@ -1,335 +0,0 @@
-unit frmContactMaint;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  SysUtils, Classes, fpg_base, fpg_main, fpg_edit,
-  fpg_widget, fpg_form, fpg_label, fpg_button,
-  fpg_listview, fpg_memo,
-  model, tiModelMediator;
-
-type
-
-  TContactEditForm = class(TfpgForm)
-  private
-    {@VFD_HEAD_BEGIN: ContactEditForm}
-    lblName1: TfpgLabel;
-    edFName: TfpgEdit;
-    lblName2: TfpgLabel;
-    edLName: TfpgEdit;
-    lblName3: TfpgLabel;
-    edEmail: TfpgEdit;
-    lblName4: TfpgLabel;
-    edMobile: TfpgEdit;
-    lblName5: TfpgLabel;
-    meComments: TfpgMemo;
-    lblName6: TfpgLabel;
-    lvAddresses: TfpgListView;
-    btnSave: TfpgButton;
-    btnCancel: TfpgButton;
-    btnAdd: TfpgButton;
-    btnEdit: TfpgButton;
-    btnDelete: TfpgButton;
-    btnDebug: TfpgButton;
-    {@VFD_HEAD_END: ContactEditForm}
-    FData: TContact;
-    FMediator: TtiModelMediator;
-    FAdrsMediator: TtiModelMediator;
-    procedure SetData(const AValue: TContact);
-    procedure SetupMediators;
-    procedure btnDebugClicked(Sender: TObject);
-    procedure btnEditClicked(Sender: TObject);
-  public
-    procedure AfterCreate; override;
-    property  Data: TContact read FData write SetData;
-  end;
-
-{@VFD_NEWFORM_DECL}
-
-function EditContact(AData: TContact): Boolean;
-
-
-implementation
-
-uses
-  contactmanager, tiDialogs, frmAddressMaint, tiListMediators;
-
-
-function EditContact(AData: TContact): Boolean;
-var
-  frm: TContactEditForm;
-begin
-  frm:= TContactEditForm.Create(nil);
-  try
-    frm.SetData(AData);
-    result:= frm.ShowModal = mrOK;
-  finally
-    frm.Free;
-  end;
-end;
-
-
-{@VFD_NEWFORM_IMPL}
-
-procedure TContactEditForm.SetupMediators;
-begin
-  if not Assigned(FMediator) then
-  begin
-    FMediator := TtiModelMediator.Create(self);
-    FMediator.AddProperty('FirstName', edFName);
-    FMediator.AddProperty('LastName', edLName);
-    FMediator.AddProperty('EMail', edEmail);
-    FMediator.AddProperty('Mobile', edMobile);
-    FMediator.AddProperty('Comments', meComments);
-  end;
-  FMediator.Subject := FData;
-  FMediator.Active := True;
-
-  if not Assigned(FAdrsMediator) then
-  begin
-    FAdrsMediator := TtiModelMediator.Create(self);
-    FAdrsMediator.AddComposite({'AddressType.Name;}'AddressType4GUI(50,"Type");Nr;Street;Telephone1', lvAddresses);
-  end;
-  FAdrsMediator.Subject := FData.AddressList;
-  FAdrsMediator.Active := True;
-end;
-
-procedure TContactEditForm.btnDebugClicked(Sender: TObject);
-begin
-  tiShowString(FData.AsDebugString);
-end;
-
-procedure TContactEditForm.btnEditClicked(Sender: TObject);
-var
-  obj: TAddress;
-begin
-  obj := TAddress(TtiListViewMediatorView(FAdrsMediator.FindByComponent(lvAddresses).Mediator).SelectedObject);
-  tiShowString(obj.AsDebugString);
-
-  if not Assigned(obj) then
-    Exit; //==>
-
-  if EditAddress(obj) then
-  begin
-    // do nothing
-  end;
-end;
-
-procedure TContactEditForm.SetData(const AValue: TContact);
-begin
-  if FData=AValue then exit;
-  FData:=AValue;
-  SetupMediators;
-end;
-
-procedure TContactEditForm.AfterCreate;
-begin
-  {@VFD_BODY_BEGIN: ContactEditForm}
-  Name := 'ContactEditForm';
-  SetPosition(513, 423, 537, 331);
-  WindowTitle := 'Contact Edit Form';
-
-  lblName1 := TfpgLabel.Create(self);
-  with lblName1 do
-  begin
-    Name := 'lblName1';
-    SetPosition(8, 8, 80, 16);
-    FontDesc := '#Label1';
-    Hint := '';
-    Text := 'Firstname:';
-  end;
-
-  edFName := TfpgEdit.Create(self);
-  with edFName do
-  begin
-    Name := 'edFName';
-    SetPosition(8, 24, 216, 22);
-    TabOrder := 1;
-    Text := '';
-    FontDesc := '#Edit1';
-  end;
-
-  lblName2 := TfpgLabel.Create(self);
-  with lblName2 do
-  begin
-    Name := 'lblName2';
-    SetPosition(8, 52, 80, 16);
-    FontDesc := '#Label1';
-    Hint := '';
-    Text := 'Lastname:';
-  end;
-
-  edLName := TfpgEdit.Create(self);
-  with edLName do
-  begin
-    Name := 'edLName';
-    SetPosition(8, 68, 216, 22);
-    TabOrder := 3;
-    Text := '';
-    FontDesc := '#Edit1';
-  end;
-
-  lblName3 := TfpgLabel.Create(self);
-  with lblName3 do
-  begin
-    Name := 'lblName3';
-    SetPosition(8, 96, 80, 16);
-    FontDesc := '#Label1';
-    Hint := '';
-    Text := 'EMail:';
-  end;
-
-  edEmail := TfpgEdit.Create(self);
-  with edEmail do
-  begin
-    Name := 'edEmail';
-    SetPosition(8, 112, 216, 22);
-    TabOrder := 5;
-    Text := '';
-    FontDesc := '#Edit1';
-  end;
-
-  lblName4 := TfpgLabel.Create(self);
-  with lblName4 do
-  begin
-    Name := 'lblName4';
-    SetPosition(8, 140, 80, 16);
-    FontDesc := '#Label1';
-    Hint := '';
-    Text := 'Mobile:';
-  end;
-
-  edMobile := TfpgEdit.Create(self);
-  with edMobile do
-  begin
-    Name := 'edMobile';
-    SetPosition(8, 156, 216, 22);
-    TabOrder := 7;
-    Text := '';
-    FontDesc := '#Edit1';
-  end;
-
-  lblName5 := TfpgLabel.Create(self);
-  with lblName5 do
-  begin
-    Name := 'lblName5';
-    SetPosition(8, 184, 80, 16);
-    FontDesc := '#Label1';
-    Hint := '';
-    Text := 'Comments:';
-  end;
-
-  meComments := TfpgMemo.Create(self);
-  with meComments do
-  begin
-    Name := 'meComments';
-    SetPosition(8, 200, 216, 80);
-    FontDesc := '#Edit1';
-    TabOrder := 9;
-    Lines.text := 'Hello';
-  end;
-
-  lblName6 := TfpgLabel.Create(self);
-  with lblName6 do
-  begin
-    Name := 'lblName6';
-    SetPosition(264, 8, 80, 16);
-    FontDesc := '#Label1';
-    Hint := '';
-    Text := 'Addresses:';
-  end;
-
-  lvAddresses := TfpgListView.Create(self);
-  with lvAddresses do
-  begin
-    Name := 'lvAddresses';
-    SetPosition(264, 24, 260, 124);
-    ShowHeaders := True;
-    TabOrder := 11;
-  end;
-
-  btnSave := TfpgButton.Create(self);
-  with btnSave do
-  begin
-    Name := 'btnSave';
-    SetPosition(364, 300, 80, 24);
-    Text := 'Save';
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 12;
-    ModalResult := mrOK;
-  end;
-
-  btnCancel := TfpgButton.Create(self);
-  with btnCancel do
-  begin
-    Name := 'btnCancel';
-    SetPosition(448, 300, 80, 24);
-    Text := 'Cancel';
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 13;
-    ModalResult := mrCancel;
-  end;
-
-  btnAdd := TfpgButton.Create(self);
-  with btnAdd do
-  begin
-    Name := 'btnAdd';
-    SetPosition(264, 152, 52, 24);
-    Text := 'Add';
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 14;
-    Enabled := False;
-  end;
-
-  btnEdit := TfpgButton.Create(self);
-  with btnEdit do
-  begin
-    Name := 'btnEdit';
-    SetPosition(320, 152, 52, 24);
-    Text := 'Edit';
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 15;
-    OnClick := @btnEditClicked;
-  end;
-
-  btnDelete := TfpgButton.Create(self);
-  with btnDelete do
-  begin
-    Name := 'btnDelete';
-    SetPosition(376, 152, 52, 24);
-    Text := 'Delete';
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 16;
-    Enabled := False;
-  end;
-
-  btnDebug := TfpgButton.Create(self);
-  with btnDebug do
-  begin
-    Name := 'btnDebug';
-    SetPosition(8, 300, 100, 24);
-    Text := 'Debug (Show)';
-    FontDesc := '#Label1';
-    Hint := '';
-    ImageName := '';
-    TabOrder := 17;
-    OnClick := @btnDebugClicked;
-  end;
-
-  {@VFD_BODY_END: ContactEditForm}
-end;
-
-
-end.