• Registered: 2017-05-15
  • Posts: 723

Topic: Table Grid Highlighted

Hello MVD!

How to highlight the last record in the tablegrid to determine that it was the last entered record or fresh record..

Thanks!

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Table Grid Highlighted

Hello.


Example:

procedure Form1_GridSearch_OnChange (Sender: TObject);
var
    i: integer;
begin
    if Form1.GridSearch.Tag > 0 then
    for i := 0 to Form1.GridSearch.RowCount-1 do
    begin
        if Form1.GridSearch.dbIndexToID(i) = Form1.GridSearch.Tag then
        begin
            Form1.GridSearch.Cell[0,i].Color := clGreen;
        end;
    end;
end;

procedure frmAbonent_bSave_OnAfterClick (Sender: TObject);
var
    i: integer;
begin
    Form1.GridSearch.Tag := frmAbonent.bSave.dbGeneralTableId;
    Form1_GridSearch_OnChange (Form1.GridSearch);
end;
Dmitry.
  • Registered: 2017-05-15
  • Posts: 723

Re: Table Grid Highlighted

Thanks so much DriveSoft!