DBGrid, DataSource, Spaltenbreite

[renekr]

Hi,
als kleiner Zusatz anreiz.
Ich habe folgendes gemacht:
Einstellen der Spaltenbreite ,speichern und beim ausführen des Querys load:


SAVE:

Delphi-Quellcode:

procedure TForm1.Button45Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to dbgrid1.columns.Count - 1 do
  begin
   ini.Writeinteger('Spaltenbreite',dbgrid1.columns.Items[i].FieldName,dbgrid1.columns.Items[i].width);
  end;


end;

--------------
LOAD;

Delphi-Quellcode:

procedure TForm1.Button46Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to dbgrid1.columns.Count - 1 do
    with dbgrid1.columns.Items[i] do
   width := ini.readinteger('Spaltenbreite',fieldname,i);
end;

PS: Ini muß natürlich vorher Creat gemacht werden .
Zum Originalzustand herstellen:

ini.EraseSection('Spaltenbreite'); Das ganze kann man nat. als Procedur erstellen und beim Onshow oder so einbinden.



mfg

[edit=alcaeus]Delphi-Tags eingefuegt. Mfg, alcaeus[/edit]