01-18-2021, 01:49 PM
I will formulate the question more compactly :
procedure TfmVmMain.dgMessageRenderCell(ACell: TIWGridCell; const ARow, AColumn: Integer);
begin
if dgMessage.RowIsCurrent then
begin
ACell.Font.Color := clWebMaroon; // The color is not assigned!
ACell.BGColor := clWebLIGHTBLUE; // The color is assigned, everything works as it should.
end else begin
ACell.Font.Color := clBlack; // The color is not assigned!
ACell.BGColor := clWebGAINSBORO; // The color is assigned, everything works as it should.
end;
end;
If you are using DbGrid a similar approach to the coloring of the lines is working.
Am I doing something wrong or is it not working properly IWDBGrid ?
procedure TfmVmMain.dgMessageRenderCell(ACell: TIWGridCell; const ARow, AColumn: Integer);
begin
if dgMessage.RowIsCurrent then
begin
ACell.Font.Color := clWebMaroon; // The color is not assigned!
ACell.BGColor := clWebLIGHTBLUE; // The color is assigned, everything works as it should.
end else begin
ACell.Font.Color := clBlack; // The color is not assigned!
ACell.BGColor := clWebGAINSBORO; // The color is assigned, everything works as it should.
end;
end;
If you are using DbGrid a similar approach to the coloring of the lines is working.
Am I doing something wrong or is it not working properly IWDBGrid ?