FMX TButton Hintergrundfarbe

[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

[Sir Rufo]

Das ist der Inhalt einer Style-Datei, die man mit dem Style-Editor bearbeiten kann, wenn man diese Style-Datei in den Style-Editor lädt.

http://docwiki.embarcadero.com/RADSt...reMonkey-Stils

[luisk]

Danke, muss ich mir auch mal anschauen.

[luisk]

wenn schon OOP denn schon:

Delphi-Quellcode:

  CL_Button = class ( TRectangle )
  private
      :
      :
  public
      lbl_Text:TLabel;
      constructor create();
      destructor destroy();
      :
      :
  end;

[Sir Rufo]

Und diese salbungsvollen Worte mit Code sollen uns jetzt was sagen?

[luisk]

ich bau mir ne eigene Klasse CL_Button aus TRectangle und TLabel als Alternative
TRectangle ist sehr flexibel. Damit kann man ja auch Bilder darstellen.