You've already forked lazarus-ccr
c924f3011e
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1684 8e941d3f-bd1b-0410-a28a-d453659cc2b4
90 lines
1.9 KiB
ObjectPascal
90 lines
1.9 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;
|
|
|
|
type
|
|
T10Strings = array[0..9] of shortstring;
|
|
|
|
// Color Conversion routines
|
|
function FPColorToRGBHexString(AColor: TFPColor): string;
|
|
function RGBToFPColor(AR, AG, AB: byte): TFPColor; inline;
|
|
function SeparateString(AString: string; ASeparator: char): T10Strings;
|
|
|
|
implementation
|
|
|
|
function FPColorToRGBHexString(AColor: TFPColor): string;
|
|
begin
|
|
Result := Format('%.2x%.2x%.2x', [AColor.Red shr 8, AColor.Green shr 8, AColor.Blue shr 8]);
|
|
end;
|
|
|
|
function RGBToFPColor(AR, AG, AB: byte): TFPColor; inline;
|
|
begin
|
|
if AR > $100 then Result.Red := (AR shl 8) + $FF
|
|
else Result.Red := AR shl 8;
|
|
|
|
if AR > $100 then Result.Green := (AG shl 8) + $FF
|
|
else Result.Green := AG shl 8;
|
|
|
|
if AR > $100 then Result.Blue := (AB shl 8) + $FF
|
|
else Result.Blue := AB shl 8;
|
|
|
|
Result.Alpha := $FFFF;
|
|
end;
|
|
|
|
{@@
|
|
Reads a string and separates it in substring
|
|
using ASeparator to delimite them.
|
|
|
|
Limits:
|
|
|
|
Number of substrings: 10 (indexed 0 to 9)
|
|
Length of each substring: 255 (they are shortstrings)
|
|
}
|
|
function SeparateString(AString: string; ASeparator: char): T10Strings;
|
|
var
|
|
i, CurrentPart: integer;
|
|
begin
|
|
CurrentPart := 0;
|
|
|
|
{ Clears the result }
|
|
for i := 0 to 9 do
|
|
Result[i] := '';
|
|
|
|
{ Iterates througth the string, filling strings }
|
|
for i := 1 to Length(AString) do
|
|
begin
|
|
if Copy(AString, i, 1) = ASeparator then
|
|
begin
|
|
Inc(CurrentPart);
|
|
|
|
{ Verifies if the string capacity wasn't exceeded }
|
|
if CurrentPart > 9 then
|
|
Exit;
|
|
end
|
|
else
|
|
Result[CurrentPart] := Result[CurrentPart] + Copy(AString, i, 1);
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|