Changeset 361 for branches/highdpi/Inp.pas

Timestamp:

Apr 9, 2021, 5:56:50 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r360 into highdpi branch.

File:

• branches/highdpi/Inp.pas (modified) (3 diffs)

branches/highdpi/Inp.pas

@@ -37 +37 @@
   Canvas.Brush.Style := bsClear;
   TitleHeight := Height;
-  InitButtons();
+  InitButtons;
   Center := true;
 end;
@@ -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);