lowlevelunit.pas: remove Graphics dependencies and tColor2tRgb and tRgb2tColor

1 files changed, 1 insertions, 15 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index 7ca246a..2bf7d91 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -5,7 +5,7 @@ unit lowlevelunit;
 interface
 
 uses
-  math, Classes, SysUtils, RegExpr, process, FPimage, Graphics;
+  math, Classes, SysUtils, RegExpr, process, FPimage;
 
 {$IFDEF CPU64}
 type
@@ -100,8 +100,6 @@ function andFarben(a,b: tRGB): tRGB; inline;
 function wertZuFarbe(x: extended; p: tRGBArray): tRGB;
 function tFPColor2tRgb(c: tFPColor): tRGB; inline;
 function tRgb2tFPColor(c: tRGB): tFPColor; inline;
-function tColor2tRgb(c: tColor): tRGB; inline;
-function tRgb2tColor(c: tRGB): tColor; inline;
 function rgb(r,g,b: byte): tRGB; inline;
 function strToTRGB(s: string; out rgb: tRGB): boolean;
 procedure myDebugLnThreadLog(s: string);
@@ -703,18 +701,6 @@ begin
   result.blue:=c.rgbBlue;
 end;
 
-function tColor2tRgb(c: tColor): tRGB;
-begin
-  result.rgbRed:=c and $ff;
-  result.rgbGreen:=(c shr 8) and $ff;
-  result.rgbBlue:=(c shr 16) and $ff;
-end;
-
-function tRgb2tColor(c: tRGB): tColor;
-begin
-  result:=c.rgbRed or (c.rgbGreen shl 8) or (c.rgbBlue shl 16);
-end;
-
 function rgb(r,g,b: byte): tRGB;
 begin
   result.rgbRed:=r;