Changeset 374 for trunk/Packages/CevoComponents/ScreenTools.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/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -126 +126 @@
 function ScaleFromNative(Value: Integer): Integer;
 procedure UnshareBitmap(Bitmap: TBitmap);
+procedure Gtk2Fix;
 
 const
@@ -1663 +1664 @@
 end;
 
+procedure Gtk2Fix;
+var
+  I: Integer;
+begin
+  {$IFDEF LINUX}
+  // Wait and process messages little bit to avoid crash or force repaint under Gtk2
+  for I := 0 to 10 do begin
+    Sleep(1);
+    Application.ProcessMessages;
+  end;
+  {$ENDIF}
+end;
+
 procedure LoadFonts;
 var