Changeset 361 for branches/highdpi/Direct.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/Direct.pas (modified) (3 diffs)

branches/highdpi/Direct.pas

@@ -60 +60 @@
   case ID of
     ntInitLocalHuman: begin
-      SetMainTextureByAge(-1);
+      MainTexture.Age := -1;
       State := -1;
       Info := Phrases.Lookup('BUSY_MODLH');
       Show;
       {$IFDEF LINUX}
+      // Force shown window repaint on Gtk2 widgetset
+      Sleep(1);
       DpiApplication.ProcessMessages;
       {$ENDIF}
@@ -151 +153 @@
         while BiColorTextWidth(Canvas, Info) + 64 > ClientWidth do
           Delete(Info, Length(Info), 1);
-        SetMainTextureByAge(-1);
+        MainTexture.Age := -1;
         State := -1;
         Show;
         {$IFDEF LINUX}
+        // Force shown window repaint on Gtk2 widgetset
+        Sleep(1);
         DpiApplication.ProcessMessages;
         {$ENDIF}
@@ -276 +280 @@
   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);
   if State >= 0 then
     RisedTextOut(Canvas, (ClientWidth - BiColorTextWidth(Canvas, Info))