diff options
Diffstat (limited to 'lowlevelunit.pas')
| -rw-r--r-- | lowlevelunit.pas | 16 |
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; |