viniciusfbb

program SkiaBlur2;

uses
  System.StartUpCopy,
  FMX.Forms,
  FMX.Skia,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

viniciusfbb

function GetResizedImage(const AImage: ISkImage; ATargetWidth, ATargetHeight: Integer;
  ASamplingOptions: TSkSamplingOptions; AProgressive: Boolean = True): ISkImage;

  function MakeResized(const AImage: ISkImage; ANewWidth, ANewHeight: Integer): ISkImage;
  var
    LSurface: ISkSurface;
  begin
    LSurface := TSkSurface.MakeRaster(ANewWidth, ANewHeight);
    LSurface.Canvas.Clear(0);
    LSurface.Canvas.Scale(ANewWidth / AImage.Width, ANewHeight / AImage.Height);

viniciusfbb

viniciusfbb

uses
  Skia, Skia.FMX.Graphics;

procedure TForm1.SkPaintBox1Draw(ASender: TObject; const ACanvas: ISkCanvas;
  const ADest: TRectF; const AOpacity: Single);
var
  LTextLayout: TSkTextLayout;
  LPaint: ISkPaint;
begin
  LTextLayout := TSkTextLayout.Create;

viniciusfbb

function KeyName(const AKey: Word): string;
begin
  case AKey of
    1: Result := 'vkLButton';
    2: Result := 'vkRButton';
    3: Result := 'vkCancel';
    4: Result := 'vkMButton';
    5: Result := 'vkXButton1';
    6: Result := 'vkXButton2';
    8: Result := 'vkBack';

viniciusfbb

uses
  System.UITypes, Skia;

function GetResizedImage(const AImage: ISkImage; const ANewWidth, ANewHeight: Integer): ISkImage;
var
  LSurface: ISkSurface;
begin
  LSurface := TSkSurface.MakeRaster(ANewWidth, ANewHeight);
  LSurface.Canvas.Clear(TAlphaColors.Null);
  LSurface.Canvas.Scale(ANewWidth / AImage.Width, ANewHeight / AImage.Height);

viniciusfbb

unit Skia.FitAndCrop;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Math,
  System.Math.Vectors, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics,
  FMX.Objects, Skia, Skia.FMX;

type

viniciusfbb

uses
  iPub.Rtl.Refit; // https://github.com/viniciusfbb/ipub-refit

type
  TLogMessageLevel = (Info, Warning, Error);

  TLogMessage = record
    Dt: TDateTime;
    Level: TLogMessageLevel;
    &Message: string;

viniciusfbb

unit StrokePathGradient;

interface

uses
  System.UITypes, Skia;

procedure DrawPathEndSmothing(const ACanvas: ISkCanvas; const APath: ISkPath;
  const APaint: ISkPaint; const AInnerColor, AOuterColor: TAlphaColor;
  AStart, AStop: Single; const AInterpolations: Integer);

jimmckeeth

@echo off
REM Call from Delphi/RAD Studio IDE with the following parameters
REM $PATH($EXENAME) $NAMEONLY($PROJECT)
echo =============================================================
echo Be sure you Compile Android 64 and Deploy [Shift-Ctrl-Alt-F9]
echo. 
echo Also set <application android:resizeableActivity="true"> in AndroidManifest.template.xml
echo =============================================================
echo Path: %1
set apk=%2\bin\%2.apk