Ya arregle la interfaz
ahora en la aplicacion no me sale el menu draw no entiendo
le doy click y no sale y ademas no puedo cambiar el color del label alguien me puede ayudar?
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Ani,
FMX.StdCtrls, FMX.Controls.Presentation, FMX.ListBox, FMX.Layouts;
type
TForm2 = class(TForm)
ListBox1: TListBox;
ListBoxItem1: TListBoxItem;
ListBoxItem2: TListBoxItem;
ListBoxItem3: TListBoxItem;
ListBoxGroupHeader1: TListBoxGroupHeader;
Panel1: TPanel;
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
AnimationD: TFloatAnimation;
Button1: TButton;
Label1: TLabel;
ListBoxGroupHeader2: TListBoxGroupHeader;
ListBoxItem4: TListBoxItem;
procedure SpeedButton1Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.Windows.fmx MSWINDOWS}
procedure TForm2.Label1Click(Sender: TObject);
begin
Label1.FontColor := $FFFFFF;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
ControlX: single;
begin
ControlX := Self.ClientWidth - 60;
if (Panel1.Position.X = ControlX) then
begin
AnimationD.StartValue:= ControlX;
AnimationD.StopValue:= 0;
end
else begin
AnimationD.StartValue := 0;
AnimationD.StopValue := ControlX;
end;
AnimationD.Start;
end;
end.
|