Vinícius Felipe Botelho Barbosa viniciusfbb
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 crc16; | |
| interface | |
| function CalcCRC16(AData: PByte; ASize: Integer): Word; | |
| implementation | |
| function CalcCRC16(AData: PByte; ASize: Integer): Word; | |
| // Ported from c source: https://stackoverflow.com/a/10569892/2614619 |
viniciusfbb
/ ViaCep.pas
Last active
November 24, 2021 08:21
Via CEP Api (Brazil Zip Code api) for Delphi
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; // From https://github.com/viniciusfbb/ipub-refit | |
| type | |
| TAddress = record | |
| Erro: Boolean; | |
| Cep: string; | |
| Logradouro: string; | |
| Complemento: string; | |
| Bairro: string; |
viniciusfbb
/ Example.pas
Last active
November 1, 2023 12:57
Google Geocoding API for Delphi - AddressToGeolocation and GeolocationToAddress
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 Example; | |
| interface | |
| uses | |
| System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, | |
| FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs; | |
| type | |
| TForm1 = class(TForm) |
viniciusfbb
/ DeviceModel.iOS.pas
Last active
January 21, 2024 20:03
Get the device model name in iOS in Delphi (Firemonkey) applications
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 |
viniciusfbb
/ StrokePathGradient.pas
Last active
June 13, 2022 03:11
[Skia4Delphi] Paint gradient color following a stroke path
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
| function ImageResize(AImage: ISkImage; const ANewWidth, ANewHeight: Integer): ISkImage; | |
| var | |
| LPixels: Pointer; | |
| LImageInfo: TSkImageInfo; | |
| begin | |
| Assert(Assigned(AImage)); | |
| if (ANewWidth <= 0) or (ANewHeight <= 0) then | |
| Exit(nil); | |
| if (AImage.Width = ANewWidth) and (AImage.Height = ANewHeight) then | |
| Exit(AImage); |
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; |
viniciusfbb
/ Skia.FitAndCrop.pas
Last active
August 18, 2023 06:55
Fit and crop a image using Skia4Delphi
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 |
viniciusfbb
/ Sample.Form.Controls.TSkPaintBox.pas
Last active
September 15, 2022 20:19
Signature to SVG with Skia4Delphi
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
| {************************************************************************} | |
| { } | |
| { 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. } | |
| { } |
viniciusfbb
/ Skia.Sample.DropShadow.dfm
Last active
September 18, 2022 03:18
Simple sample to drop shadow in image with skia4delphi
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
| 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 |
OlderNewer