pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

iphonelazext: fix mem leak + improper grid cell setting

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1216 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-05-05 12:23:57 +00:00
parent 0d17bef28e
commit 2a4fa4eb80
2 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/iphonelazext/newxibdialog.lfm
View File

@ -62,7 +62,7 @@ object newXibForm: TnewXibForm
Left = 248
Height = 20
Top = 400
Width = 71
Width = 75
AutoSize = True
Caption = 'Choose'
ModalResult = 1

7
components/iphonelazext/newxibdialog.pas
View File

@ -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