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;