Buttongröße der Scrollbalken verändern

[LokutusvB]

Moinsen,

wie ich die Scrollbalkenbreite von Komponenten in einer Delphi-Anwendung ändern kann, konnte ich bereits herausfinden. Das lässt sich mittels SystemParametersInfo lösen. Aber wie kann ich nun zusätzlich die Höhe der vertikalen und die Breite der horizontalen Buttons der Scrollbalken vergrößern? Das müßte dann ja auch mit SystemParametersInfo gehen, oder?

Welche der hier gelisteten Parameter müßte ich nutzen? https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

SPI_GETNONCLIENTMETRICS und SPI_SETNONCLIENTMETRICS sind es schon mal nicht. Zumindest konnte ich darunter keine entsprechende Variable finden.

[himitsu]

PageSize in der ScrollBar Komponente?

Bei 0 ist das quadratisch und sonst versucht Windows den Balken über PageSize und die Gesamtgröße anzupassen.
Der Balken ist praktisch verhältnismäßig so groß, wie der angezeigt Bereich.

Min=0, Max=99, also Gesamt=100 und PageSize=10, dann ist der Balken 10% so lang, wie der Bereich zwischen den beiden äußeren Knöpfen.

[Dalai]

Zitat:

Zitat von LokutusvB (Beitrag 1305106)

wie ich die Scrollbalkenbreite von Komponenten in einer Delphi-Anwendung ändern kann, konnte ich bereits herausfinden. Das lässt sich mittels SystemParametersInfo lösen.

Zitat:

Retrieves or sets the value of one of the system-wide parameters.

Mmmh... Overkill? Schlechtes Design?

MfG Dalai

[LokutusvB]

Dann habe ich mich falsch ausgedrückt. Ich schreibe nicht von der ScrollBar-Komponente, sondern von den Scrollbars in ListViews, Listboxen usw. . Schon hier habe ich eine Zeit lang im Netz gesucht, um eine Möglichkeit zu finden, die Breite ändern zu können. Denn das ist laut der Infos, die man finden kann, nicht trivial, da diese Komponenten die Systemkomponenten von Windows nutzen. Deswegen denke ich mir, kann ich nun die Buttonhöhe bzw. -Breite ebenfalls SystemParameterSInfo ändern. Oder geht das anders und besser?

[Luckie]

Du löst ein lokales Problem mit einer globalen Lösung? Sehe ich das richtig? Ich weiß nicht, ob das so im Sinne des Anwenders ist, wenn auf einmal alle seine Scrollbars deinen Wünschen entsprechen. Bedenke auch, dass eventuell behinderte Anwender das Aussehen und die Bedienbarkeit von Windows ihren Bedürfnissen angepasst haben.

[Der schöne Günther]

Es gibt dafür keine Lösung. Die Scrollbalken sind Windows-Komponenten und die kannst du nur global anpassen. Außerdem dauert das, je nach offenen Fenstern, auch eine ganze Weile.

[Bernhard Geyer]

Zitat:

Zitat von Der schöne Günther (Beitrag 1305134)

Es gibt dafür keine Lösung. Die Scrollbalken sind Windows-Komponenten und die kannst du nur global anpassen. Außerdem dauert das, je nach offenen Fenstern, auch eine ganze Weile.

Das mag für antike Delphi-Versionen gelten.
Mit neueren Versionen und den (eingebauten) Skinning/Theming ist sowas über das Skin/Theme relativ einfach für alle Controls der eigenen Anwendung anpassbar.

[EWeiss]

Zitat:

Zitat von Der schöne Günther (Beitrag 1305134)

Es gibt dafür keine Lösung. Die Scrollbalken sind Windows-Komponenten und die kannst du nur global anpassen.

Wie Bernhard schon sagt klar geht das.

gruss

[LokutusvB]

Zitat:

Zitat von Der schöne Günther (Beitrag 1305134)

