Changeset 288 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Feb 26, 2021, 9:43:24 PM (3 years ago)

Author:

chronos

Message:

• Added: Supported more key bindings.
• Fixed: Wrong default binding for NoOrder (space key).
• Modified: Pushed trunk version to 1.3.0.
• Modified: Update readme.txt with information for development.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -91 +91 @@
 function SetMainTextureByAge(Age: integer): boolean;
 procedure LoadPhrases;
-procedure Texturize(Dest, Texture: TBitmap; TransparentColor: Integer);
+procedure Texturize(Dest, Texture: TBitmap; TransparentColor: Cardinal);
 procedure DarkenImage(Bitmap: TBitmap; Change: Integer);
 function ScaleToNative(Value: Integer): Integer;
@@ -1248 +1248 @@
   i, r, g, b: Integer;
 begin
-  begin
-    for i := 0 to 15 do
-    begin // gradient
-      r := Color and $FF + Brightness[i];
-      if r < 0 then
-        r := 0
-      else if r >= 256 then
-        r := 255;
-      g := Color shr 8 and $FF + Brightness[i];
-      if g < 0 then
-        g := 0
-      else if g >= 256 then
-        g := 255;
-      b := Color shr 16 and $FF + Brightness[i];
-      if b < 0 then
-        b := 0
-      else if b >= 256 then
-        b := 255;
-      ca.Pen.Color := r + g shl 8 + b shl 16;
-      ca.MoveTo(x + dx * i, y + dy * i);
-      ca.LineTo(x + dx * i + Width, y + dy * i + Height);
-    end;
-    ca.Pen.Color := $000000;
-    ca.MoveTo(x + 1, y + 16 * dy + Height);
-    ca.LineTo(x + 16 * dx + Width, y + 16 * dy + Height);
-    ca.LineTo(x + 16 * dx + Width, y);
-  end;
+  for i := 0 to Length(Brightness) - 1 do begin // gradient
+    r := Color and $FF + Brightness[i];
+    if r < 0 then
+      r := 0
+    else if r >= 256 then
+      r := 255;
+    g := Color shr 8 and $FF + Brightness[i];
+    if g < 0 then
+      g := 0
+    else if g >= 256 then
+      g := 255;
+    b := Color shr 16 and $FF + Brightness[i];
+    if b < 0 then
+      b := 0
+    else if b >= 256 then
+      b := 255;
+    ca.Pen.Color := r + g shl 8 + b shl 16;
+    ca.MoveTo(x + dx * i, y + dy * i);
+    ca.LineTo(x + dx * i + Width, y + dy * i + Height);
+  end;
+  ca.Pen.Color := $000000;
+  ca.MoveTo(x + 1, y + 16 * dy + Height);
+  ca.LineTo(x + 16 * dx + Width, y + 16 * dy + Height);
+  ca.LineTo(x + 16 * dx + Width, y);
 end;
 
@@ -1550 +1547 @@
 end;
 
-procedure Texturize(Dest, Texture: TBitmap; TransparentColor: Integer);
+procedure Texturize(Dest, Texture: TBitmap; TransparentColor: Cardinal);
 var
   SrcPixel, DstPixel: TPixelPointer;