Added IsVisible method to ActionButton

rafael-figueiredo-alves · Nov 13, 2024 · de90981 · de90981
1 parent 4bb6cf9
commit de90981
Show file tree

Hide file tree

Showing 4 changed files with 27 additions and 20 deletions.
diff --git a/eTasks.dpr b/eTasks.dpr
@@ -50,6 +50,7 @@ begin
   ReportMemoryLeaksOnShutdown := True;
   GlobalUseSkia := True;
   Application.Initialize;
+
   {$IFDEF ANDROID}
   eTranslate(TPath.Combine(TPath.GetDocumentsPath, 'translate.json'), 'pt-BR');
   {$ENDIF}
@@ -59,6 +60,5 @@ begin
   {$ENDIF}
 
   Application.CreateForm(TfMain, fMain);
-  Application.CreateForm(TActionButton, ActionButton);
   Application.Run;
 end.
diff --git a/src/Components/Buttons/eTasks.Components.ActionButton.pas b/src/Components/Buttons/eTasks.Components.ActionButton.pas
@@ -38,6 +38,7 @@   TActionButton = class(TForm, iActionButton)
     function isDarkMode(const value: boolean): iActionButton;
     function SetHint(const value: string): iActionButton;
     function OnClick(const Event: TEventoClick): iActionButton;
+    function IsVisible(const Value: Boolean = true): iActionButton;
 
     class function New(const Form: TForm): iActionButton;
   end;
@@ -87,6 +88,12 @@ function TActionButton.isDarkMode(const value: boolean): iActionButton;
   MudaCor.Start;
 end;
 
+function TActionButton.IsVisible(const Value: Boolean): iActionButton;
+begin
+  Result := Self;
+  LayoutActionButton.Visible := Value;
+end;
+
 class function TActionButton.New(const Form: TForm): iActionButton;
 begin
   Result := Self.Create(Form);

diff --git a/src/Components/eTasks.Components.Interfaces.pas b/src/Components/eTasks.Components.Interfaces.pas
@@ -58,6 +58,7 @@ interface
     function isDarkMode(const value: boolean): iActionButton;
     function SetHint(const value: string): iActionButton;
     function OnClick(const Event: TEventoClick): iActionButton;
+    function IsVisible(const Value: Boolean = true): iActionButton;
   end;
 
 implementation

diff --git a/src/View/eTasks.View.Main.pas b/src/View/eTasks.View.Main.pas
@@ -3,10 +3,22 @@
 interface
 
 uses
-  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
-  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Effects,
-  FMX.Objects, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts,
-  eTasks.Components.Interfaces, FMX.MultiView;
+  System.SysUtils,
+  System.Types,
+  System.UITypes,
+  System.Classes,
+  System.Variants,
+  FMX.Types,
+  FMX.Controls,
+  FMX.Forms,
+  FMX.Graphics,
+  FMX.Dialogs,
+  FMX.Effects,
+  FMX.Objects,
+  FMX.Controls.Presentation,
+  FMX.StdCtrls, FMX.Layouts,
+  eTasks.Components.Interfaces,
+  FMX.MultiView;
 
 type
   TTeste = procedure of Object;
@@ -28,8 +40,6 @@   TfMain = class(TForm)
     procedure TranslateUI;
     procedure OpenMenu(sender : TObject);
     procedure OpenAvatarMenu(sender : TObject);
-    procedure Teste(sender : TObject);
-    procedure Teste2(sender : TObject);
   public
     { Public declarations }
   end;
@@ -57,7 +67,7 @@ procedure TfMain.FormCreate(Sender: TObject);
   AppBar.SetButtonAppBarAction(ThemeBtn, SetTheme);
   AppBar.SetButtonAppBarAction(MenuBtn, OpenMenu);
   AppBar.SetButtonAppBarAction(AvatarBtn, OpenAvatarMenu);
-  ActionButton := TComponentButtons.ActionButton(fMain).OnClick(Teste).SetHint('Clique para um teste');
+  ActionButton := TComponentButtons.ActionButton(fMain).OnClick(SetLanguage).SetHint('Clique para um teste');
   TranslateUI;
 end;
 
@@ -104,22 +114,11 @@ procedure TfMain.SetTheme(sender: TObject);
   Self.Fill.Color := TColorPallete.GetColor(Background, fDarkMode);
 end;
 
-procedure TfMain.Teste(sender : TObject);
-begin
-  ShowMessage('Teste');
-  ActionButton.OnClick(Teste2);
-end;
-
-procedure TfMain.Teste2(sender: TObject);
-begin
-  ShowMessage('Outro teste');
-  ActionButton.OnClick(Teste);
-end;
-
 procedure TfMain.TranslateUI;
 begin
   TitleBar.SetTitle(eTranslate.Translate('Main.Title'));
   AppBar.SetTitle(eTranslate.Translate('Main.Title'));
+  ActionButton.SetHint(eTranslate.Translate('Main.Title'));
 end;
 
 end.