[Gambas-user] One report for each query?

[Fabien Bodard]

  Dim s, sHistory As String
  Dim ss As String[]
  Dim hRel As ReportTextLabel
  Dim hTitle As ReportLabel
  Dim iWidth, H, i As Integer
  Dim hResult As Result

  'Report.Debug = True
  hResult = FMain.hResult
  hResult.MoveFirst
  For i = 0 To hResult.Count - 1
    sHistory &= hResult!hinum & " " & Format(hResult!hidat, gb.ShortDate) &
"\n"
    sHistory &= hResult!hilon & "\n\n"
    hResult.MoveNext
  Next
  Report1.Font = Font["Serif,12"]
  iWidth = ReturnWidth()
  H = Report1.Font.H
  '--- Title
  hTitle = New ReportLabel(ReportVBox1)
  hTitle.Font = Font["Serif, bold, 16"]
  hTitle.Brush = ReportBrush.Color(Color.Red) '' I don't understand how do
this sigh!
  hTitle.Alignment = Align.Center
  hTitle.Text = "History of Meismann test on " & Format(Now, gb.ShortDate)
  '---space
  hRel = New ReportTextLabel(ReportVBox1)
  hRel.Height = "10mm"
  ss = Split(sHistory, "\n", Null, False, True)
  For Each s In ss
    hRel = New ReportTextLabel(ReportVBox1)
    hRel.Font = Font["Serif,12"]
    hRel.Alignment = Align.Justify
    hRel.Text = s
    hRel.Height = CStr(Rows(s, iWidth) * H) & "px"
  Next


The problem come fro the fact that you use a reportTextLabel... the color
for this kind of object must be set by the richtext elements.
In your case it is better to use a textLabel for the title that use the
brush property :-).

The other way for richtextLabel is :

"<font color=#00FF00>" & MyText & "</font>"

ex :
  hRel = New ReportTextLabel(ReportVBox1)
  hRel.Font = Font["Serif, bold, 16"]
  hRel.Brush = ReportBrush.Color(Color.DarkBlue) '' I don't understand how
do this sigh!
  hRel.Alignment = Align.Center
  hRel.Text = "<font color=#0000FF>History of Meismann test on " &
Format(Now, gb.ShortDate) & "</font>"

Le sam. 2 nov. 2019 à 14:35, Gianluigi <bagonergi at gmail.com> a écrit :

> Hi Fabien,
>
> thank you very much for the answers, you are great 👍
> Regarding "hReport = New Report1", I would have had to figure it out on my
> own, the senile stupidity is a bad thing :-(
>
> Unfortunately I still don't understand how to color the strings :-((
>
> See attachment with suggested changes
>
> Regards
> Gianluigi
>
> Il giorno sab 2 nov 2019 alle ore 12:54 Fabien Bodard <gambas.fr at gmail.com>
> ha scritto:
>
>> 'hRel.Brush.Color = ReportBrush.Color(Color.DarkBlue) I don't understand
>> how do this sigh!
>>
>> no ! :
>> hRel.Brush = ReportBrush.Color(Color.DarkBlue) I don't understand how do
>> this sigh!
>>
>> hRel.Brush receive a brush generated by ReportBrush... it work like
>> Paint.Brush with (paint.Color/Paint.gradient/...)
>>
>> Le sam. 2 nov. 2019 à 12:50, Fabien Bodard <gambas.fr at gmail.com> a
>> écrit :
>>
>>> well because you use only the auto generated instance .
>>>
>>> When you call Report1.Preview
>>>
>>> in background it do a thing like
>>>
>>> Report1 = New Report1
>>>
>>> So the object Report1 theoretically is not callable directly. In the
>>> past ... in the beginning of gambas ... (well 20 years) You cannot do
>>> Form1.Show
>>>
>>> You'll have to do a :
>>> Dim hForm as new Form1 as "Form"
>>> hForm.Show
>>>
>>> All of that to say .... in your case do :
>>>
>>> Public Sub Button1_Click()
>>>   hreport = new Report1
>>>   $hResult = MBase.ReturnDataNumber()
>>>   If Not $hResult Then
>>>     Message.Error(("Query result not available\n\nSorry but it is
>>> impossible to continue."))
>>>     Me.Close
>>>     Return
>>>   Endif
>>> hReport.Preview
>>>
>>> End
>>>
>>> Public Sub Button2_Click()
>>>   hReport = new Report1
>>>   $hResult = MBase.ReturnDataDate()
>>>   If Not $hResult Then
>>>     Message.Error(("Query result not available\n\nSorry but it is
>>> impossible to continue."))
>>>     Me.Close
>>>     Return
>>>   Endif
>>>   hReport.Preview
>>>
>>> End
>>>
>>>
>>>
>>> Le ven. 1 nov. 2019 à 18:24, Gianluigi <bagonergi at gmail.com> a écrit :
>>>
>>>> Hi Fabien,
>>>>
>>>> inspired by a discussion on the German forum I wanted to see if I could
>>>> make a report in that way.
>>>> I was unable to use the same report for two slightly different queries.
>>>> Should I use a different report for each query?
>>>> I can't change the color of the writing with the code.
>>>>
>>>> Any suggestions?
>>>>
>>>> Regards
>>>> Gianluigi
>>>>
>>>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net
>>>> ]----
>>>>
>>>
>>>
>>> --
>>> Fabien Bodard
>>>
>>
>>
>> --
>> Fabien Bodard
>>
>> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net ]----
>>
>
> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net ]----
>


-- 
Fabien Bodard
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20191102/631cba89/attachment.html>