[JVCL-Checkins] CVS: dev/JVCL3/devtools/PackagesGenerator MainForm.pas,1.22,1.23 - Now reloads the xml file when a model has changed

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator
In directory sc8-pr-cvs1:/tmp/cvs-serv21818/dev/JVCL3/devtools/PackagesGenerator

Modified Files:
	MainForm.pas 
Log Message:
Now reloads the xml file when a model has changed

Index: MainForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/devtools/PackagesGenerator/MainForm.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** MainForm.pas	29 Dec 2003 21:29:40 -0000	1.22
--- MainForm.pas	30 Dec 2003 08:34:58 -0000	1.23
***************
*** 150,154 ****
      procedure actOptionsExecute(Sender: TObject);
      procedure actOptionsUpdate(Sender: TObject);
-     procedure Button1Click(Sender: TObject);
      procedure btnEditModelClick(Sender: TObject);
      procedure cmbModelClick(Sender: TObject);
--- 150,153 ----
***************
*** 885,899 ****
  end;
  
- procedure TfrmMain.Button1Click(Sender: TObject);
- begin
-   frmModels.ShowModal;
-   jaxStore.Reload;
- end;
- 
  procedure TfrmMain.btnEditModelClick(Sender: TObject);
  begin
    frmModels.EditIndex := cmbModel.ItemIndex;
    if frmModels.ShowModal = mrOk then
      cmbModel.ItemIndex := frmModels.cmbModels.ItemIndex;
  end;
  
--- 884,895 ----
  end;
  
  procedure TfrmMain.btnEditModelClick(Sender: TObject);
  begin
    frmModels.EditIndex := cmbModel.ItemIndex;
    if frmModels.ShowModal = mrOk then
+   begin
      cmbModel.ItemIndex := frmModels.cmbModels.ItemIndex;
+     jaxStore.Reload;
+   end;
  end;