Es gibt dafür keine Lösung. Die Scrollbalken sind Windows-Komponenten und die kannst du nur global anpassen. Außerdem dauert das, je nach offenen Fenstern, auch eine ganze Weile.

Genau das macht SystemParameterSInfo und genau das ist bei dieser Anwendung auch in meinem Sinne, da das Betriebssystem während der Anwendungsausführung nicht "angerührt" wird und man anders die Breite der Scrollbalken nicht ändern kann.

Und ja Luckie, das ist im Sinne das Anwenders. Kennt jemand den GET/SET Parameter, den man verwenden muß?

[Der schöne Günther]

Ich stehe auf dem Schlauch. Ich mache das immer so:

Delphi-Quellcode:

var
   nonClientMetrics: TNonClientMetrics;
begin
   nonClientMetrics.cbSize := SizeOf(TNonClientMetrics);
   SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nonClientMetrics, 0);

   nonClientMetrics.iScrollWidth := 99;
   nonClientMetrics.iScrollHeight := 99;


   SystemParametersInfo(
      SPI_SETNONCLIENTMETRICS,
      SizeOf(nonClientMetrics),
      @nonClientMetrics,
      0   // This parameter can be zero if you do not want to
         // update the user profile or broadcast the
         // WM_SETTINGCHANGE message
   );
end;

Heraus kommt dann so etwas: Anhang 43364

[EWeiss]

Zitat:

Zitat von Der schöne Günther (Beitrag 1305138)

Ich stehe auf dem Schlauch. Ich mache das immer so:

Delphi-Quellcode:

var
   nonClientMetrics: TNonClientMetrics;
begin
   nonClientMetrics.cbSize := SizeOf(TNonClientMetrics);
   SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nonClientMetrics, 0);

   nonClientMetrics.iScrollWidth := 99;
   nonClientMetrics.iScrollHeight := 99;


   SystemParametersInfo(
      SPI_SETNONCLIENTMETRICS,
      SizeOf(nonClientMetrics),
      @nonClientMetrics,
      0   // This parameter can be zero if you do not want to
         // update the user profile or broadcast the
         // WM_SETTINGCHANGE message
   );
end;

Heraus kommt dann so etwas: Anhang 43364

Und ist auch richtig so.. ;)
Frage mich nun warum du vorher geschrieben hast das es nicht geht. :)

Aber Achtung! Das verändert alle Scrollbars Systemweit..
Solange bis du es zurücksetzt.
Schlechte Lösung denk ich mal.

gruss

[LokutusvB]

So mache ich das ja auch. Aber das allein ändert nicht die Breite bzw. Höhe der Steuerungsbuttons für Hoch und Runter bzw. Rechts und Links. Und diese Buttons möchte ich von der Größe her an die Breite der Balken anpassen.

[Dalai]

Das Problem an SystemParametersInfo ist doch, dass die Änderungen alle Programme betreffen, und zwar selbst dann, wenn man sie nicht broadcasten lässt, denn spätestens, wenn ein anderes Programm einen Broadcast loslässt, werden sie für alle übernommen.

Ein solches Programm würde keine 3 Minuten auf meinem System leben. Daher würde ich gar nicht weiter versuchen, mit dieser Funktion ein Problem zu lösen, das nur für die eigene Anwendung gelten soll.

MfG Dalai

[Der schöne Günther]

Ja. Deswegen sagte ich doch, dass es nicht geht, das nur für eine Anwendung und nicht systemweit zu machen.

[LokutusvB]

Ich habe doch schon geschrieben, daß das in diesem Fall total egal ist. Ich hätte nur gern mal die Parameter gewußt. Auf was das Änderungen hat, ist mir klar.

[Luckie]

Eine Lösung wurde dir doch genannt: Skins. Du musst ja nicht das Hello Kitty Glitzer Skin nehmen.

[LokutusvB]

