Personale/Router4Delphi
1
0
Fork 0
mirror of https://github.com/CloudDelphi/Router4Delphi.git synced 2025-12-19 16:53:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

correção para o sidebar

Browse Source
This commit is contained in:
ALESSANDRO MEDEIROS 2021-03-04 11:22:07 -03:00
parent e64219580d
commit 5cefa16690
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Router4D.Sidebar.pas
View File

@ -1,7 +1,10 @@
unit Router4D.Sidebar; unit Router4D.Sidebar;
{$I Router4D.inc}
interface interface
{$IFDEF HAS_FMX}
uses uses
Classes, Classes,
SysUtils, SysUtils,
@ -180,5 +183,8 @@ class function TRouter4DSidebar.New: iRouter4DSidebar;
begin begin
Result := Self.Create; Result := Self.Create;
end; end;
{$ELSE}
implementation
{$ENDIF}
end. end.

2
src/Router4D.inc
View File

@ -1 +1 @@
{$DEFINE HAS_FMX} //{$DEFINE HAS_FMX}

6
src/Router4D.pas
View File

@ -30,7 +30,9 @@ type
class function Render<T : class, constructor> : iRouter4DRender; class function Render<T : class, constructor> : iRouter4DRender;
class function Link : iRouter4DLink; class function Link : iRouter4DLink;
class function Switch : iRouter4DSwitch; class function Switch : iRouter4DSwitch;
{$IFDEF HAS_FMX}
class function SideBar : iRouter4DSidebar; class function SideBar : iRouter4DSidebar;
{$ENDIF}
end; end;
implementation implementation
@ -82,12 +84,12 @@ begin
) )
); );
end; end;
{$IFDEF HAS_FMX}
class function TRouter4D.SideBar: iRouter4DSidebar; class function TRouter4D.SideBar: iRouter4DSidebar;
begin begin
Result := TRouter4DSidebar.New; Result := TRouter4DSidebar.New;
end; end;
{$ENDIF}
class function TRouter4D.Switch: iRouter4DSwitch; class function TRouter4D.Switch: iRouter4DSwitch;
begin begin
Result := TRouter4DSwitch.New; Result := TRouter4DSwitch.New;