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;
{$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.

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 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;