[Instantobjects-cvscommit] Demos/PrimerCross Main.dfm,1.2,1.3 Main.pas,1.6,1.7

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10783/Demos/PrimerCross

Modified Files:
	Main.dfm Main.pas 
Log Message:
Added Model export menuitem

Index: Main.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Main.pas	7 Dec 2004 08:45:33 -0000	1.6
--- Main.pas	10 Feb 2005 12:55:08 -0000	1.7
***************
*** 52,55 ****
--- 52,57 ----
      ExportItem: TMenuItem;
      ImportItem: TMenuItem;
+     N3: TMenuItem;
+     ExportModelItem: TMenuItem;
      procedure ActionListUpdate(Action: TBasicAction; var Handled: Boolean);
      procedure FormCreate(Sender: TObject);
***************
*** 73,76 ****
--- 75,79 ----
      procedure ExportItemClick(Sender: TObject);
      procedure ImportItemClick(Sender: TObject);
+     procedure ExportModelItemClick(Sender: TObject);
    private
      FActiveSubView: TBasicViewForm;
***************
*** 479,482 ****
--- 482,486 ----
      Filter := XMLFilter;
      DefaultExt := XMLExt;
+     InitialDir := ExtractFilePath(Application.ExeName);
      if Execute then
        ExportObjects(TContact, FileName);
***************
*** 661,665 ****
          Height := Parent.ClientHeight;
          Width := Parent.ClientWidth;
!         Show;
        end;
      end;
--- 665,669 ----
          Height := Parent.ClientHeight;
          Width := Parent.ClientWidth;
!         FormShow(FActiveSubView);
        end;
      end;
***************
*** 786,789 ****
--- 790,807 ----
  end;
  
+ procedure TMainForm.ExportModelItemClick(Sender: TObject);
+ begin
+   with TSaveDialog.Create(nil) do
+   try
+     Filter := XMLFilter;
+     DefaultExt := XMLExt;
+     InitialDir := ExtractFilePath(Application.ExeName);
+     if Execute then
+       InstantModel.SaveToFile(FileName);
+   finally
+     Free;
+   end;
+ end;
+ 
  initialization
  {$IFDEF MSWINDOWS}

Index: Main.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.dfm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Main.dfm	17 Nov 2004 20:59:47 -0000	1.2
--- Main.dfm	10 Feb 2005 12:54:52 -0000	1.3
***************
*** 170,180 ****
        end
        object ExportItem: TMenuItem
!         Caption = '&Export...'
          OnClick = ExportItemClick
        end
        object ImportItem: TMenuItem
!         Caption = '&Import...'
          OnClick = ImportItemClick
        end
        object N1: TMenuItem
          Caption = '-'
--- 170,187 ----
        end
        object ExportItem: TMenuItem
!         Caption = '&Export all Contacts...'
          OnClick = ExportItemClick
        end
        object ImportItem: TMenuItem
!         Caption = '&Import Contacts from file...'
          OnClick = ImportItemClick
        end
+       object N3: TMenuItem
+         Caption = '-'
+       end
+       object ExportModelItem: TMenuItem
+         Caption = 'Export model...'
+         OnClick = ExportModelItemClick
+       end
        object N1: TMenuItem
          Caption = '-'