Funktion RGB neu in lowlvelunit.pas

1 files changed, 8 insertions, 0 deletions

diff --git a/lowlevelunit.pas b/lowlevelunit.pas
index a113835..e9991ed 100644
--- a/lowlevelunit.pas
+++ b/lowlevelunit.pas
@@ -64,6 +64,7 @@ function andFarben(a,b: tRGB): tRGB;
 function wertZuFarbe(x: extended; p: tRGBArray): tRGB;
 function tFPColor2tRgb(c: tFPColor): tRGB;
 function tRgb2tFPColor(c: tRGB): tFPColor;
+function rgb(r,g,b: byte): tRGB; inline;
 procedure myDebugLnThreadLog(s: string);
 procedure cleanupLogs;
 procedure cleanupLog(tid: PtrUInt);
@@ -487,6 +488,13 @@ begin
  result.blue:=c.rgbBlue;
 end;
 
+function rgb(r,g,b: byte): tRGB;
+begin
+ result.rgbRed:=r;
+ result.rgbGreen:=g;
+ result.rgbBlue:=b;
+end;
+
 procedure myDebugLnThreadLog(s: string);
 var f:  textfile;
     id: PtrUInt;