From 2a4fa4eb8066c77058819cc3e758600c49b41f7a Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 5 May 2010 12:23:57 +0000
Subject: [PATCH] iphonelazext: fix mem leak + improper grid cell setting

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1216 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/iphonelazext/newxibdialog.lfm | 2 +-
 components/iphonelazext/newxibdialog.pas | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/components/iphonelazext/newxibdialog.lfm b/components/iphonelazext/newxibdialog.lfm
index 28dc2e79f..2dbf8446e 100644
--- a/components/iphonelazext/newxibdialog.lfm
+++ b/components/iphonelazext/newxibdialog.lfm
@@ -62,7 +62,7 @@ object newXibForm: TnewXibForm
     Left = 248
     Height = 20
     Top = 400
-    Width = 71
+    Width = 75
     AutoSize = True
     Caption = 'Choose'
     ModalResult = 1
diff --git a/components/iphonelazext/newxibdialog.pas b/components/iphonelazext/newxibdialog.pas
index 246f35b7b..ab876e759 100644
--- a/components/iphonelazext/newxibdialog.pas
+++ b/components/iphonelazext/newxibdialog.pas
@@ -197,6 +197,7 @@ var
   i : Integer;
 begin
   for i:=0 to Items.Count-1 do TObject(Items[i]).Free;
+  Items.Free;
 end;
 
 procedure TnewXibForm.AddTemplate(const AName,SourceXibFile,ADescr, IconFile:AnsiString);
@@ -206,7 +207,7 @@ end;
 
 function TnewXibForm.Execute(var FileName,SourceXibFile:AnsiString):Boolean;
 var
-  w   : integer;
+  w,h : integer;
 begin
   if Items.Count=0 then begin
     Result:=False;
@@ -215,7 +216,9 @@ begin
   w:=DrawGrid1.ClientWidth div DrawGrid1.DefaultColWidth;
   if w=0 then w:=1;
   DrawGrid1.ColCount:=w;
-  DrawGrid1.RowCount:=Items.Count div w;
+  h:=Items.Count div w;
+  if h=0 then h:=1;
+  DrawGrid1.RowCount:=h;
   CustomName:=False;
   Result:=ShowModal = mrOK;
   if Result then begin