nevel

Hi Helmut,

Could you please explain how you managed to get it working?
Your CompareRows procedure looks fine, but when do you call it?

Thanks in advance.

Ah, that's a pity (but not a biggy).

Thanks for clarifying.

I don't know whether or not you've already bought the grid components, but I can tell you this: they won't disappoint. I recently bought the Developer Suite for Delphi, and I'm really impressed by their quality and flexibility. Every now and then I have to search the forums, the source or the documentation to find what I'm looking for (I'm not easily satisfied), but in the end it's always there. Next to the grids I can especially recommend the TNxPageControl, TNxAlertWindow and TNextInspector/TNextDbInspector. Those components alone made it worth my money, even though I'm using Delphi exclusively for hobby projects at the moment.

I'm not a big fan of marketing by the way (nor endorsed by BergSoft for that matter), I just love great components.

Sure

FireMonkey seems to be the multi-platform GUI approach that Delphi will be using as of XE2:

http://www.deltics.co.nz/blog/?p=735
http://www.delphiformac.com

You may also want to check for the csEmpty state, like so:

if (not (csSelected in CellState)) and (not (csEmpty in CellState)) then begin
if ARow mod 2 = 0 then begin
CellColor := RGBToColor(255, 255, 255);
end
else begin
CellColor := RGBToColor(248, 248, 248);
end;
end;

If you don't, the alternating colors will remain visible after the number of grid items has decreased.