StringGrid: Breite der vertikalen Scrollbar ermitteln

[Helmi]

Hallo,

gibt es die Möglichkeit die Breite der vertikalen Scrollbar eines StringGrid zu ermitteln?

Ich hatte gehofft, dass sich ClientWidth dadurch ändert, aber leider bleibt der Wert mit/ohne Scrollbar gleich

Was will ich eigentlich tun?
(für manche eine schwierige Frage)

Wenn die vertikale Scrollbar sichtbar ist, dann möchte ich die Breiten der Spalten des StringGrids reduzieren.

Ob eine Scrollbar sichtbar ist, mach ich mit diesem Code:

Delphi-Quellcode:

if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then
   ShowMessage('Vertical scrollbar is visible!');

if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then
   ShowMessage('Horizontal scrollbar is visible!');

(gefunden bei den Schweizern)

[ConnorMcLeod]

Schau Dir mal TGridDrawInfo an; vllt ersparst Du Dir dann das Gefummel mit den Scrollbars.
Besonders TGridDrawInfo.Horz.LastFullVisibleCell u dgl ...

[DeddyH]

Versuch es mal mit GetSystemMetrics:

Zitat:

SM_CXVSCROLL

The width of a vertical scroll bar, in pixels.

[Helmi]

Zitat von ConnorMcLeod:

Schau Dir mal TGridDrawInfo an; vllt ersparst Du Dir dann das Gefummel mit den Scrollbars.
Besonders TGridDrawInfo.Horz.LastFullVisibleCell u dgl ...

klingt interessant - werd ich mir mal zu Gemüte führen

hab aber bei den Schweizern noch einen Code für die Breite/Höhe gefunden link

[ConnorMcLeod]

Viele Wege führen zum Kompilat.

Was mich bei der Scrollbar-Überlegung stört ist, daß die Scrollbars nicht Teil des Problems sind, sondern nur ein Symptom.

Das Problem ist ein zu breites Grid, das angepaßt werden muß.

Wenn aus diversen Gründen grundsätzlich keine Scrollbars angezeigt würden (Optionen verändert etc.), dann hättest Du keine Scrollbars, aber das Grid wäre immer noch zu breit.
Über die GridDrawInfo und LeftCol weißt Du alles, was Du wissen mußt:

Delphi-Quellcode:

var
  DrawInfo: TGridDrawInfo;
begin
  grdDemo.CalcDrawInfo(DrawInfo);

[Helmi]

Zitat von ConnorMcLeod:

Viele Wege führen zum Kompilat.

Was mich bei der Scrollbar-Überlegung stört ist, daß die Scrollbars nicht Teil des Problems sind, sondern nur ein Symptom.

Das Problem ist ein zu breites Grid, das angepaßt werden muß.

Wenn aus diversen Gründen grundsätzlich keine Scrollbars angezeigt würden (Optionen verändert etc.), dann hättest Du keine Scrollbars, aber das Grid wäre immer noch zu breit.
Über die GridDrawInfo und LeftCol weißt Du alles, was Du wissen mußt:

Delphi-Quellcode:

var
  DrawInfo: TGridDrawInfo;
begin
  grdDemo.CalcDrawInfo(DrawInfo);

bei mir gibt es CalcDrawInfo nicht

[ConnorMcLeod]

Ich habe D2010, da heißt es in Grids.pas / Zeile 2465:

procedure TCustomGrid.CalcDrawInfo(var DrawInfo: TGridDrawInfo);

[Helmi]

in XE2 ist CalcDrawInfo protected

[DeddyH]

Naja, da kommt man ja noch drum herum.

[Helmi]

Zitat von DeddyH:

Naja, da kommt man ja noch drum herum.

verrätst du mir auch wie?
(habs ned so mit knacken )