Apply patches for new version of skia4delphi

[victorfedorenkov]

hi, for new version skia4delphi 6.3.0 your patches for Athens do not work. You can use this command file for merging patched files with new skia4delphi.

Create empty directory Embarcadero\Athens\skia4delphi630\FMX\ and run this code from alcinoe\Embarcadero\Athens\

SET SkiaSourceDir=D:\components\Skia4Delphi\Source

if "%ALBaseDir%"=="" (
  cls  
  Set Standalone=1
  set ALDelphiVersion=23.0
  call "%~dp0\..\..\InitEnvironment.bat"
  IF ERRORLEVEL 1 goto ERROR  
)

FOR /F "tokens=2* skip=2" %%a in ('reg query "HKLM\SOFTWARE\WOW6432Node\Embarcadero\BDS\23.0" /v "RootDir"') do set EmbSourceDir=%%b
set EmbSourceDir=%EmbSourceDir:~0,-1%\source

set skiafile=FMX\FMX.Skia.Canvas.GL.pas
set modified=%SkiaSourceDir%\%skiafile%
set base=%EmbSourceDir%\%skiafile%
set patch=%skiafile%
git merge-file -p "%modified%" "%base%" "%patch%" >> skia4delphi630\%skiafile%

set skiafile=FMX\FMX.Skia.Canvas.Metal.pas
set modified=%SkiaSourceDir%\%skiafile%
set base=%EmbSourceDir%\%skiafile%
set patch=%skiafile%
git merge-file -p "%modified%" "%base%" "%patch%" >> skia4delphi630\%skiafile%

set skiafile=FMX\FMX.Skia.Canvas.pas
set modified=%SkiaSourceDir%\%skiafile%
set base=%EmbSourceDir%\%skiafile%
set patch=%skiafile%
git merge-file -p "%modified%" "%base%" "%patch%" >> skia4delphi630\%skiafile%

set skiafile=FMX\FMX.Skia.Canvas.Vulkan.pas
set modified=%SkiaSourceDir%\%skiafile%
set base=%EmbSourceDir%\%skiafile%
set patch=%skiafile%
git merge-file -p "%modified%" "%base%" "%patch%" >> skia4delphi630\%skiafile%

[Zeus64]

They corrected the bug (https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-1997) in skia4delphi 6.3.0, so you probably do not need the file Alcinoe\Embarcadero\Athens\rtl\common\System.Skia.API.pas anymore (you can delete it)