Dieses neue (eingebaute) Skinning/Theming ist doch aber für die Firemonkey-Anwendungsentwicklung. Bei VCL wäre mir das neu und ich wüßte auch gar nicht, wo ich in Delphi danach suchen sollte, das Theming der VCL-Komponenten zu ändern.

Davon abgesehen möchte ich für dieses Problem nicht an verschiedenen Stellen "schrauben". Es wird doch ganz bestimmt ein passendes Attribut für die SystemParametersInfo geben.

[himitsu]

Nein, gibt es nicht. Du stlellst mit einer globalen Option immer alles global um.

Und nein, auch die VCL hat Styles, bzw. gab's das dort auch schon vor'm FMX, über Fremdkomponenten.

[LokutusvB]

Zitat:

Zitat von himitsu (Beitrag 1305227)

Nein, gibt es nicht. Du stlellst mit einer globalen Option immer alles global um.

Das verstehe ich noch nicht so ganz. Wenn ich global die Breite der Scrollbalken ändern kann, kann ich dann nicht auch global die Größe der Bottons der Scrollbalken ändern? Oder ist es das, was du mir sagen möchtest, das genau das nicht geht?

[Dalai]

Ich verstehe das Problem nicht. Die von Günther gezeigte Lösung ändert auch die Buttongröße, wie man unschwer auf dem Screenshot erkennen kann. Diese Variante arbeitet global, was dir laut eigener Aussage egal ist. Trotzdem benutzt du sie nicht. Der Hinweis mit den Skins/Styles geht in eine andere Richtung, um das Dilemma der globalen Lösung für ein lokales Problem zu vermeiden/umgehen.

MfG Dalai

[Der schöne Günther]

Vielleicht mein er die Buttongrafiken ("Glyphs", "Symbole")? Denn diese werden dadurch nur etwas größer. Wahrscheinlich weil sie in Windows schlichtweg nicht größer vorliegen.

[himitsu]

Die Buttongrafiken: Marlett

[BadenPower]

Zitat:

Zitat von Dalai (Beitrag 1305265)

Ich verstehe das Problem nicht. Die von Günther gezeigte Lösung ändert auch die Buttongröße, wie man unschwer auf dem Screenshot erkennen kann.

Er möchte aber auch noch die Buttongröße selbst bestimmen und nicht anhand der Scrollbarbreite vom System automatisch angepasst.

Wenn zum Beispiel die Scrollbar 19 Pixel breit ist, dann sind die Buttons für hoch/runter bzw links/rechts zum Beispiel 15x15 Pixel. Er möchte aber, dass die Buttons 15x40 Pixel bzw. 40x15 Pixel groß sind.

[Dalai]

Zitat:

Zitat von BadenPower (Beitrag 1305271)

Wenn zum Beispiel die Scrollbar 19 Pixel breit ist, dann sind die Buttons für hoch/runter bzw links/rechts zum Beispiel 15x15 Pixel. Er möchte aber, dass die Buttons 15x40 Pixel bzw. 40x15 Pixel groß sind.

Das liest du woraus? Ich sehe das Gegenteil:

Zitat:

Zitat von LokutusvB (Beitrag 1305142)

[...] die Breite bzw. Höhe der Steuerungsbuttons für Hoch und Runter bzw. Rechts und Links. Und diese Buttons möchte ich von der Größe her an die Breite der Balken anpassen.

Und das ist der Fall auf Günthers Screenshot.

MfG Dalai

[LokutusvB]

Tut mir leid wegen der Umstände. :( Natürlich passt diese Methode auch die Bottongröße wie gewünscht an, sofern man sie vollständig nutzt. In meinem Qelltext hatte ich nur iScrollWidth angepasst und die iScrollHeight völlig vergessen. :wall:

[Der schöne Günther]

Toll, jetzt hatte ich extra nochmal einen Screenshot vorbereitet und ihr ward schneller :-(

[LokutusvB]

Tut mir leid, Günther! :(