Hello
dim o as new canvas
o.left=x
o.top=y
o.width=80
o.height=22
objeto.append(o)
o.graphics.textfont="system"
o.graphics.textsize=14
o.Graphics.ForeColor= RGB(255,255,255) // White?
o.Graphics.DrawString "Nuevo texto",3,3
HTH
Juan Salvatierra
El 20/05/2006, a las 0:20, Rafael Vallejo escribió:
Hello list
I´m writing an aplication that allow me to design forms to be printed
later by my main aplication, to do that I need to create new objects
to draw them on my design window, I'm using canvas for that purpoes
and those canvas are gona draw the content for the field or graphic I
want to print on my form.
objecto is a property declared as an array of type canvas
Redim objeto(UBound(objeto)+1)
objeto(UBound(objeto))=new canvas
objeto(UBound(objeto)).Left=X
objeto(UBound(objeto)).Top=Y
objeto(UBound(objeto)).Width=80
objeto(UBound(objeto)).Height=22
In the next line I want to draw a text on an object I´ve just added to
my canvas array, and I got a NilObjectException
*objeto(UBound(objeto)).Graphics.TextFont="System"*
objeto(UBound(objeto)).Graphics.TextSize=14
objeto(UBound(objeto)).Graphics.ForeColor= RGB(255,255,255)
objeto(UBound(objeto)).Graphics.DrawString "Nuevo texto",3,3
Ideas? I'm open to other ways to do that
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
