AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

FMX TButton Hintergrundfarbe

Ein Thema von luisk · begonnen am 28. Dez 2015 · letzter Beitrag vom 24. Apr 2016
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#21

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 14:09
Das es klappt ein TRectangle als Schaltfläche zu verwenden habe ich auch nicht bestritten, aber wenn man schon mit OOP um sich wirft, dann sollte man sich doch fragen, ob es nicht besser ist alle Schaltflächen von einer Basis abzuleiten.

Dann wird auch ein Schuh daraus.
Das wird ja dann auch meine Standardschaltfläche.
  Mit Zitat antworten Zitat
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#22

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 15:14
CL_Button mit Farbverlauf
on_MouseEnter/Leave schaltet die Farben um. (Farben werden noch dynamisch gestaltet)
Delphi-Quellcode:
//-------------------------------------------------------------------------
constructor CL_Button.create(in_Owner:TComponent);
begin
    inherited create(in_Owner);
    
    onMouseEnter:=self.on_MouseEnter;
    onMouseLeave:=self.on_MouseLeave;


    lbl_Text := TLabel.Create(self);
    lbl_Text.Parent:=self;
    lbl_Text.Align := lbl_Text.Align.alClient;

     Fill.Kind:= Fill.Kind.bkGradient;
     Fill.Gradient.Points[0].Color:= $FF4FEB2E ;
     Fill.Gradient.Points[0].Offset:= 0 ;
     Fill.Gradient.Points[1].Color:= claWhite ;
     Fill.Gradient.Points[1].Offset:= 1.0 ;
     Fill.Gradient.StartPosition.X := 0.5;
     Fill.Gradient.StartPosition.Y := 1.0;
     Fill.Gradient.StopPosition.X := 0.5;
     Fill.Gradient.StopPosition.Y := 0.0;
     GradientAnimation1:= TGradientAnimation.create(self);
     GradientAnimation1.Duration := 0.2;
     GradientAnimation1.PropertyName := 'Stroke.Gradient';
     GradientAnimation1.StartValue.Points[0].Color:=$FF90E959;
     GradientAnimation1.StartValue.Points[0]. Offset := 0.0;
     GradientAnimation1.StartValue.Points[1].Color:= claWhite;
     GradientAnimation1.StartValue.Points[1].Offset:= 1.0;
     GradientAnimation1.StartValue.StartPosition.X := 0.5;
     GradientAnimation1.StartValue.StartPosition.Y := 1.0;
     GradientAnimation1.StartValue.StopPosition.X := 0.5;
     GradientAnimation1.StartValue.StopPosition.Y := 0.0;
     GradientAnimation1.StopValue.Points[0].Color := claBlack;
     GradientAnimation1.StopValue.Points[0].Offset := 0.0;
     GradientAnimation1.StopValue.Points[1].Color := claWhite ;
     GradientAnimation1.StopValue.Points[1].Offset:= 1.0;
end;
//-------------------------------------------------------------------------
Vorlage:
Code:
 object Rectangle2: TRectangle
          Align = Client
          Fill.Kind = Gradient
          Fill.Gradient.Points = <
            item
              Color = xFF4FEB2E
              Offset = 0.000000000000000000
            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
          Size.Width = 136.000000000000000000
          Size.Height = 49.000000000000000000
          Size.PlatformDefault = False
          OnClick = Rectangle2Click
          OnMouseEnter = Rectangle2MouseEnter
          object GradientAnimation1: TGradientAnimation
            Duration = 0.200000002980232200
            PropertyName = 'Stroke.Gradient'
            StartValue.Points = <
              item
                Color = xFF90E959
                Offset = 0.000000000000000000
              end
              item
                Color = claWhite
                Offset = 1.000000000000000000
              end>
            StartValue.StartPosition.X = 0.500000000000000000
            StartValue.StartPosition.Y = 1.000000000000000000
            StartValue.StopPosition.X = 0.499999970197677600
            StartValue.StopPosition.Y = 0.000000000000000000
            StopValue.Points = <
              item
                Color = claBlack
                Offset = 0.000000000000000000
              end
              item
                Color = claWhite
                Offset = 1.000000000000000000
              end>
          end
        end

Geändert von luisk (29. Dez 2015 um 16:39 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#23

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 17:01
kann man bei TRoundRect eigentlich die Radien ändern
und den Rahmen wegnehmen wie bei TRectangle ?
------------------------------------------------

mit dem PaintEvent ins Canvas (.Fill.Gradient) zeichnen,
sollte wohl die beste Flexibilität bringen.

Geändert von luisk (29. Dez 2015 um 17:11 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#24

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 18:42
Ein TRoundRect beschreibt ein Rechteck, wo die Hälfte der kürzesten Seite den Radius der Ecken bestimmt => Sind Breite und Höhe gleich erhalte ich einen Kreis.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#25

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 19:41
Ein TRoundRect beschreibt ein Rechteck, wo die Hälfte der kürzesten Seite den Radius der Ecken bestimmt => Sind Breite und Höhe gleich erhalte ich einen Kreis.
Diese Einschränkung ist mir auch aufgefallen.

sowas bräuchte man:
https://css-tricks.com/examples/ButtonMaker/

Gibt's das such in Pascal?
man brächte eine Klasse, die CSS nachbildet.

Geändert von luisk (29. Dez 2015 um 19:47 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#26

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 19:47
sowas bräuchte man:
https://css-tricks.com/examples/ButtonMaker/

Gibt's das such in Pascal?
Ja, kann man mit den Styles machen
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#27

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 20:13
gibt's dazu ne Demo oder ein Editor ?

bei dem Bsp. in Css stellt man ja einfach die Radien ein: border-top-left-radius:9px;
Code:
   a.cssButton_X {
              width: auto;
              color: #000000;
              background:-webkit-gradient(linear, left top, left bottom, color-stop(0.05, #b8e356), color-stop(1, #a5cc52));
         background:#66CD00;
         font-family:Arial;
         font-size:10px;
         font-weight:bold;
         -moz-border-radius-topleft:9px;
                   -webkit-border-top-left-radius:9px;
                   border-top-left-radius:9px;   
         padding: 1px 4px 1px 4px;
         margin: 1px 1px 1px 1px;
         font-weight: bold;
         font-size: 12px;
         text-decoration: none;
         text-align: center;
         border:0px outset ;
         border-color:#ffffff;
         }

Geändert von luisk (29. Dez 2015 um 20:21 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#28

AW: FMX TButton Hintergrundfarbe

  Alt 29. Dez 2015, 22:20
gibt es sowas für Firemonkey ?

http://www.bestcssbuttongenerator.com/
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.144 Beiträge
 
Delphi 10.3 Rio
 
#29

AW: FMX TButton Hintergrundfarbe

  Alt 30. Dez 2015, 11:57
Ich finde meine Button ganz nett...

Vielleicht ein bischen Oldschool!
Miniaturansicht angehängter Grafiken
button.png  
  Mit Zitat antworten Zitat
Benutzerbild von luisk
luisk

Registriert seit: 18. Mär 2009
402 Beiträge
 
#30

AW: FMX TButton Hintergrundfarbe

  Alt 30. Dez 2015, 12:36
ok, und mit welchem Delphi-Editor macht man sowas ?
Das hat doch nichts mit der ursprünglichen Schablone über dem .png zu tun oder ?

Geändert von luisk (30. Dez 2015 um 12:39 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 6     123 45     Letzte »    


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:55 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