4 respuestas en este tema

[el-mono]

Hola Gente les comparto un poco de código que descubrí en https://www.youtube....h?v=6J9qKvPfbiI

 

Lo que hace este codigo es que en nuestras aplicaciones Firemonkey nuestros TEdit se comporten como dicta Material Design.

 

Dejo adjunto mi codigo para que jueguen un poco.

delphi

unit Unit7;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.Controls.Presentation, FMX.Edit, FMX.StdCtrls;
 
type  THelperObject = Class Helper for TFMXObject
  Public
   procedure Caption(Desc: String);
End;
 
 
 
type
  TForm7 = class(TForm)
    Edit1: TEdit;
    StyleBook1: TStyleBook;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form7: TForm7;
 
implementation
 
{$R *.fmx}
 
{ THelperObject }
 
procedure THelperObject.Caption(Desc: String);
 var
   lbl :Tlabel;
begin
    lbl := TLabel.create(Self);
    lbl.Text := desc;
    lbl.Name := 'Label'+ self.Name;
    lbl.StyledSettings := [TstyledSetting.Family];
    lbl.Position.X := 3;
    lbl.Position.Y := 0;
    lbl.TextSettings.Font.Size := 18;
    lbl.TextSettings.FontColor := Talphacolors.Darkgrey;
    lbl.Parent := self;
 
end;
 
procedure TForm7.Edit1Enter(Sender: TObject);
var
  runlbl: Tlabel;
begin
  if (Sender as TEdit).text = '' then
    begin
      runlbl := Tlabel((Sender as TEdit).FindComponent('Label' + (Sender as TEdit).Name ));
      runlbl.AnimateFloat('Font.Size',9,0.1, TAnimationtype.InOut,tinterpolationType.Linear);
      runlbl.AnimateFloat('Position.y',-16,0.1, TanimationType.InOut, TInterpolationType.Linear );
      runlbl.FontColor := TAlphacolors.Blue;
    end;
 
end;
 
procedure TForm7.Edit1Exit(Sender: TObject);
var
  runlbl: Tlabel;
begin
  if (Sender as TEdit).text = '' then
    begin
      runlbl := Tlabel((Sender as TEdit).FindComponent('Label' + (Sender as TEdit).Name ));
      runlbl.AnimateFloat('Font.Size',14,0.1, TAnimationtype.InOut,tinterpolationType.Linear);
      runlbl.AnimateFloat('Position.y',3,0.1, TanimationType.InOut, TInterpolationType.Linear );
      runlbl.FontColor := TAlphacolors.Black;
    end;
 
 
end;
 
procedure TForm7.FormCreate(Sender: TObject);
begin
  Edit1.Caption('Nombre');
  Edit2.Caption('Domicilio');
  Edit3.Caption('Telefono');
  Edit4.Caption('Email');
 
end;
 
end.
 

Lo que buscamos conseguir:

 

https://material.io/...xt-fields.html#

 

 

 

  

[Delphius]

Por poco vuelo el hilo al ver el título en inglés.

 

¿Que es esto de Diseño Material? ¿Una nueva "regla" o "guía" que dicta como debiera de comportarse nuestros diseños de GUI?

En el enlace que apuntas, pareciera que esos Edits y estilos con sus funcionalidades parecerían tener más sentido cuando se trata de diseño web y/o en aplicaciones móviles. Para el entorno de escritorio no tanto.

 

Saludos,

[enecumene]

Mi estimado Delphius, Material Design es un framework css+javascript al igual que Bootstrap, Kendo, Telerik, etc.. creado por google..

[Agustin Ortu]

No es un framework, ni tampoco tiene mucho que ver con html o cualquier otra tecnologia web

 

Es simplemente el paradigma de Google de como se deben construir interfaces graficas. Originalmente fue pensado para dispositivos android. Tambien es cierto que hay implementaciones para la web. Te dice cosas como que colores usar, cuando y donde sombrear, el uso de animaciones, la profunidad, el uso de controles en su mayor parte "cuadrados" y no redondeados, etc

 

https://material.io/design/

 

Podria ser el analogo a "metro" de Microsoft para Windows (8 era?), o alguno de los sabores de Linux (GNOME, etc)

[Delphius]

No es un framework, ni tampoco tiene mucho que ver con html o cualquier otra tecnologia web

 

Es simplemente el paradigma de Google de como se deben construir interfaces graficas. Originalmente fue pensado para dispositivos android. Tambien es cierto que hay implementaciones para la web. Te dice cosas como que colores usar, cuando y donde sombrear, el uso de animaciones, la profunidad, el uso de controles en su mayor parte "cuadrados" y no redondeados, etc

 

https://material.io/design/

 

Podria ser el analogo a "metro" de Microsoft para Windows (8 era?), o alguno de los sabores de Linux (GNOME, etc)

 

Gracias por la aclaración Agustín.

Le debería dar alguna leída más detallada, cuando tenga algo de tiempo.

 

Saludos,

PD: Se ha notado tu asuencia estas últimas semanas. ¡No te nos desaparezcas chango!