iterate dbgrid, color finished row

[musicto]

Hi,

in my procedure i move through my dbgrid selection like this:

Code: Pascal  [Select][+][-]

1.  
2. for  z := 0 to frm1.dbg2EA.SelectedRows.Count - 1 do
3. begin
4. frm1.dbg2EA.DataSource.DataSet.Bookmark := frm1.dbg2EA.SelectedRows[z];        
5. dosomeworkwiththerecord;
6. dosomemoreworkwiththerecord;
7. end;
8.  

After i have finished my work for the selected record, i want to color the row before i move to the next one.
So the User can easy see the progress of the work.

Cant be that hard, but can someone help me please?

Sascha

[Handoko]

I haven't tried to color a cell or a row in TDBGrid. But it can be done easily in TStringGrid. TDBGrid has OnPrepareCanvas event, so it should be able to be done as in TStringGrid too.

I have 2 demos showing how to color a cell/row in TStringGrid. Click the link below, then go to User Interface section. There you can find Searchable StringGrid:
https://wiki.freepascal.org/Portal:HowTo_Demos

[Soner]

You have to change lazarus\lcl\dbgrids.pas for this:

Code: Pascal  [Select][+][-]

1. TCustomDBGrid=class(TCustomGrid)
2. // ..
3. public
4. //...
5. property DrawingActiveRecord: Boolean read FDrawingActiveRecord; //for highlighting in PrepareCanvas
6. end;
7.  

Then in your programm for TDBGrid.OnPrepareCanvas-Event:

Code: Pascal  [Select][+][-]

1. procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;   Column: TColumn; AState: TGridDrawState);
2. begin
3.   if DBGrid1.DrawingActiveRecord then begin
4.     //put your code i.e. change row color
5.     DBGrid1.Canvas.Brush.Color:=clRed;
6.     DBGrid1.Canvas.Font.Color:=clWhite;
7.  end;
8.  

[musicto]

Handokos Post gave me the hint and i solved it.
So all finished Records are colored.

Thank you,

Sascha