You've already forked lazarus-ccr
b158b15f34
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1602 8e941d3f-bd1b-0410-a28a-d453659cc2b4
54 lines
1.1 KiB
ObjectPascal
54 lines
1.1 KiB
ObjectPascal
{
|
|
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.
|
|
|