TAdvStringGrid
Example 2 : Dynamic cell colors

procedure TForm1.AdvStringGrid1GetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont); begin if advstringgrid1.cells[acol,arow]<>'' then if advstringgrid1.ints[acol,arow]<0 then begin abrush.color:=colorgrid2.backgroundcolor; afont.color:=colorgrid2.foregroundcolor; end else begin abrush.color:=colorgrid1.backgroundcolor; afont.color:=colorgrid1.foregroundcolor; afont.style:=[fsBold] end; end;
procedure TForm1.ColorGrid1Change(Sender: TObject);
begin
advstringgrid1.Repaint;
end;
×