Drawtext and array?

[BackupUser]

Restored from previous forum. Originally posted by cor.

DrawText command and array as parameter not working!!!

Dim sname.s(5)
sname(1)="Text"

This is not working

Code: Select all

 
StartDrawing(ImageOutput())
  Locate (10,10)
  Drawtext (sname(1))    ;Gives error: incorrect numbers of parameters
StopDrawing()

This is working

Code: Select all

StartDrawing(ImageOutput())
  Locate (10,10)
  tmp.s= sname(1)
  Drawtext (tmp)    
StopDrawing()

Using Windows 98 SE
Registered PB version : 3.1 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by PB.

> Drawtext (sname(1)) ;Gives error: incorrect numbers of parameters

Works for me when I used WindowOutput for a test, so I don't know if it's a bug
with ImageOutput() or something else. But DrawText(sname(1)) definitely didn't
cause an error for me about incorrect number of parameters...


PB - Registered PureBasic Coder

[BackupUser]

Restored from previous forum. Originally posted by Branston.

Cor, I tried the code below and it works fine here with no errors.
I see a black square with the letter Text in the top left hand corner.

But I am using PB version 3.2
Could that be it?





;-----------------------------------------------
Dim sname.s(5)
sname(1)="Text"


CreateImage(0,200,200)

StartDrawing(ImageOutput())
Locate (10,10)
DrawText (sname(1)) ;Gives error: incorrect numbers of parameters
StopDrawing()

StartDrawing(WindowOutput())

DrawImage(ImageID(), 200, 200)

StopDrawing()

[BackupUser]

Restored from previous forum. Originally posted by cor.

This is some code which is used.

If you copy: sname(k,dotnamepos(k) into
DrawText(sname(k,dotnamepos(k)) it gives that error

I'am using 3.2 with the latest updates

Code: Select all

 
Procedure UpdateDots()
DrawingFont(UseFont(0))
Protected k
For k = 1 To #nrstrings
  Select stringpos(k)
    Case 0
      Locate(#xdiagram-2+(#stringwidth*k-1),#yfretpos-20)
      DrawText("o")
      Locate(#xdiagram-2+(#stringwidth*k-1),#ydiagram+(#stringheight*16+8))
      tmp.s=sname(k,dotnamepos(k))
      DrawText(tmp)
    Case -1
      Locate(#xdiagram-2+(#stringwidth*k-1),#yfretpos-20)
      DrawText("x")
     Default
      Circle (#xfretpos+(#stringwidth*(k-1)),stringpos(k),6,RGB(0,0,0))  
      Locate(#xdiagram-2+(#stringwidth*k-1),#ydiagram+(#stringheight*16+8))
      tmp.s=sname(k,dotnamepos(k))
      DrawText(tmp)
      
EndSelect
Next k
EndProcedure

Using Windows 98 SE
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

Edited by - cor on 23 June 2002 23:00:31

[BackupUser]

Restored from previous forum. Originally posted by PB.

> tmp.s=sname(k,dotnamepos(k))

Is the sname array one or two-dimensional? You only have it as one in your
first example, but as two here, which may explain the parameters error...


PB - Registered PureBasic Coder

[BackupUser]

Restored from previous forum. Originally posted by Branston.

This is some code which is used.

If you copy: sname(k,dotnamepos(k) into
DrawText(sname(k,dotnamepos(k)) it gives that error

I'am using 3.2 with the latest updates

Are you missing a ")" in that line?

[BackupUser]

Restored from previous forum. Originally posted by cor.

Are you missing a ")" in that line?

Thanks Branston,

I must have gotten very small eyes, I just didn't noticed that it was missing the last ")".

It's working now

Using Windows 98 SE
Registered PB version : 3.2 (Windows)
--------------------------
C. de Visser
Author of Super Guitar Chord Finder
http://www.ready4music.com

[BackupUser]

Restored from previous forum. Originally posted by Branston.