diff --git a/Samples/# Default Sample/DefaultSample.dproj b/Samples/# Default Sample/DefaultSample.dproj
index 5aec85b..e6f1baa 100644
--- a/Samples/# Default Sample/DefaultSample.dproj
+++ b/Samples/# Default Sample/DefaultSample.dproj
@@ -5,10 +5,11 @@
FMX
True
Debug
- iOSSimARM64
+ Win32
693267
Application
DefaultSample.dpr
+ DefaultSample
true
@@ -256,6 +257,7 @@
$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png
$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png
$(BDS)\bin\Artwork\iOS\iPad\FM_NotificationIcon_40x40.png
+ ..\..\src\;$(DCC_UnitSearchPath)
fmx;DbxCommonDriver;bindengine;IndyIPCommon;emsclient;IndyProtocols;dbxcds;FireDACSqliteDriver;DbxClientDriver;soapmidas;dbexpress;inet;FireDACDBXDriver;CustomIPTransport;IndySystem;FireDACCommon;bindcompdbx;rtl;DBXSqliteDriver;DataSnapFireDAC;FireDAC;xmlrtl;dsnap;DataSnapNativeClient;FireDACCommonDriver;IndyIPClient;bindcompfmx;fmxFireDAC;DataSnapCommon;fmxase;dbrtl;DBXInterBaseDriver;bindcomp;IndyCore;RESTBackendComponents;RESTComponents;IndyIPServer;dsnapxml;DataSnapClient;DataSnapProviderClient;emsclientfiredac;FireDACDSDriver;tethering;CloudService;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
@@ -289,12 +291,20 @@
CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface
Debug
true
+ ..\..\src\;$(DCC_UnitSearchPath)
+ /usr/X11/bin/xterm -e "%debuggee%"
+ (None)
+ none
DataSnapServer;fmx;DbxCommonDriver;bindengine;IndyIPCommon;FireDACCommonODBC;emsclient;IndyProtocols;dbxcds;DBXFirebirdDriver;FireDACSqliteDriver;DbxClientDriver;soapmidas;dbexpress;inet;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;IndySystem;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;bindcompdbx;rtl;FireDACMySQLDriver;DBXSqliteDriver;DataSnapFireDAC;inetdbxpress;FireDAC;xmlrtl;dsnap;DBXOracleDriver;DBXInformixDriver;fmxobj;DataSnapNativeClient;FireDACCommonDriver;IndyIPClient;bindcompfmx;inetdb;FireDACASADriver;fmxFireDAC;DBXMySQLDriver;DataSnapCommon;fmxase;dbrtl;FireDACOracleDriver;DataSnapIndy10ServerTransport;DBXInterBaseDriver;FireDACMongoDBDriver;FireDACTDataDriver;bindcomp;IndyCore;RESTBackendComponents;RESTComponents;IndyIPServer;dsnapxml;DataSnapClient;DataSnapProviderClient;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;CloudService;DBXSybaseASADriver;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundleShortVersionString=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;NSCalendarsUsageDescription=The reason for accessing the calendar data;NSRemindersUsageDescription=The reason for accessing the reminders;NSCameraUsageDescription=The reason for accessing the camera;NSMicrophoneUsageDescription=The reason for accessing the microphone;NSMotionUsageDescription=The reason for accessing the accelerometer;NSDesktopFolderUsageDescription=The reason for accessing the Desktop folder;NSDocumentsFolderUsageDescription=The reason for accessing the Documents folder;NSDownloadsFolderUsageDescription=The reason for accessing the Downloads folder;NSNetworkVolumesUsageDescription=The reason for accessing files on a network volume;NSRemovableVolumesUsageDescription=The reason for accessing files on a removable volume;NSSpeechRecognitionUsageDescription=The reason for requesting to send user data to Apple's speech recognition servers;ITSAppUsesNonExemptEncryption=false;NSBluetoothAlwaysUsageDescription=The reason for accessing the Bluetooth interface
Debug
true
+ ..\..\src\;$(DCC_UnitSearchPath)
+ /usr/X11/bin/xterm -e "%debuggee%"
+ (None)
+ none
SampleListViewMultiDetailAppearancePackage;vclwinx;DataSnapServer;ACBr_TCP;fmx;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;ACBr_OpenSSL;aurelius;appanalytics;IndyProtocols;vclx;Skia.Package.RTL;dbxcds;vcledge;ACBr_BoletoRL;DBXFirebirdDriver;dacvcl290;FireDACSqliteDriver;DbxClientDriver;soapmidas;frCoreLibrary29;dbexpress;vquery290;inet;ACBr_BoletoFPDF;vcltouch;FireDACDBXDriver;fmxdae;tmsbcl;CustomIPTransport;FireDACMSSQLDriver;C4DWizard;ACBr_NFe;IndySystem;ACBr_Diversos;BossExperts;frxe29;vclFireDAC;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;pkgADRIFoodMarket;bindcompdbx;rtl;FireDACMySQLDriver;ACBr_NFeDanfeFR;frce;remotedb;DBXSqliteDriver;DBXSybaseASEDriver;ACBr_Serial;ACBr_Comum;ACBr_NFeDanfeESCPOS;vclimg;DataSnapFireDAC;unidacfmx290;inetdbxpress;FireDAC;xmlrtl;dsnap;xdata;FireDACDb2Driver;DBXOracleDriver;DBXInformixDriver;fmxobj;bindcompvclsmp;DataSnapNativeClient;frx29;DatasnapConnectorsFreePascal;FMXTMSFNCUIPackPkgDXE15;ACBr_OpenDelivery;ACBr_NFeDanfeFPDF;TMSLogging;FMXTMSFNCCorePkgDXE15;emshosting;sparkle;frxDB29;frLocalizationLibrary29;FireDACCommonDriver;sphinx;IndyIPClient;bindcompvclwinx;emsedge;bindcompfmx;crcontrols290;inetdb;FireDACASADriver;vclactnband;fmxFireDAC;FireDACInfxDriver;DBXMySQLDriver;VclSmp;DataSnapCommon;PkgBrasil4D;fmxase;DBXOdbcDriver;dbrtl;FireDACOracleDriver;Skia.Package.FMX;FireDACMSAccDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;FireDACTDataDriver;Skia.Package.VCL;VCLTMSFNCUIPackPkgDXE15;vcldb;ACBr_Integrador;ACBr_PIXCD;ACBr_BoletoFR;unidacvcl290;bindcomp;dacfmx290;MobileExperts;IndyCore;RESTBackendComponents;FireDACADSDriver;MobilePermissions;RESTComponents;IndyIPServer;vcl;dsnapxml;adortl;dsnapcon;DataSnapClient;DataSnapProviderClient;dac290;DBXDb2Driver;ACBr_Boleto;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;bindcompvcl;CloudService;DBXSybaseASADriver;ACBr_NFeDanfeRL;VCLTMSFNCCorePkgDXE15;soaprtl;unidac290;soapserver;FireDACIBDriver;$(DCC_UsePackage)
@@ -307,6 +317,7 @@
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
none
+ ..\..\src\;$(DCC_UnitSearchPath)
vclwinx;DataSnapServer;fmx;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;appanalytics;IndyProtocols;vclx;dbxcds;vcledge;DBXFirebirdDriver;FireDACSqliteDriver;DbxClientDriver;soapmidas;frCoreLibrary29;dbexpress;inet;vcltouch;FireDACDBXDriver;fmxdae;CustomIPTransport;FireDACMSSQLDriver;IndySystem;frxe29;vclFireDAC;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;bindcompdbx;rtl;FireDACMySQLDriver;DBXSqliteDriver;DBXSybaseASEDriver;vclimg;DataSnapFireDAC;inetdbxpress;FireDAC;xmlrtl;dsnap;FireDACDb2Driver;DBXOracleDriver;DBXInformixDriver;fmxobj;bindcompvclsmp;DataSnapNativeClient;frx29;DatasnapConnectorsFreePascal;FMXTMSFNCUIPackPkgDXE15;FMXTMSFNCCorePkgDXE15;emshosting;frxDB29;frLocalizationLibrary29;FireDACCommonDriver;IndyIPClient;bindcompvclwinx;emsedge;bindcompfmx;inetdb;FireDACASADriver;vclactnband;fmxFireDAC;FireDACInfxDriver;DBXMySQLDriver;VclSmp;DataSnapCommon;fmxase;DBXOdbcDriver;dbrtl;FireDACOracleDriver;FireDACMSAccDriver;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;FireDACTDataDriver;Skia.Package.VCL;VCLTMSFNCUIPackPkgDXE15;vcldb;bindcomp;IndyCore;RESTBackendComponents;FireDACADSDriver;RESTComponents;IndyIPServer;vcl;dsnapxml;adortl;dsnapcon;DataSnapClient;DataSnapProviderClient;DBXDb2Driver;emsclientfiredac;FireDACPgDriver;FireDACDSDriver;tethering;bindcompvcl;CloudService;DBXSybaseASADriver;VCLTMSFNCCorePkgDXE15;soaprtl;soapserver;FireDACIBDriver;$(DCC_UsePackage)
@@ -318,6 +329,8 @@
$(BDS)\bin\default_app.manifest
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+ ..\..\src\;$(DCC_UnitSearchPath)
+ none
DEBUG;$(DCC_Define)
diff --git a/Samples/# Default Sample/DefaultSample.res b/Samples/# Default Sample/DefaultSample.res
index 36f26e2..26fb920 100644
Binary files a/Samples/# Default Sample/DefaultSample.res and b/Samples/# Default Sample/DefaultSample.res differ
diff --git a/src/MultiLog4D.Android.pas b/src/MultiLog4D.Android.pas
index 432425a..507340c 100644
--- a/src/MultiLog4D.Android.pas
+++ b/src/MultiLog4D.Android.pas
@@ -7,10 +7,13 @@ interface
Multilog4D.Base,
Multilog4D.Types,
- Multilog4D.Interfaces,
- Androidapi.Helpers,
- Androidapi.JNI.JavaTypes,
- Androidapi.JNI.Util;
+ Multilog4D.Interfaces
+ {$IFDEF ANDROID}
+ ,Androidapi.Helpers
+ ,Androidapi.JNI.JavaTypes
+ ,Androidapi.JNI.Util
+ {$ENDIF}
+ ;
type
TMultiLog4DAndroid = class(TMultiLog4DBase)
diff --git a/src/MultiLog4D.Base.pas b/src/MultiLog4D.Base.pas
index e776a75..8137f08 100644
--- a/src/MultiLog4D.Base.pas
+++ b/src/MultiLog4D.Base.pas
@@ -18,7 +18,6 @@ TMultiLog4DBase = class(TInterfacedObject, IMultiLog4D)
private
protected
- class var FCont : Integer;
class var FTag: string;
class var FTagSet: Boolean;
function GetDefaultTag: string;
@@ -44,7 +43,6 @@ function TMultiLog4DBase.GetDefaultTag: string;
function TMultiLog4DBase.Tag(const ATag: string): IMultiLog4D;
begin
- FCont := 0;
if (ATag <> EmptyStr) and not FTagSet then
begin
FTag := ATag;
diff --git a/src/MultiLog4D.Factory.pas b/src/MultiLog4D.Factory.pas
index d4c4bb2..915c050 100644
--- a/src/MultiLog4D.Factory.pas
+++ b/src/MultiLog4D.Factory.pas
@@ -23,6 +23,7 @@ implementation
{$IFDEF IOS}
MultiLog4D.IOS;
{$ENDIF}
+ System.Classes;
class constructor TLogFactory.Create;
begin
diff --git a/src/MultiLog4D.iOS.pas b/src/MultiLog4D.iOS.pas
index ae12062..3412d42 100644
--- a/src/MultiLog4D.iOS.pas
+++ b/src/MultiLog4D.iOS.pas
@@ -31,8 +31,6 @@ implementation
function TMultiLog4DiOS.LogWrite(const AMsg: string; const ALogType: TLogType): IMultiLog4D;
begin
- NSLog(StringToID(FTag + GetLogPrefix(ltWarning) + AMsg + ' - ' + IntToStr(FCont)));
- exit;
case ALogType of
ltWarning: LogWriteWarning(AMsg);
ltError: LogWriteError(AMsg);
@@ -44,7 +42,6 @@ function TMultiLog4DiOS.LogWrite(const AMsg: string; const ALogType: TLogType):
function TMultiLog4DiOS.LogWriteInformation(const AMsg: string): IMultiLog4D;
begin
- exit;
{$IFDEF IOS}
NSLog(StringToID(FTag + GetLogPrefix(ltInformation) + AMsg));
{$ENDIF}
@@ -53,7 +50,6 @@ function TMultiLog4DiOS.LogWriteInformation(const AMsg: string): IMultiLog4D;
function TMultiLog4DiOS.LogWriteWarning(const AMsg: string): IMultiLog4D;
begin
- exit;
{$IFDEF IOS}
NSLog(StringToID(FTag + GetLogPrefix(ltWarning) + AMsg));
{$ENDIF}
@@ -63,7 +59,6 @@ function TMultiLog4DiOS.LogWriteWarning(const AMsg: string): IMultiLog4D;
function TMultiLog4DiOS.LogWriteError(const AMsg: string): IMultiLog4D;
begin
- exit;
{$IFDEF IOS}
NSLog(StringToID(FTag + GetLogPrefix(ltError) + AMsg));
{$ENDIF}
@@ -73,7 +68,6 @@ function TMultiLog4DiOS.LogWriteError(const AMsg: string): IMultiLog4D;
function TMultiLog4DiOS.LogWriteFatalError(const AMsg: string): IMultiLog4D;
begin
- exit;
{$IFDEF IOS}
NSLog(StringToID(FTag + GetLogPrefix(ltFatalError) + AMsg));
{$ENDIF}