TStringGrid: optimale Breite einer Spalte

[hoika]

Hallo #,

folgender Code soll eine Spalte so in der Breite anpassen,
dass das Grid optimal angezeigt wird,
d.h. die Spaltenbreite soll so vergrössert werden,
dass das Grid noch komplett angezeigt wird ohne Scrollbar.

Problem:
Die Breite ist zu gross,
es wird eine Scrollbar angezeigt.
Bei 5 Spalten müsste 171 als Breite rauskommen (von Hand getestet),
ist aber 185. Wo kommen die 14 Pixel noch her ?


Hintergrund:
Ich probier gerade ein paar WordWrap-Codes aus.
Die WordWrap-Spalte soll maximal gross sein.

Delphi-Quellcode:

procedure Grid_SetOptimalWidth(theGrid: TStringGrid;
  const theColumn: Integer);
var
  iLeftWidth : Integer;
  iColWidth  : Integer;
  iCol       : Integer;
begin
  try
    iColWidth:= 0;
    for iCol:= 0 to theGrid.ColCount-1 do
    begin
      if iCol<>theColumn then
      begin
        iColWidth:= iColWidth+theGrid.ColWidths[iCol];
      end;
    end;
    iColWidth:= iColWidth-(theGrid.GridLineWidth*theGrid.ColCount);

    iLeftWidth:= theGrid.Width-iColWidth;


    theGrid.ColWidths[theColumn]:= iLeftWidth;
  except
  end;
end;

Heiko

[Lannes]

Hallo,

rechne mal mit theGrid.ClientWidth(ohne Komponentenrahmen) und berücksichtige GridlineWidth, den GridLineWidth ist nicht in ColWidths enthalten.
Wie sieht es dann aus?

[hoika]

Hallo,

ClientWidth ist 432, Grid.Width ist 436.
GridLineWidth ist 1 und wurde bereits berücksichtigt

iColWidth:= iColWidth-(theGrid.GridLineWidth*theGrid.ColCount);

OK, das sind 4 weniger.
Jetzt habe ich die 10 fest eingetragen und es klappt !!
Sollte das die ScrollBar sein ?

Delphi-Quellcode:

procedure Grid_SetOptimalWidth(theGrid: TStringGrid;
  const theColumn: Integer);
var
  iLeftWidth : Integer;
  iColWidth  : Integer;
  iCol       : Integer;
begin
  try
    iColWidth:= 0;
    for iCol:= 0 to theGrid.ColCount-1 do
    begin
      if iCol<>theColumn then
      begin
        iColWidth:= iColWidth+theGrid.ColWidths[iCol];
      end;
    end;
    iColWidth:= iColWidth-(theGrid.GridLineWidth*theGrid.ColCount);

    iLeftWidth:= theGrid.ClientWidth-iColWidth-10;

    theGrid.ColWidths[theColumn]:= iLeftWidth;
  except
  end;
end;

[Lannes]

Hallo,

GridLineWidth hab ich wohl in Deinem Code überlesen. :?

Die Breite der Scrollbars kann man mit GetSystemMetrics(SM_CXVSCROLL) abfragen.

[hoika]

Hallo,

ja schon klar

GetSystemMetrics(SM_CXVSCROLL) ergibt bei mir aber 16, nicht 10.
Setze ich das so ein (statt der 10),
ist die Spalte zu schmal.


Heiko

[angos]

Zitat:

Zitat von hoika

Hallo,

ja schon klar

GetSystemMetrics(SM_CXVSCROLL) ergibt bei mir aber 16, nicht 10.
Setze ich das so ein (statt der 10),
ist die Spalte zu schmal.


Heiko

Hey,

daran liegts auch nicht :) Du hast nur + mit Minus verwechselt :D

Delphi-Quellcode:

procedure Grid_SetOptimalWidth(theGrid: TStringGrid;
  const theColumn: Integer);
var
  iLeftWidth : Integer;
  iColWidth  : Integer;
  iCol       : Integer;
begin
  try
    iColWidth:= 0;
    for iCol:= 0 to theGrid.ColCount-1 do
    begin
      if iCol<>theColumn then
      begin
        iColWidth:= iColWidth+theGrid.ColWidths[iCol];
      end;
    end;
    iColWidth:= iColWidth + (theGrid.GridLineWidth*theGrid.ColCount); // Da du iColwidth nachher abziehen möchtest, solltest du das hier auch draufrechnen und nicht subtrahieren 

    iLeftWidth:= theGrid.Width-iColWidth;


    theGrid.ColWidths[theColumn]:= iLeftWidth;
  except
  end;
end;

MfG
Ansgar

[hoika]

Hallo,

mache es so wie du es sagst, klappt es gar nicht mehr.
Die Spalten-Breite ist dann zu klein.

Ich habe einen neuen Tread aufgemacht mit dem kompletten Projekt.
StringGrid und Wordwrap


Heiko

[whiteF]

hi, der thread is zwar schon etwas älter, aber ich antworte dennoch für die zukünftigen.
die fehlenden Werte müssten genauso groß sein wie deine letzte spalte breit war.

das hier

Delphi-Quellcode:

for iCol:= 0 to theGrid.ColCount-1 do

müsste zu

Delphi-Quellcode:

for iCol:= 0 to theGrid.ColCount-2 do

und dann müsste es laufen! ^^

mfg

[Delphi-Laie]

Hallo hoika/Heiko!

In meinem Programm "Prozesse" (Prozeßbetrachter und mehr) stand ich vor dem gleichen Problem, zusätzlich noch, daß das darunterliegende Formular an die Stringgridgröße angepaßt wird - oder eben an die Ausdehnung des Bildschirmes. Schau' Dir das bitte an, wie ich das löste. Eine Warnung vorweg: Es war eine üble Fummelei, Pfriemelei, Bastelei, wie immer man das nennen möchte, und zwar zum einen bezüglich der verschiedenen Delphiversionen (unter 4 wird aber wohl kaum noch jemand einsetzen) und auch bezüglich verschiedener Windowsversionen (z.B. 2000 & Me, aber die 9x-Baureihe wird auch kaum noch jemand nutzen).