Added changing of STP bit for any color. Changed some defaults.

2014-04-30 11:54:24 +00:00
parent 29ba53143e
commit 2525e8a802
8 changed files with 109 additions and 59 deletions
--- a/udrawtim.pas
+++ b/udrawtim.pas
@@ -351,7 +351,11 @@ begin

  if (FC.alpha = 0) or (FC.alpha = $8080) then
  begin
-    Grid^.Canvas.Brush.COLOR := clWhite;
+    if (R + G + B)/3 > 128 then
+      Grid^.Canvas.Brush.COLOR := clBlack
+    else
+      Grid^.Canvas.Brush.COLOR := clWhite;
+
    if FC.ALPHA = 0 then
      Rect.Bottom := Rect.Top + ((Rect.Bottom - Rect.Top) div 2)
    else