viniciusfbb

// 1. Enable Skia on your project (right click on project > Enable Skia);
// 2. Add one TImage as the background;
// 3. Add one TSkPaintBox in front of the TImage and add the follow code on the TSkPaintBox.OnDraw event:

uses
  System.Math;

procedure TForm1.SkPaintBox1Draw(ASender: TObject; const ACanvas: ISkCanvas;
  const ADest: TRectF; const AOpacity: Single);
var

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

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 480
  ClientWidth = 580
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate

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

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 442
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12

viniciusfbb

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 442
  ClientWidth = 628
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12

viniciusfbb

{************************************************************************}
{                                                                        }
{                              Skia4Delphi                               }
{                                                                        }
{ Copyright (c) 2011-2022 Google LLC.                                    }
{ Copyright (c) 2021-2022 Skia4Delphi Project.                           }
{                                                                        }
{ Use of this source code is governed by a BSD-style license that can be }
{ found in the LICENSE file.                                             }
{                                                                        }