This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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); |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
uses | |
iPub.Rtl.Refit; // https://github.com/viniciusfbb/ipub-refit | |
type | |
TLogMessageLevel = (Info, Warning, Error); | |
TLogMessage = record | |
Dt: TDateTime; | |
Level: TLogMessageLevel; | |
&Message: string; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unit DeviceModel.iOS; | |
interface | |
function GetDeviceModelName: string; | |
function GetDeviceModelPrettyName: string; | |
implementation | |
uses |
NewerOlder