Changeset 210 for branches/highdpi/Direct.pas

Timestamp:

May 9, 2020, 4:02:07 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/Direct.pas

@@ -5 +5 @@
 
 uses
-  Messg,
+  UDpiControls, Messg,
 
   LCLIntf, LCLType, {$IFDEF Linux}LMessages, {$ENDIF}Messages, SysUtils, Classes,
@@ -129 +129 @@
           ShowModal;
           if ModalResult = mrOK then
-            OpenURL('http://c-evo.org/_sg/contact/cevobug.html');
+            OpenURL(CevoContactBug);
         end
     *)
@@ -216 +216 @@
   if Brains.Count = 3 then
   begin
-    Application.MessageBox(PChar(Phrases.Lookup('NOAI')), 'C-evo', 0);
+    DpiApplication.MessageBox(PChar(Phrases.Lookup('NOAI')), 'C-evo', 0);
     Close;
-    exit
+    exit;
   end;
   Quick := false;
@@ -244 +244 @@
       begin
         SimpleMessage(Phrases.Lookup('LOADERR'));
-        Close
-      end
-    end
-  end;
-  if not Quick then
-  begin
+        Close;
+      end;
+    end;
+  end;
+  if not Quick then begin
     background.Show;
-    StartDlg.Show
-  end
+    StartDlg.Show;
+  end;
 end;
 
@@ -267 +266 @@
 procedure TDirectDlg.OnAIException(var Msg: TMessage);
 begin
-  Application.MessageBox(PChar(Format(Phrases.Lookup('AIEXCEPTION'),
+  DpiApplication.MessageBox(PChar(Format(Phrases.Lookup('AIEXCEPTION'),
     [Brains[Msg.WParam].Name])), 'C-evo', 0);
 end;
@@ -310 +309 @@
     PaintProgressBar(Canvas, 6, ClientWidth div 2 - 64, 40, State, 128 - State,
       128, MainTexture);
-  end
+  end;
 end;