save dbgrid columns position

[Hansvb]

I want to save the dbgrid columns position when a column is moved in the dbgrid.
When i set my code in the OnColumMoved then nothing happens.
When i set my code in the OnDrawColumnCell it works. But i do not want to exceute the procedure after every OnDrawClolumnCell. Only after a column is really moved.

What is the best location?

[howardpc]

The following event handler saves correct information for me. I'm sure you can adapt it for your use.

Code: [Select]

procedure TForm1.DBGridColumnMoved(Sender: TObject; FromIndex, ToIndex: Integer);
var
  col0: integer;
  dbg: TDBGrid;
  sl: TStringList;
const
  logfileName = 'log.txt';
begin
  if not (Sender is TDBGrid) then Exit;
  dbg:=TDBGrid(Sender);
  if (dgIndicator in dbg.Options) then
    col0:=1
  else
    col0:=0;
  sl:=TStringList.Create;
  try
    sl.Append(Format('Column %s moved from index %d to index %d',
       [dbg.Columns[FromIndex-col0].Title.Caption, FromIndex, ToIndex]));
    sl.SaveToFile(logfileName);
  finally
    sl.Free;
  end;
end;


[Hansvb]

My code works fine but the on colum move seems te react after the second move and not after the first move.
When i move a colum then my txt file has a new timestamp but i see the original columorder and not the changed one. When i move the column again the order in my txt file is changed and good.

Code: [Select]

procedure TFrm_main.DBGrid_ModelColumnMoved(Sender: TObject;
  FromIndex, ToIndex: Integer);
begin
    DBGridvisueel.saveGridLayout(DBGrid_Model, Frm_Main.LastQuery_Model,
                                 ApplicatiePad + '\Settings\'
                                               + UserName_PC + '_'
                                               +  'Model.txt');
end; 

procedure TDBGrid_visueel.saveGridLayout(Mydbgrid: TDBGrid; Query : Integer; fileName: string);
var
  lines: TStringList;
  i: integer;
begin
  if Query = 604 then
    begin
      try
        lines := TStringList.Create;
        with Mydbgrid do
        begin
          for i := 0 to Mydbgrid.Columns.count-1 do
            begin
        lines.Add
              (IntToStr(Mydbgrid.Columns[i].Index)
          + '~ ' + Mydbgrid.Columns[i].DisplayName
          + '~ ' + Mydbgrid.Columns[i].Title.Caption
          + '~ ' + IntToStr(Mydbgrid.Columns[i].Width)
              );
      end;
        end;
        lines.SaveToFile(fileName);
      finally
        lines.free;
      end;
    end;
end;

[howardpc]

Perhaps you need to record the ToIndex parameter value in your log, rather than the Columns.Index value (which may not yet have been updated).

[Hansvb]

i can't find a toindex parameter

[howardpc]

Sorry, I mislead you.
Try this. Add a procedure to Tfm_main

Code: [Select]

procedure DoSave(Data: PtrInt);

and implement it as

Code: [Select]

procedure TFrm_main.DoSave(Data: PtrInt);
begin
  DBGridvisueel.saveGridLayout(DBGrid_Model, Frm_Main.LastQuery_Model,
                                 ApplicatiePad + '\Settings\'
                                               + UserName_PC + '_'
                                               +  'Model.txt');
end;

Then change the OnColMoved event handler to

Code: [Select]

procedure TFrm_main.DBGrid_ModelColumnMoved(Sender: TObject;
  FromIndex, ToIndex: Integer);
begin
  Application.QueueAsyncCall(@DoSave, 0);
end; 

Leave

Code: [Select]

procedure TDBGrid_visueel.saveGridLayout(...) unchanged

I think that will give time for the new column data to be updated correctly before it is read by the saving code.

[Hansvb]

Thanks,  that works great!

I have some reading to do for the "QueueAsyncCall"