[Gambas-user] Please help me!

[M. Cs.]

O.K. The printing started now, but it prints the texts one over
another regardless to the coordinates given by CFloat(xcor[i]) and
CFloat(ycor[i]). Why?

2011/6/30, Fabien Bodard <gambas.fr at ...626...>:
> Le 30 juin 2011 14:00, Benoît Minisini <gambas at ...1...> a
> écrit :
>>> Yes, Benoit,
>>> still even if change the synthax to:
>>>
>>> Public Sub PrintID()
>>> Dim i As Integer
>>> Dim tagok As String[]
>>> samsung = New Printer As "samsung"
>>> If samsung.Configure() Then Return
>>> samsung.Count = 1
>>> samsung.Print
>>>
>>> End
>>>
>>> Public Sub samsung_Begin()
>>>
>>> End
>>>
>>> Public Sub samsung_Draw()
>>> Dim i As Integer
>>> Dim tagok As String[]
>>> tagok = Split(datae[curr], ";")
>>> For i = 0 To tagok.Count - 1
>>> Paint.Font = Font["Lucida Sans"]
>>> Paint.Font.Size = lett[i]
>>> Paint.DrawText(tagok[i], CFloat(xcor[i]), CFloat(ycor[i]))
>
> 'hey tou forgot that !!
>
> Paint.fill
>
>
>
>
>>> Next
>>> End
>>>
>>> It prints blank pages only, while the Printer example works O.K.
>>> I don't understand this at all. I'm wrestling with this since 3 days.
>>>
>>
>> If you send me a project, I will be able to look deeper in your problem!
>>
>> --
>> Benoît Minisini
>>
>> ------------------------------------------------------------------------------
>> All of the data generated in your IT infrastructure is seriously valuable.
>> Why? It contains a definitive record of application performance, security
>> threats, fraudulent activity, and more. Splunk takes this data and makes
>> sense of it. IT sense. And common sense.
>> http://p.sf.net/sfu/splunk-d2d-c2
>> _______________________________________________
>> Gambas-user mailing list
>> Gambas-user at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>
>
>
> when you are using paint it have 2 time :
>
> creating the path
>
> filling or trace it
>
>
> To fill it : Paint.fill
>
> To trace the border : Paint.Stroke
>
> You can do the both :
>
> Paint.Fill(true)
> Paint.Stroke
>
>
> If you want to have a letter With a border Red and the middle yellow
> Paint.Font.Size = 16
> Paint.Text("a",1,1)
> Paint.Brush = Paint.Color(color.yellow)
> Paint.Fill(true)
> Paint.Brush = paint.Color(Color.red)
> Paint.Fill
>
>
>
> So now your code will be
>
>
>
> --
> Fabien Bodard
>
> Public Sub samsung_Draw()
>   Dim i As Integer
>   Dim tagok As String[]
>   tagok = Split(datae[curr], ";")
>   For i = 0 To tagok.Count - 1
>     Paint.Font = Font["Lucida Sans"]
>     Paint.Font.Size = lett[i]
>     Paint.DrawText(tagok[i], CFloat(xcor[i]), CFloat(ycor[i]))
>     Paint.Fill
>   next
> end
>
> If you forgot the fill statement ... the printer draw nothing
>
> Paint class work like cairo, and is really different of the draw class.
>
> Take a look at the painting example.
>
> --
> Fabien Bodard
>
> ------------------------------------------------------------------------------
> All of the data generated in your IT infrastructure is seriously valuable.
> Why? It contains a definitive record of application performance, security
> threats, fraudulent activity, and more. Splunk takes this data and makes
> sense of it. IT sense. And common sense.
> http://p.sf.net/sfu/splunk-d2d-c2
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>