Changeset 374 for trunk/Direct.pas

Timestamp:

Apr 23, 2021, 1:48:45 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Still possible crash during change of partialy produced project in city screen.

File:

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

trunk/Direct.pas

@@ -58 +58 @@
 //  p: pointer;
   s: string;
-begin
+Begin
   case ID of
     ntInitLocalHuman: begin
@@ -65 +65 @@
       Info := Phrases.Lookup('BUSY_MODLH');
       Show;
-      {$IFDEF LINUX}
-      // Force shown window repaint on Gtk2 widgetset
-      Sleep(1);
-      Application.ProcessMessages;
-      {$ENDIF}
+      Gtk2Fix;
       Invalidate;
       Update;
@@ -198 +194 @@
 
 procedure TDirectDlg.FormShow(Sender: TObject);
+var
+  I: Integer;
 begin
   if not Gone then