TReport

[Ingo]

Hello,
I have 4 little questions to TReport
1. What the importance of oRpt:nSeparator ?
2. How to do that the right vertical line of the report hold a distance from
the data of the last column if which holds rightaligned numeric values as
shown in the encluded picture "report1.bmp"?
3. How to make it with the left vertical line?
4. How to eliminate the breaks in the horizontal lines? See picture
"report2.bmp".
Thanks in advance
Ingo


Attached files pictures.zip (8.6 KB)Â

[ignacio]

ingo,
> 1. What the importance of oRpt:nSeparator ?
That is just the the distance in pixels to separate columns for example. Its
measure is exactly the width of the "B" letter in conjuntion with the first
defined font.
> 2. How to do that the right vertical line of the report hold a distance
> from the data of the last column if which holds rightaligned numeric
> values as shown in the encluded picture "report1.bmp"?
Problem fixed. Thanks
> 3. How to make it with the left vertical line?
Problem fixed. Thanks
> 4. How to eliminate the breaks in the horizontal lines? See picture
> "report2.bmp".
Take off the group. Sorry, maybe I'm missing something. Please explain.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje
news:[email=43a7defd@ozsrvnegro.ozlan.local...]43a7defd@ozsrvnegro.ozlan.local...[/email]
> Hello,
>
> I have 4 little questions to TReport
>
> 1. What the importance of oRpt:nSeparator ?
>
> 2. How to do that the right vertical line of the report hold a distance
> from the data of the last column if which holds rightaligned numeric
> values as shown in the encluded picture "report1.bmp"?
>
> 3. How to make it with the left vertical line?
>
> 4. How to eliminate the breaks in the horizontal lines? See picture
> "report2.bmp".
>
> Thanks in advance
>
> Ingo
>
>

[Ingo]

Ignacio
>> 1. What the importance of oRpt:nSeparator ?
>
> That is just the the distance in pixels to separate columns for example.
> Its measure is exactly the width of the "B" letter in conjuntion with the
> first defined font.
The same I thought too, but when I assigned it with different values nothing
happens. The report looks always like before.
>> 4. How to eliminate the breaks in the horizontal lines? See picture
>> "report2.bmp".
>
> Take off the group. Sorry, maybe I'm missing something. Please explain.
The horizontal lines above and under the headers and the totalline have gaps
between the columns like that:
____________ _____________ ____________
How to do make them like that:
_______________________________________________
Regards
Ingo

[ignacio]

Ingo,
> The same I thought too, but when I assigned it with different values
> nothing
> happens. The report looks always like before.
You should change the value of that data on the OnInit event since is
recalculated every time the report is runned. BTW that property should not
be public or at least read only and it maybe out of scope on future releases
of Xailer.
> The horizontal lines above and under the headers and the totalline have
> gaps
> between the columns like that:
> ____________ _____________ ____________
>
> How to do make them like that:
>
> _______________________________________________
oReport:nGroupLine := rlNONE
oReport:OnEndGroup := {|oRep, oGrp| PrintLine( oRep, oGrp ) }
static function PrintLine( oRep, oGrp )
local oColBeg, oColEnd
oColBeg := oRep:aColumns[ 1 ]
oColEnd := oRep:aColumns[ -1 ]
With object oRep:oDevice:oCanvas
:MoveTo( oColBeg:nCol, oRep:nRow )
:LineTo( oColEnd:nCol + oColEnd:nWidth, oRep:nRow )
End With
return nil
Right now oReport:nRow is protected, I have just changed in the class to
public. You can do the same just including this code:
CLASS TReport FROM XReport
PUBLIC:
DATA nRow
ENDCLASS
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje
news:43a81b84$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio
>
>>> 1. What the importance of oRpt:nSeparator ?
>>
>> That is just the the distance in pixels to separate columns for example.
>> Its measure is exactly the width of the "B" letter in conjuntion with the
>> first defined font.
>
> The same I thought too, but when I assigned it with different values
> nothing
> happens. The report looks always like before.
>
>>> 4. How to eliminate the breaks in the horizontal lines? See picture
>>> "report2.bmp".
>>
>> Take off the group. Sorry, maybe I'm missing something. Please explain.
>
> The horizontal lines above and under the headers and the totalline have
> gaps
> between the columns like that:
> ____________ _____________ ____________
>
> How to do make them like that:
>
> _______________________________________________
>
> Regards
>
> Ingo
>
>

[Ingo]

Ignacio,
thanks for the answer. But the sample relates only to a groupline.
What I mean is when using TReport without grid (:nGridStyle := rgNONE) or
only with vertical lines then all the horizontal lines like TitleUpLines,
TitleDnLines or TotalLines are not continuous from the left to the right
column.
How to paint continuous lines without spaces between the columns?
Regards
>
>> The horizontal lines above and under the headers and the totalline have
>> gaps
>> between the columns like that:
>> ____________ _____________ ____________
>>
>> How to do make them like that:
>>
>> _______________________________________________
>
> oReport:nGroupLine := rlNONE
> oReport:OnEndGroup := {|oRep, oGrp| PrintLine( oRep, oGrp ) }
>
> static function PrintLine( oRep, oGrp )
>
> local oColBeg, oColEnd
>
> oColBeg := oRep:aColumns[ 1 ]
> oColEnd := oRep:aColumns[ -1 ]
>
> With object oRep:oDevice:oCanvas
> :MoveTo( oColBeg:nCol, oRep:nRow )
> :LineTo( oColEnd:nCol + oColEnd:nWidth, oRep:nRow )
> End With
>
> return nil
>
> Right now oReport:nRow is protected, I have just changed in the class to
> public. You can do the same just including this code:
>
> CLASS TReport FROM XReport
>
> PUBLIC:
> DATA nRow
>
> ENDCLASS
>
> Regards,
>

[ignacio]

Ingo,
That feature is not implemented. You should do the same work I post on my
previous message.
Regards,
"Ingo" <ingo.jh@web.de> escribió en el mensaje
news:43aaada6$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio,
>
> thanks for the answer. But the sample relates only to a groupline.
>
> What I mean is when using TReport without grid (:nGridStyle := rgNONE) or
> only with vertical lines then all the horizontal lines like TitleUpLines,
> TitleDnLines or TotalLines are not continuous from the left to the right
> column.
> How to paint continuous lines without spaces between the columns?
>
> Regards
>
>>
>>> The horizontal lines above and under the headers and the totalline have
>>> gaps
>>> between the columns like that:
>>> ____________ _____________ ____________
>>>
>>> How to do make them like that:
>>>
>>> _______________________________________________
>>
>> oReport:nGroupLine := rlNONE
>> oReport:OnEndGroup := {|oRep, oGrp| PrintLine( oRep, oGrp ) }
>>
>> static function PrintLine( oRep, oGrp )
>>
>> local oColBeg, oColEnd
>>
>> oColBeg := oRep:aColumns[ 1 ]
>> oColEnd := oRep:aColumns[ -1 ]
>>
>> With object oRep:oDevice:oCanvas
>> :MoveTo( oColBeg:nCol, oRep:nRow )
>> :LineTo( oColEnd:nCol + oColEnd:nWidth, oRep:nRow )
>> End With
>>
>> return nil
>>
>> Right now oReport:nRow is protected, I have just changed in the class to
>> public. You can do the same just including this code:
>>
>> CLASS TReport FROM XReport
>>
>> PUBLIC:
>> DATA nRow
>>
>> ENDCLASS
>>
>> Regards,
>>
>
>