[JVCL-Checkins] dev/JVCL3/examples/JvParameterList JvParameterListMainForm.pas,1.25,1.26 - Fixed interface cleanup bug

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/examples/JvParameterList
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20566/examples/JvParameterList

Modified Files:
	JvParameterListMainForm.pas 
Log Message:
Fixed interface cleanup bug


Index: JvParameterListMainForm.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/examples/JvParameterList/JvParameterListMainForm.pas,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** JvParameterListMainForm.pas	13 Mar 2005 07:18:53 -0000	1.25
--- JvParameterListMainForm.pas	29 Aug 2005 17:11:23 -0000	1.26
***************
*** 1169,1173 ****
    try
      if UnitVersionForm is TForm then
!       TForm(UnitVersionForm).Position := poDesktopCenter;
      UnitVersionForm.Width := 500;
      UnitVersionForm.Height := 500;
--- 1169,1173 ----
    try
      if UnitVersionForm is TForm then
!       TForm(UnitVersionForm).Position := poScreenCenter;
      UnitVersionForm.Width := 500;
      UnitVersionForm.Height := 500;
***************
*** 1256,1260 ****
      UnitVersionForm.ShowModal;
    finally
!     UnitVersionForm.Free;
    end;
  end;
--- 1256,1260 ----
      UnitVersionForm.ShowModal;
    finally
!     UnitVersionForm.Release; // keep the form created till all used interfaces are cleared
    end;
  end;