8 replies to this topic

[coasting]

Hi all,

I am trying to assign a color depending on the cell value of a dataset. The following code works well for row coloring when DBGrid is in gsReport mode (OnCellColoring) but does not work when gsSlide (OnSlideColoring) is set:

CODE

  
  if DataSource1.DataSet.FieldByName('mDays').AsInteger <= -1 then
    SlideColor := clRed;

  if DataSource1.DataSet.FieldByName('mDays').AsInteger = 0 then
    SlideColor := clInfobk;

  if DataSource1.DataSet.FieldByName('mDays').AsInteger >= 1 then
    SlideColor := clGreen;

Any hint on that?

Many thanks

coasting

[Boki (Berg)]

Hello Coasting,

I will inspect this. Thank you,

Best regards

[coasting]

Hi

thx. My intention is to paint each slide background in a different color. Maybe the way I am trying to do it is wrong. Thx yr help.

coasting

[Boki (Berg)]

Hi,

i have check it once again and seems to be working fine. Maybe small demo project can help?

Best regards

[coasting]

Hi

ok, I took ADO Demo3 as a base, switched DBGridView2 to gsSlides and put in the following code:

CODE

procedure TForm1.DBGridView2SlideColoring(Sender: TObject; Index: Integer;
  var SlideColor, GridColor: TColor; SlideState: TSlideState);
begin

  if DataSource2.DataSet.FieldByName('OrderId').AsInteger <= 19 then
    SlideColor := clRed;

  if DataSource2.DataSet.FieldByName('OrderId').AsInteger = 20 then
    SlideColor := clYellow;

  if DataSource2.DataSet.FieldByName('OrderId').AsInteger >= 21 then
    SlideColor := clGreen;

end;

Result is that all slides are painted clRed. When clicking through the slides color of all slides is changing. What am I doing wrong?

coasting

[Boki (Berg)]

Hi,

Try to add at the top of code a SlideColor = NextDBGrid1.Color;

maybe this will helps.

Best regards

[coasting]

Hi Boki,

nope, doesn't help :/ Did you try yourself? Still all slides are Red. When clicking through the slides the focused one is painted correct but all other slides will then be painted in same color...!?, i.e. the slide with focus is defining the color of the other ones. Any other hint?

Many thx

coasting

[Boki (Berg)]

Hello Coasting,

It seems that it takes a only active record when painting a color.

I will need some time to fix it. Thank you for reporting this.

Please sorry for this problem.

Best regards

[coasting]

Hi Boki,

take your time. Meanwhile I am using the OnCellColoring event.

coasting