Changeset 378 for branches/highdpi/Direct.pas

Timestamp:

Apr 24, 2021, 11:41:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r377.

File:

• branches/highdpi/Direct.pas (modified) (5 diffs)

branches/highdpi/Direct.pas

@@ -43 +43 @@
 
 uses
-  ScreenTools, Protocol, Start, LocalPlayer, NoTerm, Back, Global;
+  ScreenTools, Protocol, Start, LocalPlayer, NoTerm, Back, Global, UNetworkServer,
+  UNetworkClient;
 
 {$R *.lfm}
@@ -57 +58 @@
 //  p: pointer;
   s: string;
-begin
+Begin
   case ID of
     ntInitLocalHuman: begin
@@ -64 +65 @@
       Info := Phrases.Lookup('BUSY_MODLH');
       Show;
-      {$IFDEF LINUX}
-      // Force shown window repaint on Gtk2 widgetset
-      Sleep(1);
-      DpiApplication.ProcessMessages;
-      {$ENDIF}
+      Gtk2Fix;
       Invalidate;
       Update;
@@ -185 +182 @@
   BrainTerm.Client := LocalPlayer.Client;
   BrainTerm.Name := Phrases.Lookup('HUMAN');
+  if NetworkEnabled then begin
+    BrainNetworkServer.Client := UNetworkServer.Client;
+    BrainNetworkServer.Name := Phrases.Lookup('NETWORK_SERVER');
+    BrainNetworkClient.Client := UNetworkClient.Client;
+    BrainNetworkClient.Name := Phrases.Lookup('NETWORK_CLIENT');
+  end;
   BrainRandom.Name := Phrases.Lookup('RANDOMAI');
   Canvas.Font.Assign(UniFont[ftNormal]);
@@ -191 +194 @@
 
 procedure TDirectDlg.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
   if not Gone then