avanderw

private const matrix:Array = [
  		0.3, 0.59, 0.11, 0, 0,
		0.3, 0.59, 0.11, 0, 0,
		0.3, 0.59, 0.11, 0, 0,
		  0,    0,    0, 1, 0];
private const zero:Point = new Point();

grayscale.bitmapData.applyFilter(image.bitmapData, image.getRect(image), zero, new ColorMatrixFilter(matrix));

njsmith

import sys
import subprocess
import csv

def describe_ucrt_lib(platform):
    lib_path = "windows-10-sdk/Lib/10.0.10240.0/ucrt/{}/ucrt.lib".format(platform)
    output = subprocess.check_output(["nm", lib_path])
    output = output.decode("utf-8")

    # Output (x86 32-bit) looks like:

jimmckeeth

#!/bin/bash
# 
# Download and execute with the following:
# curl -L https://embt.co/SetupUbuntu4Delphi22 | bash
#
echo "Updating the local package directory"
sudo apt update 
echo "Upgrading any outdated pacakges"
sudo apt full-upgrade -y
echo "Install new packages necessary for Delphi & FMXLinux"

viniciusfbb

unit DeviceModel.iOS;

interface

function GetDeviceModelName: string;
function GetDeviceModelPrettyName: string;

implementation

uses

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

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);

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 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
  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

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';