Changeset 190 for trunk/Direct.pas

Timestamp:

May 7, 2020, 10:33:59 AM (4 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/Direct.pas

@@ -129 +129 @@
           ShowModal;
           if ModalResult = mrOK then
-            OpenURL('http://c-evo.org/_sg/contact/cevobug.html');
+            OpenURL(CevoContactBug);
         end
     *)
@@ -218 +218 @@
     Application.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;
 
@@ -310 +309 @@
     PaintProgressBar(Canvas, 6, ClientWidth div 2 - 64, 40, State, 128 - State,
       128, MainTexture);
-  end
+  end;
 end;