ScrollBox->VertScrollBar->Size

[martin_b]

Hallo,

ich will die Breite der horizontalen und vertikalen Scrollbalken auslesen. Solange die Eigenschaft ScrollBox->VertScrollBar->Size nicht explizit gesetzt wurde enthält sie den Wert 0, was wohl so viel wie default bedeuten soll. Wo aber bekomme ich diesen default Wert her?

Gruß

Martin

[Jansen]

Welche BCB-Version verwendest du?
Im BCB6 scheint Size komplett wirkungs- und nutzlos zu sein.

[Geo]

Der BCB (habe Version 4) ruft effektiv

GetSystemMetrics(SM_CXHSCROLL);

bzw.

GetSystemMetrics(SM_CXVSCROLL);

auf.

[Jansen]

Geo schrieb:

effektiv

Inwiefern "effektiv"?
Laut forms.pas ruft der BCB6 GetSystemMetrics(SM_CYHSCROLL) bzw. SM_CYVSCROLL auf.

[Geo]

Ja, war copy&paste Fehler.

Value := GetSystemMetrics(SysConsts[Kind]);

das ergibt mit

SysConsts: array[TScrollBarKind] of Integer = (SM_CYHSCROLL, SM_CYVSCROLL);

effektiv

GetSystemMetrics(SM_CYHSCROLL); und GetSystemMetrics(SM_CYVSCROLL);

[Jansen]

Jo, ist identisch mit dem BCB6.
Nur dass es dort zur Laufzeit nicht tatsächlich effektiv zu sein scheint.

[DerAltenburger]

Passen sich die Rollbalken der ScrollBox nicht automatisch dem ClienRect an?

[martin_b]

Jansen schrieb:

Welche BCB-Version verwendest du?
Im BCB6 scheint Size komplett wirkungs- und nutzlos zu sein.

Version 5.

Der Tipp mit GetSystemMetrics(); liefert mir jedenfalls das gewünschte Ergebnis.

Ich will mit diesem Wert rechnen und wollte keinen Konstanten Wert verwenden, denn diese Größe lässt sich bestimmt mit irgendwelchen Systemeinstellungen verändern.

Dank und Gruß an alle

Martin