Hi,

ich habe hier ein Stringgrid und das muß auf die Form passen, ohne Scrollbalken. Bzw. wenn es überhaupt drauf paßt. Es geht also darum, eventuell die Form zu vergrößern, so weit wie möglich, um das Stringgrid noch unterzubringen. Eventuell kann die Form ja auch nach links verschoben werden um Platz zu schaffen und dann eben vergrößern.

Jetzt ist das ganze allerdings etwas verwirrend, denn die Spalten des Grids werden ert im Programm ermittelt (also die Anzahl und Breite). Und wie sieht es da mit den vertikalen Linien aus ? Zählen die bei ColWidth mit oder nicht ?

Habe mal im Nebel rumgestochert :

zusammenfalten · markieren

Delphi-Quellcode:

var i,
    GridWidth : integer;
begin
  GridWidth := 0;
  for i := 0 to sg.ColCount - 1 do
    GridWidth := GridWidth + sg.ColWidths [i];
showmessage ('sg '+IntToStr (sg.Width)+' gridwith '+IntToStr (GridWidth));
// + ' Left '+ IntToStr (sgArtNr.Left));
  sg.Width := GridWidth;
  if GridWidth + sg.Left > Width then
    Width := Left + GridWidth + 10;
end;

Wie siehts aus mit dem Left von der Form und dem Grid ? Hoffe mal, daß das einer schon gemacht hat, weil die OH nicht viel hergibt.

Probiers doch aus.
StringGrid.Width := CalcWidth (StringGrid);

Hallo Hansa,

also ich hatte mal ein ähnliches Problem mit einem DBGrid und irgendwie hat das Smart dann auch bekommen und damit gibt es einen Download dazu in der Delphipraxis: DBGrid-FormResize.

Grüße aus dem verregneten Hannover

// Martin

Thx Martin,

ich muß allerdings erst noch folgendes klären :

markieren

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var i : integer;
begin
  StringGrid1.ColWidths [0] := StringGrid1.Canvas.TextWidth(StringGrid1.Cells[0,0]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells [0,0] := '1234567890';
end;

Wieso wird in dem Grid nur 1234567 angezeigt ? Siehe Anhang.

Hansa, habe Deine keine wirklich gute Idee. Würde den Textwidth-Wert jetzt einfach mit 1.2 multiplizieren und dasErgebnis
dann in ein Round setzen um auf den Integerwert zu kommen. Irgendwie arbeitet die Textwidth Funktion da nicht sauber.

Grüße // Martin

Hallo Hansa,

warum nicht so:Stringgrid1.Colwidths[0]:= Length(Stringgrid.cells[0,0] * font.size; obwohl ich sagen muss, das ich die datei nicht runtergeladen habe.

raik

Halber Treffer, aber eben nur halb.

Stringgrid1.Colwidths[0]:= Length(Stringgrid1.cells[0,0]) * (StringGrid1.font.size-1)+4; Abschneiden kann ich damit jetzt nichts mehr.

http://www.swissdelphicenter.ch/de/showcode.php?id=1717

Thema "die Spaltenbreite eines TDBGrid automatisch anpassen"
Passt jedoch nicht die Spalte nach Textweite an, sondern insgesamt.

Vielleicht findest Du ja dort trotzdem brauchbare Infos.

Gruß
Jürgen