diff --git a/.gitattributes b/.gitattributes index 4a3bfcc975..cc4fb75e97 100644 --- a/.gitattributes +++ b/.gitattributes @@ -2593,6 +2593,7 @@ packages/fpvectorial/src/dxfvectorialreader.pas svneol=native#text/pascal packages/fpvectorial/src/fpvectbuildunit.pas svneol=native#text/pascal packages/fpvectorial/src/fpvectorial.pas svneol=native#text/pascal packages/fpvectorial/src/fpvtocanvas.pas svneol=native#text/pascal +packages/fpvectorial/src/fpvutils.pas svneol=native#text/pascal packages/fpvectorial/src/pdfvectorialreader.pas svneol=native#text/pascal packages/fpvectorial/src/pdfvrlexico.pas svneol=native#text/pascal packages/fpvectorial/src/pdfvrsemantico.pas svneol=native#text/pascal diff --git a/packages/fpvectorial/src/fpvutils.pas b/packages/fpvectorial/src/fpvutils.pas new file mode 100644 index 0000000000..f389df7e2f --- /dev/null +++ b/packages/fpvectorial/src/fpvutils.pas @@ -0,0 +1,53 @@ +{ +fpvutils.pas + +Vector graphics document + +License: The same modified LGPL as the Free Pascal RTL + See the file COPYING.modifiedLGPL for more details + +AUTHORS: Felipe Monteiro de Carvalho + Pedro Sol Pegorini L de Lima +} +unit fpvutils; + +{$ifdef fpc} + {$mode delphi} +{$endif} + +interface + +uses + Classes, SysUtils, Math, + fpvectorial, fpimage; + +// Color Conversion routines +function VColorToFPColor(AVColor: TvColor): TFPColor; inline; +function VColorToRGBHexString(AVColor: TvColor): string; +function RGBToVColor(AR, AG, AB: Byte): TvColor; inline; + +implementation + +function VColorToFPColor(AVColor: TvColor): TFPColor; inline; +begin + Result.Red := AVColor.Red; + Result.Green := AVColor.Green; + Result.Blue := AVColor.Blue; + Result.Alpha := AVColor.Alpha; +end; + +function VColorToRGBHexString(AVColor: TvColor): string; +begin + Result := Format('%.2x%.2x%.2x', [AVColor.Red, AVColor.Green, AVColor.Blue]); +end; + +function RGBToVColor(AR, AG, AB: Byte): TvColor; inline; +begin + Result.Red := AR; + Result.Green := AG; + Result.Blue := AB; + Result.Alpha := 255; +end; + +end. +