Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   FMX TScrollbar ändern der Farben? (https://www.delphipraxis.net/187774-fmx-tscrollbar-aendern-der-farben.html)

luisk 2. Jan 2016 11:19

FMX TScrollbar ändern der Farben?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo,
wie kann man bei TScrollbar die Farbe des Schiebereglers ändern ?
Habe versucht, in die Stylestruktur TRectangle einzubauen. Das Rechteck erscheint aber nur statisch.

mkinzler 2. Jan 2016 12:37

AW: FMX TScrollbar ändern der Farben?
 
Hast Du die Anchors gesetzt?

Sir Rufo 2. Jan 2016 12:42

AW: FMX TScrollbar ändern der Farben?
 
Liste der Anhänge anzeigen (Anzahl: 1)
Die "Schieberegler" sind die
Delphi-Quellcode:
TThumbs
. Diese besitzen einen eigenen Style
Delphi-Quellcode:
vthumbstyle
(vertikal) und
Delphi-Quellcode:
hthumbstyle
(horizontal).

Klatsch dir ein StyleBook auf die Form und einen beherzten Doppelklick auf selbiges.

Dann ein
Delphi-Quellcode:
TLayout
reinklatschen (
Delphi-Quellcode:
StyleName
auf vthumbstyle setzen) und in das Layout ein
Delphi-Quellcode:
TRectangle
(
Delphi-Quellcode:
HitTest = false; Align = Contents
) und das jetzt farblich anpassen.

Das gleiche nochmal für den
Delphi-Quellcode:
hthumbstyle
und fertig ist der Keks.

;)
Anhang 44533
Code:
object TStyleContainer
  object TLayout
    StyleName = 'hthumbstyle'
    Position.X = 752.000000000000000000
    Position.Y = 472.000000000000000000
    Visible = False
    TabOrder = 0
    object TRectangle
      StyleName = 'rectangle1style'
      Align = Contents
      Fill.Color = claCrimson
      HitTest = False
      Size.Width = 50.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      Stroke.Kind = None
      XRadius = 3.000000000000000000
      YRadius = 3.000000000000000000
    end
  end
  object TLayout
    StyleName = 'vthumbstyle'
    Position.X = 752.000000000000000000
    Position.Y = 472.000000000000000000
    Visible = False
    TabOrder = 1
    object TRectangle
      StyleName = 'rectangle1style'
      Align = Contents
      Fill.Color = claCrimson
      HitTest = False
      Size.Width = 50.000000000000000000
      Size.Height = 50.000000000000000000
      Size.PlatformDefault = False
      Stroke.Kind = None
      XRadius = 3.000000000000000000
      YRadius = 3.000000000000000000
    end
  end
end

luisk 2. Jan 2016 16:43

AW: FMX TScrollbar ändern der Farben?
 
in der Entwurfansicht wird der geänderte Schieber dargestellt,
bei der Ausführung nicht. Da fehlt noch ne Kleinigkeit.

Sir Rufo 2. Jan 2016 17:04

AW: FMX TScrollbar ändern der Farben?
 
Bei mir ist die Änderung auch zur Laufzeit sichtbar.

Kann es sein, dass du einen bestimmten Style für die Anwendung lädst?
Oder diese Änderung ist für eine andere Plattform gedacht?

luisk 2. Jan 2016 17:51

AW: FMX TScrollbar ändern der Farben?
 
In einem kleinen neuen Projekt geht's.
Im großen nicht.
------------------------------------------
und wie heißen die Bezeichner für den Hintergrund und die beiden Pfeile ?


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz