A pergunta logo abaixo. Me esqueci de postar os códigos.

01/04/2019

0

unit UntMain;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListBox,
FMX.Layouts, FMX.Objects, FMX.Ani;

type
TfrmMain = class(TForm)
lytMain: TLayout;
lstmnuMain: TListBox;
lstgrpListas: TListBoxGroupHeader;
lstiltitulos: TListBoxItem;
lstitUsuarios: TListBoxItem;
lstitTitulosAlugados: TListBoxItem;
lstgrpConfig: TListBoxGroupHeader;
lstitLogin: TListBoxItem;
AnimateDrawer: TFloatAnimation;
recBackground: TRectangle;
procedure lstgrpListasClick(Sender: TObject);
private
{ Private declarations }
procedure HideMenu;
procedure ShowMenu;
public
{ Public declarations }
end;

var
frmMain: TfrmMain;

implementation

{$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID}

procedure TfrmMain.HideMenu;
begin
lstMnuMain.AnimateFloat('Position.X', -Self.ClientWidth);

AnimateDrawer.StartValue := Self.ClientWidth - 40;
AnimateDrawer.StopValue := 0;
AnimateDrawer.Start;

end;



procedure TfrmMain.ShowMenu;
begin
AnimateDrawer.StartValue :=0;
AnimateDrawer.StopValue := Self.ClientWidth - C_MnuEspaco;
AnimateDrawer.Start;

lstMnuMain.AnimateFloat('position.x', 0);

ShowBackground(Self.lytMain, CancelMenu); </pre>
<pre>
end;

end.

O compilador:

Checking project dependencies...
Compiling LocadoraDelphi.dproj (Debug, Win64)
dcc64 command line for "LocadoraDelphi.dpr"
e:\\app\\bin\\dcc64.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG
-E.\\Win64\\Debug -Ie:\\app\\lib\\Win64\\debug;e:\\app\\lib\\Win64\\release;C:\\Users\\luiz_\\Documents\\Embarcadero\\Studio\\20.0\\Imports;e:\\app\\Imports;
C:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Dcp\\Win64;e:\\app\\include -LEC:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Bpl\\Win64
-LNC:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Dcp\\Win64 -NU.\\Win64\\Debug -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;
System;Xml;Data;Datasnap;Web;Soap; -Oe:\\app\\lib\\Win64\\release;C:\\Users\\luiz_\\Documents\\Embarcadero\\Studio\\20.0\\Imports;e:\\app\\Imports;
C:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Dcp\\Win64;e:\\app\\include -Re:\\app\\lib\\Win64\\release;
C:\\Users\\luiz_\\Documents\\Embarcadero\\Studio\\20.0\\Imports;e:\\app\\Imports;C:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Dcp\\Win64;e:\\app\\include
-Ue:\\app\\lib\\Win64\\debug;e:\\app\\lib\\Win64\\release;C:\\Users\\luiz_\\Documents\\Embarcadero\\Studio\\20.0\\Imports;e:\\app\\Imports;
C:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Dcp\\Win64;e:\\app\\include -V -VN -VR -NBC:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\Dcp\\Win64
-NHC:\\Users\\Public\\Documents\\Embarcadero\\Studio\\20.0\\hpp\\Win64 -NO.\\Win64\\Debug LocadoraDelphi.dpr
[dcc64 Warning] UntMain.pas(41): W1000 Symbol 'AnimateFloat' is deprecated: 'Use FMX.Ani.TAnimator instead'
[dcc64 Error] UntMain.pas(54): E2003 Undeclared identifier: 'C_MnuEspaco'
[dcc64 Warning] UntMain.pas(57): W1000 Symbol 'AnimateFloat' is deprecated: 'Use FMX.Ani.TAnimator instead'
[dcc64 Error] UntMain.pas(59): E2003 Undeclared identifier: 'ShowBackground'
[dcc64 Error] UntMain.pas(59): E2003 Undeclared identifier: 'CancelMenu'
[dcc64 Error] UntMain.pas(59): E2029 Statement expected but '<' found
[dcc64 Error] UntMain.pas(60): E2029 Expression expected but '<' found
[dcc64 Warning] UntMain.pas(60): W1023 Comparing signed and unsigned types - widened both operands
[dcc64 Error] UntMain.pas(61): E2029 Expression expected but 'END' found
[dcc64 Error] UntMain.pas(22): E2065 Unsatisfied forward or external declaration: 'TfrmMain.lstgrpListasClick'
[dcc64 Hint] UntMain.pas(25): H2219 Private symbol 'HideMenu' declared but never used
[dcc64 Hint] UntMain.pas(26): H2219 Private symbol 'ShowMenu' declared but never used
[dcc64 Fatal Error] LocadoraDelphi.dpr(6): F2063 Could not compile used unit 'UntMain.pas'
Failed
Elapsed time: 00:00:01.3

Valeu!
Adriano Freitas

Adriano Freitas

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar