From 5cefa16690f5a9be97943212e0c6a5521a1a981b Mon Sep 17 00:00:00 2001 From: ALESSANDRO MEDEIROS <37020399+alepmedeiros@users.noreply.github.com> Date: Thu, 4 Mar 2021 11:22:07 -0300 Subject: [PATCH] =?UTF-8?q?corre=C3=A7=C3=A3o=20para=20o=20sidebar?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/Router4D.Sidebar.pas | 6 ++++++ src/Router4D.inc | 2 +- src/Router4D.pas | 6 ++++-- 3 files changed, 11 insertions(+), 3 deletions(-) diff --git a/src/Router4D.Sidebar.pas b/src/Router4D.Sidebar.pas index b4335e1..4bf5a5f 100644 --- a/src/Router4D.Sidebar.pas +++ b/src/Router4D.Sidebar.pas @@ -1,7 +1,10 @@ unit Router4D.Sidebar; +{$I Router4D.inc} + interface +{$IFDEF HAS_FMX} uses Classes, SysUtils, @@ -180,5 +183,8 @@ class function TRouter4DSidebar.New: iRouter4DSidebar; begin Result := Self.Create; end; +{$ELSE} +implementation +{$ENDIF} end. diff --git a/src/Router4D.inc b/src/Router4D.inc index 90c4bdb..cd2a2d7 100644 --- a/src/Router4D.inc +++ b/src/Router4D.inc @@ -1 +1 @@ -{$DEFINE HAS_FMX} \ No newline at end of file +//{$DEFINE HAS_FMX} \ No newline at end of file diff --git a/src/Router4D.pas b/src/Router4D.pas index 654773a..a983892 100644 --- a/src/Router4D.pas +++ b/src/Router4D.pas @@ -30,7 +30,9 @@ type class function Render : iRouter4DRender; class function Link : iRouter4DLink; class function Switch : iRouter4DSwitch; + {$IFDEF HAS_FMX} class function SideBar : iRouter4DSidebar; + {$ENDIF} end; implementation @@ -82,12 +84,12 @@ begin ) ); end; - +{$IFDEF HAS_FMX} class function TRouter4D.SideBar: iRouter4DSidebar; begin Result := TRouter4DSidebar.New; end; - +{$ENDIF} class function TRouter4D.Switch: iRouter4DSwitch; begin Result := TRouter4DSwitch.New;