sendtoback

rbuser

Hi again,

in my report, I have 2 components: tppLine and tppDBText, both are
transparent.

The DBText is overlaying tppLine and i want to send it back, when i click on
it. To bring it back to front, I also send to tppline to back, when i click
on it.

Here is the script of the tppLine.onDrawCommandClick-Event:


begin
ShowMessage('line');
line1.sendToBack;
end;

and for the tppDBText-component:
begin
ShowMessage('dbText');
DBText1.sendToBack;
end;



It doesn't work.

As I found here, the DrawComand.RedrawPage has to be set outside of RAP. So
I decided like this:

begin
ShowMessage('line');
executeMyFunc (line1, tppDrawCommand(aDrawcommand));
end;


executeMyFunc is declared as (signature)
procedure executeMyFunc (aComponent: tppComponent; aDrawCommand:
tppDrawCommand);

...
var
lComponent: tppComponent;
lDrawCommand: tppDrawCommand;
begin
GetParamValue(0, lComponent);
GetParamValue(1, lDrawCommand);

if not (lComponent = nil) then begin
lComponent.SendToBack;
if not (lDrawCommand = nil) then begin
lDrawCommand.RedrawPage:= true;
SetParamValue(1, lDrawCommand);
end;
end;
end;


It doesn't work.

Any idea ?

(ReportBuilder 10, Delpi 7)

Thanks in advance

Marion

nicocizik

Hi Marion,

Try resetting the TppReport and the TppReport.Engine before setting
RedrawPage to true. Similar to what is done in the following example.

http://www.digital-metaphors.com/rbWiki/Delphi_Code/Formatting/How_To...Refresh_the_Report_After_a_Drawcommand_Click

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Sorry, but no sucess yet.

I modified my Delphi-code as follows:

////////////////////////////////////////////////////////////////////////////////
Class function TmyTestFunction.Category: string;
begin
Result := cCategoryAOFormulare;
end;

Class function TmyTestFunction.GetSignature: string;
begin
Result:= 'procedure ExecuteMyFunc(aComponent: tppComponent; aDrawCommand:
tppDrawCommand);';
end;

procedure TmyTestFunction.ExecuteFunction(aParams: TraParamList);
var
lComponent: tppComponent;
lDrawCommand: tppDrawCommand;
begin
GetParamValue(0, lComponent);
GetParamValue(1, lDrawCommand);
if not (lcomponent = nil) then begin
lComponent.SendToBack;
lComponent.Report.MainReport.Reset;
lComponent.Report.MainReport.Engine.Reset;

if not (lDrawCommand = nil) then begin
lDrawCommand.RedrawPage:= true;
SetParamValue(1, lDrawCommand);
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////


begin
ShowMessage('line');
ExecuteMyFunc(Line1, tppDrawCommand(aDrawCommand));
end;

nicocizik

Hi Marion,

I suggest you get this working in Delphi first then try moving it to RAP.
In my testing with Delphi code, it worked as expected.

My first suggestion for changes to your pass thru function would be to pass
the report object as well so you can call Reset and Engine.Reset directly.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Even with passing the report to the pass thru function, I don't get success.

Simple in Delphi, it seems to work fine.

I've got a form, containing a viewer and a simple button to change the
front-back-order of the 2 Objects.
The script for the button-clickedEvent :
..
begin
if iTest = 0 then begin
lTest:= tppComponent(self.ppViewer1.Report.FindUserObject('line2'));
iTest:= 1;
end else begin
lTest:= tppComponent(self.ppViewer1.Report.FindUserObject('sb_name'));
iTest:= 0;
end;

if not (lTest = nil) then begin
ShowMessage(lTest.UserName);
lTest.SendToBack;

tppCustomReport(self.ppViewer1.Report).Reset;
tppCustomReport(self.ppViewer1.Report).Engine.Reset;
tppCustomReport(self.ppViewer1.Report).PrintToDevices;
end;
end;

Any other idea ?

Marion

nicocizik

Hi Marion,

This is working for me.

1. Download the RAP example from the rbWiki article.
http://www.digital-metaphors.com/rbWiki/Delphi_Code/Formatting/How_To...Refresh_the_Report_After_a_Drawcommand_Click

2. Open the design of this report and add two overlapping rectangles to the
footer band.

3. In the Calc tab implement the OnDrawCommandClick event of the front-most
shape with the following code...

begin
Shape2.SendToBack;

Reset(Report, TppDrawCommand(aDrawCommand));
end;

4. Run the application and preview the report. Click the front shape...
voila .

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Ok, when I only place this script of the front-most shape, it seems to work
fine - of cours, once only.

But the code in the onDrawCommandClick event of the second shape will not
fire. It just seems to be in the background, but when clicking again, the
OnDrawCommand of the first shape is fired again.

Our users can modify several attributes of predefined components, e.g.
position, colour etc.

In the OnDrawCommandClick of these components, I call a pass-thru function
in which I open a special dialog. Sometimes the user declare wrong positions
of their objects and move one over the other.

To get access to objects in the background, the user shoud be able to send
the front-most (currently-clicked) component to back.

Sorry for my english, I hope, you understand..

Marion

nicocizik

Hi Marion,

The OnClick event is not designed to differentiate between "front" and
"back" report components. ReportBuilder created the clickable area based on
when the event is assigned (first in the z-order).

To work around this, just implement a single OnDrawCommandClick event and
control both components from there. Something like the following...

if ppShape1.ZOrder > ppShape2.ZOrder then
ppShape1.SendToBack
else
ppShape2.SendToBack;

reset;

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com