fixed a color inversion bug on Android.

* fixed path issue in FMX Demo

QRCodeGenLib.Demo/src/uQrCodeGeneratorDemoFMX.pas

@@ -4,6 +4,7 @@ interface
 
 uses
   SysUtils,
+  IOUtils,
   UITypes,
   FMX.Dialogs,
   FMX.Graphics,
@@ -269,10 +270,8 @@ var
   LFilePath: String;
   LBitmap: TBitmap;
 begin
-  LFilePath := ExtractFilePath(ParamStr(0));
-  LFilePath := IncludeTrailingPathDelimiter(LFilePath);
-  LFilePath := IncludeTrailingPathDelimiter(LFilePath) + FolderName;
-  LFilePath := IncludeTrailingPathDelimiter(LFilePath);
+
+  LFilePath := TPath.Combine(TPath.GetSharedDocumentsPath, FolderName);
 
   if not DirectoryExists(LFilePath) then
   begin
@@ -283,13 +282,17 @@ begin
       Exit;
     end;
   end;
-  LFilePath := LFilePath + AFileName;
+
+  LFilePath := TPath.Combine(LFilePath, AFileName);
   // create bmp
   LBitmap := AQrCode.ToBmpImage(AScale, ABorder);
   try
     try
+{$IF DEFINED(MSWINDOWS) OR DEFINED(MACOS)}
+      // bmp is only supported on Windows and MACOS
       // save bmp
       LBitmap.SaveToFile(LFilePath + '.bmp');
+{$ENDIF}
       // save jpeg
       LBitmap.SaveToFile(LFilePath + '.jpg');
       // save png

QRCodeGenLib/src/QRCodeGen/QlpQrCode.pas

@@ -14,7 +14,6 @@ uses
   Vcl.Imaging.pngimage, // for VCL PNG Support
 {$ELSEIF DEFINED(FMX)}
   FMX.Graphics,
-  FMX.Utils,
   UIConsts,
   UITypes,
 {$ELSEIF DEFINED(LCL)}
@@ -1148,7 +1147,6 @@ var
   LDoColor: Boolean;
   LBrushColor: TColor;
   LForegroundColor, LBackgroundColor: TColor;
-  LScanLine: PAlphaColorArray;
   LBitData: TBitmapData;
 begin
   Result := TBitmap.Create;
@@ -1162,7 +1160,6 @@ begin
     try
       for LColumn := 0 to System.Pred(Result.Height) do
       begin
-        LScanLine := LBitData.GetScanLine(LColumn);
         for LRow := 0 to System.Pred(Result.Width) do
         begin
           LDoColor := GetModule((LRow div AScale) - ABorder,
@@ -1175,9 +1172,7 @@ begin
           begin
             LBrushColor := LBackgroundColor;
           end;
-          // Slow !!!
-          // LBitData.SetPixel(LRow, LColumn, LBrushColor);
-          LScanLine^[LRow] := LBrushColor;
+          LBitData.SetPixel(LRow, LColumn, LBrushColor);
         end;
 
       end;