Changeset 352 for trunk/Settings.pas

Timestamp:

Apr 6, 2021, 10:16:55 PM (3 years ago)

Author:

chronos

Message:

• Modified: TTexture changed from record to class.
• Modified: Code cleanup.

File:

• trunk/Settings.pas (modified) (3 diffs)

trunk/Settings.pas

@@ -141 +141 @@
   Frame(Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
   Frame(Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,
-    MainTexture.clBevelLight, MainTexture.clBevelShade);
+    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
   Frame(Canvas, 2, 2, ClientWidth - 3, ClientHeight - 3,
-    MainTexture.clBevelLight, MainTexture.clBevelShade);
+    MainTexture.ColorBevelLight, MainTexture.ColorBevelShade);
   EditFrame(Canvas, List.BoundsRect, MainTexture);
   BtnFrame(Canvas, OKBtn.BoundsRect, MainTexture);
@@ -149 +149 @@
 
   RFrame(Canvas, ButtonFullscreen.Left - 1, ButtonFullscreen.Top - 1,
-    ButtonFullscreen.Left + 12, ButtonFullscreen.Top + 12, MainTexture.clBevelShade,
-    MainTexture.clBevelLight);
+    ButtonFullscreen.Left + 12, ButtonFullscreen.Top + 12, MainTexture.ColorBevelShade,
+    MainTexture.ColorBevelLight);
 
   S := Phrases.Lookup('SETTINGS', 0);
@@ -164 +164 @@
 begin
   Languages.LoadToStrings(List.Items);
-  List.Font.Color := MainTexture.clMark;
+  List.Font.Color := MainTexture.ColorMark;
   LoadData;
 end;