From acd4e3093bf21b1c1d8ade645e37e086295c32e8 Mon Sep 17 00:00:00 2001 From: Fabien Bodard <gambas.fr@gmail.com> Date: Sat, 11 Sep 2010 08:57:36 +0000 Subject: [PATCH] [SCRIPTER] * BUG: Correct an array overflow in ReportContainer git-svn-id: svn://localhost/gambas/trunk@3205 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- comp/src/gb.report/.project | 5 ++--- comp/src/gb.report/.src/ReportContainer.class | 4 ++-- 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/comp/src/gb.report/.project b/comp/src/gb.report/.project index 3daa163d7..539d3b1a8 100644 --- a/comp/src/gb.report/.project +++ b/comp/src/gb.report/.project @@ -1,7 +1,7 @@ # Gambas Project File 3.0 -# Compiled with Gambas +# Compiled with Gambas 2.99.0 Title=gb.report -Startup=Report1 +Startup=Report2 Icon=printer1.png Version=2.99.0 VersionProgram=gbx3 -V @@ -12,7 +12,6 @@ Component=gb.db Component=gb.report Description="Report engine for gambas" Authors="Fabien Bodard" -Environment="GB_GUI=" TabSize=2 MakeComponent=1 State=2 diff --git a/comp/src/gb.report/.src/ReportContainer.class b/comp/src/gb.report/.src/ReportContainer.class index f12627ccb..8d2dcf0dd 100644 --- a/comp/src/gb.report/.src/ReportContainer.class +++ b/comp/src/gb.report/.src/ReportContainer.class @@ -226,11 +226,11 @@ Public Sub _GenerateClones() Dim bRaiseRet As Boolean Dim aCopy As TControl[] - aCopy = $aChild.Copy() + If $aChildCopy Then $aChild = $aChildCopy.Copy() Endif - + aCopy = $aChild.Copy() For Each hTc In aCopy If hTc.Ctrl Is ReportContainer Then