Raygunpewpew1

unit CustomCardGrid;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Generics.Collections, System.Math, FMX.Types, FMX.Controls,
  FMX.Graphics, FMX.Objects, FMX.Layouts, FMX.Ani, FMX.Forms, FMX.Platform,
  System.Skia, FMX.Skia.Canvas, MTGCore, CardPriceTypes;

viniciusfbb

program SkiaBlur2;

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

{$R *.res}

viniciusfbb

unit PixelCopy.Android;

interface

uses
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Graphics;

function CaptureWindowPixels(const AWindow: JWindow): TBitmap;
function CaptureSurfaceHolderPixels(const ASurfaceHolder: JSurfaceHolder): TBitmap;

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;