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

Timestamp:

Apr 15, 2024, 8:59:23 PM (4 weeks ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1233 +1233 @@
   P, xp: Integer;
   sp: string;
-  shadow: Boolean;
+  Shadow: Boolean;
   Text: string;
 begin
   Inc(X);
   Inc(Y);
-  for shadow := True downto False do
+  for Shadow := True downto False do
     with Canvas do
-      if not shadow or (clBack <> $7F007F) then
+      if not Shadow or (clBack <> $7F007F) then
       begin
-        if shadow then
+        if Shadow then
           Font.Color := clBack
         else
@@ -1253 +1253 @@
             (sp[P + 1] in ['c', 'f', 'l', 'm', 'n', 'o', 'p', 'r', 't', 'w']) then
           begin
-            Canvas.Textout(xp, Y, sp);
+            Canvas.TextOut(xp, Y, sp);
             Break;
           end
@@ -1259 +1259 @@
           begin
             Text := Copy(sp, 1, P - 1);
-            Textout(xp, Y, Text);
+            TextOut(xp, Y, Text);
             Inc(xp, Canvas.TextWidth(Text));
-            if not shadow then
+            if not Shadow then
               case sp[P + 1] of
                 'c': PaintIcon(xp + 1, Y, 6);