pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpvectorial: minor fixes and commenting

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1685 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-06-16 10:56:47 +00:00
parent c924f3011e
commit 91483bb56d
1 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
applications/fpvviewer/fpvectorialsrc/fpvutils.pas
View File

@ -27,10 +27,15 @@ type
// Color Conversion routines // Color Conversion routines
function FPColorToRGBHexString(AColor: TFPColor): string; function FPColorToRGBHexString(AColor: TFPColor): string;
function RGBToFPColor(AR, AG, AB: byte): TFPColor; inline; function RGBToFPColor(AR, AG, AB: byte): TFPColor; inline;
// Other routine
function CanvasCoordsToFPVectorial(AY: Integer; AHeight: Integer): Integer; inline;
function SeparateString(AString: string; ASeparator: char): T10Strings; function SeparateString(AString: string; ASeparator: char): T10Strings;
implementation implementation
{@@ This function is utilized by the SVG writer and some other places, so
it shouldn't be changed.
}
function FPColorToRGBHexString(AColor: TFPColor): string; function FPColorToRGBHexString(AColor: TFPColor): string;
begin begin
Result := Format('%.2x%.2x%.2x', [AColor.Red shr 8, AColor.Green shr 8, AColor.Blue shr 8]); Result := Format('%.2x%.2x%.2x', [AColor.Red shr 8, AColor.Green shr 8, AColor.Blue shr 8]);
@ -38,18 +43,23 @@ end;
function RGBToFPColor(AR, AG, AB: byte): TFPColor; inline; function RGBToFPColor(AR, AG, AB: byte): TFPColor; inline;
begin begin
if AR > $100 then Result.Red := (AR shl 8) + $FF Result.Red := (AR shl 8) + AR;
else Result.Red := AR shl 8; Result.Green := (AG shl 8) + AG;
Result.Blue := (AB shl 8) + AB;
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; Result.Alpha := $FFFF;
end; end;
{@@ Converts the coordinate system from a TCanvas to FPVectorial
The basic difference is that the Y axis is positioned differently and
points upwards in FPVectorial and downwards in TCanvas.
The X axis doesn't change. The fix is trivial and requires only the Height of
the Canvas as extra info.
}
function CanvasCoordsToFPVectorial(AY: Integer; AHeight: Integer): Integer; inline;
begin
Result := AHeight - AY;
end;
{@@ {@@
Reads a string and separates it in substring Reads a string and separates it in substring
using ASeparator to delimite them. using ASeparator to delimite them.