luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[SCRIPTER]

Browse source 
* BUG: Correct an array overflow in ReportContainer


git-svn-id: svn://localhost/gambas/trunk@3205 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2010-09-11 08:57:36 +00:00
parent f513199932
commit acd4e3093b
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
comp/src/gb.report/.project
View file

@ -1,7 +1,7 @@
# Gambas Project File 3.0 # Gambas Project File 3.0
# Compiled with Gambas # Compiled with Gambas 2.99.0
Title=gb.report Title=gb.report
Startup=Report1 Startup=Report2
Icon=printer1.png Icon=printer1.png
Version=2.99.0 Version=2.99.0
VersionProgram=gbx3 -V VersionProgram=gbx3 -V
@ -12,7 +12,6 @@ Component=gb.db
Component=gb.report Component=gb.report
Description="Report engine for gambas" Description="Report engine for gambas"
Authors="Fabien Bodard" Authors="Fabien Bodard"
Environment="GB_GUI="
TabSize=2 TabSize=2
MakeComponent=1 MakeComponent=1
State=2 State=2

4
comp/src/gb.report/.src/ReportContainer.class
View file

@ -226,11 +226,11 @@ Public Sub _GenerateClones()
Dim bRaiseRet As Boolean Dim bRaiseRet As Boolean
Dim aCopy As TControl[] Dim aCopy As TControl[]
aCopy = $aChild.Copy()
If $aChildCopy Then If $aChildCopy Then
$aChild = $aChildCopy.Copy() $aChild = $aChildCopy.Copy()
Endif Endif
aCopy = $aChild.Copy()
For Each hTc In aCopy For Each hTc In aCopy
If hTc.Ctrl Is ReportContainer Then If hTc.Ctrl Is ReportContainer Then