[hobo]

Add_BlockLines(...) , It is Overflow.


when the sText = "12345678901234567" then the upper bound of the arrays (x1, x2, y1, y2, z1 and z2) is 1123.

when the sText = "123456789012345678" then the upper bound of the arrays (x1, x2, y1, y2, z1 and z2) is 1236.

when the sText = "12345678901234567890" then the upper bound of the arrays (x1, x2, y1, y2, z1 and z2) is 1422.





if upper bound of the arrays (x1, x2, y1, y2, z1 and z2) is 1422 then Add_BlockLines(...) is Overflow.

if upper bound of the arrays (x1, x2, y1, y2, z1 and z2) is 1236 then Add_BlockLines(...) is return zero.

if upper bound of the arrays (x1, x2, y1, y2, z1 and z2) is 1123 then Add_BlockLines(...) is ok.
-------------------------------------------

....
....
....
Dim sText As String
Dim sFontName As String
Dim TextScale As Single
Dim fBold As Boolean
Dim fItalic As Boolean
Dim x1() As Single
Dim y1() As Single
Dim z1() As Single
Dim x2() As Single
Dim y2() As Single
Dim z2() As Single
Dim Answer As Integer

sText = "12345678901234567"
sFontName = "Verdana"
TextScale = 100
fBold = False
fItalic = False
Answer = canvas.GetTextVectors(sText, sFontName, TextScale, fBold, fItalic, x1, y1, x2, y2)
Answer = canvas.Add_BlockLines(x1, y1, z1, x2, y2, z2, vItemProperties, iClr, iWidth, iStyle, iLayer)

....
....
....

[Athanasios Gardos]

We will correct it soon.

[elias]

We have corrected the problem. Please download again the setup file.