[SCRIPTER]
* 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:
parent
f513199932
commit
acd4e3093b
2 changed files with 4 additions and 5 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue