Meherer Spalten glechzeitig anzeigen

[Panschi]

hmm... damit verändern sich die Tabellen leider auch nicht :/

[DeddyH]

Wie, Tabellen? Was genau soll denn erreicht werden?

[Panschi]

2 Datenbanken werden in jeweils eine Tabelle geschrieben und später dann vergliechen und die Unterschiede ausgebessert. Das klappt auch alles, nur eben nicht die Darstellung der Tabelle, weil mir nur jeweils eine Spalte angzeigt wird. Ich kann zwar von Spalte zu Spalte wechseln, aber ich möchte gerne alle Spalten gleichzeitig in der Tabelle sehen...
Habe mal einen Screenshot angehängt wie es momentan aussieht...

[DeddyH]

Jepp, das ist die zu große Spaltenbreite. Der verlinkte Artikel befasst sich doch genau damit. Zur Not kannst Du die Spaltenbreite aber auch selbst festlegen.

[Panschi]

Ich sehe endich Licht am Ende des Tunnels

Der Quellcode von deinem Link funktioniert zwar nicht wie gewünscht, aber ich hab daraus einfach folgendes gebaut, was funktioniert:

Delphi-Quellcode:

  for i := 0 to dbgMaster.Columns.Count -1 do
  begin
    Spalte := dbgMaster.Columns[i];
    Spalte.Width := Round(dbgMaster.Width/3); //3 wegen 3 vorhandenen Spalten
  end;

  for i := 0 to dbgSlave.Columns.Count -1 do
  begin
    Spalte := dbgSlave.Columns[i];
    Spalte.Width := Round(dbgSlave.Width/3);
  end;

dankeschön

[DeddyH]

Evtl. auch so (ungetestet):

Delphi-Quellcode:

procedure ResizeColumnsEqually(Grid: TDBGrid);
var
  i: integer;
begin
  if Assigned(Grid) then
    for i := 0 to Grid.Columns.Count - 1 do
      Grid.Columns[i].Width := Grid.ClientWidth div Grid.Columns.Count;
end;

[Panschi]

das funktioniert auch bestens