diff options
| -rw-r--r-- | lowlevelunit.pas | 8 |
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; |