Strange behaviour if presented by Webtier
This is a sample code on how i make a Gaugebar on my report.
In the preview this works fine, by a normal rsclientreport also, but when
presented to the webtier over html this code results in something strange,
the calculated value is correct but he doesn't change the with of the
capacity_gauge object (tppshape).
But when we print the report over the web (generated to pdf, it works again
!!!)
procedure ...Oncalc(var Value : Variant)
var
lSeatOcc : Double;
lWidth : Integer;
begin
lSeatOcc := 100 /Features['HALL_CAPACITY'] * Features['DSH_TICKETS'];
lWidth := Int(0.8 * lSeatOcc);
Value := lSeatOcc;
Capacity_Gauge.Width := lWidth;
Oeps := lWidth;
In the preview this works fine, by a normal rsclientreport also, but when
presented to the webtier over html this code results in something strange,
the calculated value is correct but he doesn't change the with of the
capacity_gauge object (tppshape).
But when we print the report over the web (generated to pdf, it works again
!!!)
procedure ...Oncalc(var Value : Variant)
var
lSeatOcc : Double;
lWidth : Integer;
begin
lSeatOcc := 100 /Features['HALL_CAPACITY'] * Features['DSH_TICKETS'];
lWidth := Int(0.8 * lSeatOcc);
Value := lSeatOcc;
Capacity_Gauge.Width := lWidth;
Oeps := lWidth;
This discussion has been closed.
Comments
What is the class type of Capacity_Gauge, is it a custom descendant of
TppImage?
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
Im placing a rectable with a width of 100 as border clwhite brush, and on
top a filled rectangle with same same brush color as the border of the
rectangle.
The widt of the filling object is calculated.
Can you create a simple example and email to support@digital-metaphors.com
in zip format. We can check it out in the debugger.
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
The DBDemos data that is included with Delphi.Or a small MS Access database
if you prefer.
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com