QReport. Bojenje reda u zavisnosti od vrednosti nekog polja True/False.

[ sapet @ 19.01.2006. 21:55 ] @

Na formi u DBGrid-u nije problem, ali kako to izvesti u izvestaju u QReport?
Naime u zavisnosti od vrednosti polja (True/False), treba da se oboji podloga detail-a. Kako?

[ dekys @ 19.01.2006. 22:21 ] @

OnNeedData
ako je tacno onda oboj detail.band u zeleno
u suprotnom u crveno

sorry na skrtosti... mozda pomogne

[ sapet @ 20.01.2006. 11:55 ] @

U svakom slucaju hvala, ali...
Nikako da uspe. Mislim da sam sve uradio kako treba.

procedure TQuickReport1.QuickRepNeedData(Sender: TObject;
var MoreData: Boolean);
begin
if Query1PF.Value = True then
QRBand1.Color := clRed
else
QRBand1.Color := clBlue;
end;

Hvala.

[ ivanho @ 20.01.2006. 12:17 ] @

Probaj da stavis taj kod u QRBand1.BeforePrint

[ sapet @ 20.01.2006. 20:16 ] @

Radi. Hvala.

[ Msoftasdsoftware @ 08.08.2021. 11:21 ] @

Citat:

sapet:
Na formi u DBGrid-u nije problem, ali kako to izvesti u izvestaju u QReport?
Naime u zavisnosti od vrednosti polja (True/False), treba da se oboji podloga detail-a. Kako?

Ako nije problem da mi pošalješ kako bojiš red na formi .hvala

[ trimrd @ 09.08.2021. 07:28 ] @

Code:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Canvas.Brush.Color:=clWhite;
if Table1.FieldByName('boolean').AsString = 'true'
then
  DBGrid1.Canvas.Brush.Color:=clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;