FMX TButton Hintergrundfarbe

[luisk]

Hallo,
wie kann ich bei einen FMX TButton die Hintergrundfarbe einstellen ?
Das sollte doch über StyleName gehen.
Gibt es dazu Beispiele ?

[luisk]

über Button RechtsClick im Formulareditor komme ich auf
"Benutzerdefinierten Stil bearbeiten" dann erscheint der Firemonkey Stil-Designer under im Objektinspektor erscheint "TButtonStyleTextObject"
mit recht vielen Eigenschaften.
Ich ändere das Attribut Color, betätige visuell binden
dann kommt der Live Binding Designer. Dort wähle ich meinen Button an
und betätige "Übernehmen und schließen", komme wieder in den Formulareditor.
Und was tut sich ? - nichts.

Wo liegen den die Geheimnisse bei dieser Technik ?

[Mavarik]

Zitat von luisk:

über Button RechtsClick im Formulareditor komme ich auf
"Benutzerdefinierten Stil bearbeiten" dann erscheint der Firemonkey Stil-Designer under im Objektinspektor erscheint "TButtonStyleTextObject"
mit recht vielen Eigenschaften.
Ich ändere das Attribut Color, betätige visuell binden
dann kommt der Live Binding Designer. Dort wähle ich meinen Button an
und betätige "Übernehmen und schließen", komme wieder in den Formulareditor.
Und was tut sich ? - nichts.

Wo liegen den die Geheimnisse bei dieser Technik ?

visuell binden?

Das hat nix mit dem Style zu tun...

Wenn Du den Styledesigner hast ist da ein Link für Hot,Focued,Normal und Pressed enthalten.

Diesen Link must Du auf den Bereich der Grafik legen, der Deine Farbe hat... (z.B.)

[luisk]

ist das irgendwo beschrieben ?
Ich finde "NormalColor", "HotColor" ...

Die Textfarbe kann ich damit umschalten.
Wie komme ich an den Hintergrund ?

[Mavarik]

OK dann hast Du kein Windows 10?

Das ist das "gleiche"...

Bei wird halt, wenn ich eine FMX App / Target Windows nehme der Win10 *.png als Style genommen...

[Sir Rufo]

Zitat von luisk:

ist das irgendwo beschrieben ?
Ich finde "NormalColor", "HotColor" ...

Die Textfarbe kann ich damit umschalten.
Wie komme ich an den Hintergrund ?

Wenn man den Hintergrund (engl. Background) ändern möchte, dann liegt es doch nahe wo zu schauen?

Code:

buttonstyle
- background
- glyphstyle
- text

[luisk]

also beim Button direkt finde nix bei den Eigenschaften mit B wie Background

wenn ich dann mit rechtsClick auf benutzerdefinierten Stil gehe,
komme ich auf einen neuen Editor mit nem Rechteck drin.
Wenn ich dieses Rechteck anklicke, kommt im Objektinspektor TButtonsstyleTextObject.
Klar, das ist der "Text"
Wo finde ich den Background ? (der fehlt mir in 2-facher Hinsicht)

[Sir Rufo]

Zitat von luisk:

kannst Du mal in ganzen Sätzen reden/schreiben ?

Gerne:

• Bau dir eine Schablone mit dem Wort background
• Öffne den Style-Editor für so einen Button
• Die eben gebaute Schablone verschiebst du nun so lange auf dem Monitor, bis du das Wort auf der Schablone gefunden hast. (Jetzt bist du schon ganz nah dran)
  Kleiner Hinweis: Schaue in das Struktur-Fenster (idR oben links)
  http://docwiki.embarcadero.com/RADSt...Style_Designer
• Klicke mit der Maus auf dieses gefundene Element unter der Schablone.
• Jetzt musst du den Blick wieder von der Schablone nehmen und in den OI schauen, dort sind ganz viele Einträge, die z.B. HotLink, NormalLink, etc. heißen

[luisk]

ich komme jetzt zunächst mal über benutzerdefinierten Style und "Struktur"
auf Background: TButtonstyleObject
Dort gibt es einen Normallink dort ist (TBitmaplinks) eingetragen
Darauf hin öffnet sich ein Bitmap-Links Editor
dort finde ich eine Schablone, wenn ich die über "Windows10 Desktopstyle.png" verschiebe und dann den Bitmap-Links-Editor
schließe, habe ich das Bitmuster auf dem Button.

und über + kann ich mir im Bitmap-Links Editor weitere Bitmaps bereitlegen.

[luisk]

und wie kann ich Beschreibungen dieser Art bearbeiten ?

Code:

object TStyleContainer
  object TLayout
    StyleName = 'RedRoundButtonStyle'
    DesignVisible = False
    Height = 52.000000000000000000
    Position.X = 424.000000000000000000
    Position.Y = 494.000000000000000000
    Width = 118.000000000000000000
    object TRoundRect
      StyleName = 'background'
      Align = alContents
      Fill.Kind = bkGradient
      Fill.Gradient.Points = <
        item
          Color = xFFD40F0F
          Offset = 0.108974359929561600
        end
        item
          Color = claWhite
          Offset = 1.000000000000000000
        end>
      Fill.Gradient.StartPosition.X = 0.500000000000000000
      Fill.Gradient.StartPosition.Y = 1.000000000000000000
      Fill.Gradient.StopPosition.X = 0.499999970197677600
      Fill.Gradient.StopPosition.Y = 0.000000000000000000
      Height = 52.000000000000000000
      Width = 118.000000000000000000
      object TInnerGlowEffect
        StyleName = 'InnerGlowEffect'
        Softness = 0.400000005960464500
        GlowColor = xFF4F4848
        Opacity = 0.899999976158142100
        Trigger = 'IsPressed=true'
      end
    end
    object TText
      StyleName = 'text'
      Align = alContents
      Color = claWhite
      Height = 52.000000000000000000
      Text = 'AAA'
      Width = 118.000000000000000000
    end
  end
object TLayout
    StyleName = 'BlueRoundButtonStyle'
    DesignVisible = False
    Height = 52.000000000000000000
    Position.X = 424.000000000000000000
    Position.Y = 494.000000000000000000
    Width = 118.000000000000000000
    object TRoundRect
      StyleName = 'background'
      Align = alContents
      Fill.Kind = bkGradient
      Fill.Gradient.Points = <
        item
          Color = xFFD40F0F
          Offset = 0.108974359929561600
        end
        item
          Color = claWhite
          Offset = 1.000000000000000000
        end>
      Fill.Gradient.StartPosition.X = 0.500000000000000000
      Fill.Gradient.StartPosition.Y = 1.000000000000000000
      Fill.Gradient.StopPosition.X = 0.499999970197677600
      Fill.Gradient.StopPosition.Y = 0.000000000000000000
      Height = 52.000000000000000000
      Width = 118.000000000000000000
      object TInnerGlowEffect
        StyleName = 'InnerGlowEffect'
        Softness = 0.400000005960464500
        GlowColor = xFF4F4848
        Opacity = 0.899999976158142100
        Trigger = 'IsPressed=true'
      end
    end
    object TText
      StyleName = 'text'
      Align = alContents
      Color = claWhite
      Height = 52.000000000000000000
      Text = 'AAA'
      Width = 118.000000000000000000
    end
  end
end