Changeset 352 for trunk/Inp.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/Inp.pas (modified) (2 diffs)

trunk/Inp.pas

@@ -46 +46 @@
   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, EInput.BoundsRect, MainTexture);
   BtnFrame(Canvas, OKBtn.BoundsRect, MainTexture);
@@ -84 +84 @@
 begin
   OKBtn.Caption := Phrases.Lookup('BTN_OK');
-  EInput.Font.Color := MainTexture.clMark;
+  EInput.Font.Color := MainTexture.ColorMark;
   EInput.SelStart := 0;
   EInput.SelLength := Length(EInput.Text);