Hi,

I'm trying to make the background of dbfield in a LazReport different. I tried using the userds example, but it does not work. This is what I wrote :

procedure TDataModule1.frReport1EnterRect(Memo: TStringList; View: TfrView);
begin
if FNegative then
  View.FillColor:=clRed
else
   View.FillColor:=clWhite;
end;
procedure TDataModule1.frReport1GetValue(const ParName: String;
   var ParValue: Variant);
begin
Append(OutFile);
writeln(OutFile,ParName);
CloseFile(OutFile);
if ParName='qrySamenVatting."VERSCHIL"' then
   FNegative:=qrySamenVattingVERSCHIL.AsFloat<0.0
else
   FNegative:=false;
end;

This colors the wrong field. After some debugging I found EnterRect is fired before GetValue. So, how can I modify the color based on the value ?

Koenraad.

Have you tried

procedure TDataModule1.frReport1EnterRect(Memo: TStringList; View: TfrView); begin ?

? ? if Dataset.FieldByName('VERSCHIL').asFloat<0.0 then
? ? ? ?View.FillColor := clRed
? ? else
? ? ? ?View.FillColor := clWhite;

end;

?

Another way is, as shown in UserDs example, using a Script, You can make a script var 'Negative', which value is updated in OnGetValue, just like FNegative below, the difference would be that 'Negative' is a script var and in your example FNegative is some data module field or property. In the UserDS sample that would be something similar to variable 'I', for example.?

?

Used that way, the memo field's script would be something like:

Begin
? if Negative then
? ? FillColor := clRed
? else
? ? FillColor := clWhite;
End

Now I have ;-). It does not work like expected because (I think) Dataset contains a whole record. The code says : if the field 'VERSCHIL' of the current record contains a negative value paint the box of the current field red. But that's true for all fields in the record.

I added :
if Memo.Text='[qrySamenVatting."VERSCHIL"]'#13#10 then

if Dataset.FieldByName('VERSCHIL').asFloat<0.0 then View.FillColor := clRed else View.FillColor := clWhite;

This works as I expected.

When will that script be executed ? Before or after the EnterRect ? Before is OK, after, like GetValue, is too late.

Thanks anyway, I'm a step further. Now getting a crosstab to work.

Koenraad

Koenraad Lelong wrote

Hi, I'm trying to make the background of dbfield in a LazReport different.

Hi,

Just found out how to do this :

In the report-editor there is a button 'Highlight Attributes'. I found this by chance by having my mouse stay over it for some time. There you can enter something like 'VALUE<0' and select some attributes.

One remark : on Linux the attributes-form is cut. Not all information is shown. On Windows, you can see all.

Koenraad.

See also here
http://wiki.lazarus.freepascal.org/LazReport_Tutorial#Formatting_output Please update/correct as usual.