From 133f0b4ebcc3b731e680a72ced52d00638791bf7 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 4 Jun 2009 21:31:23 +0000
Subject: cosmetics

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1800 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UMain.pas | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

(limited to 'src/base/UMain.pas')

diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index 3900c877..275510fc 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -359,9 +359,11 @@ begin
     CountMidTime;
 
     Delay := Floor(1000 / MAX_FPS - 1000 * TimeMid);
+    Log.LogError ('MainLoop', 'Delay: ' + intToStr(Delay));
 
     if Delay >= 1 then
       SDL_Delay(Delay); // dynamic, maximum is 100 fps
+    Log.LogError ('MainLoop', 'Delay: ok ' + intToStr(Delay));
 
     CountSkipTime;
 
@@ -386,15 +388,15 @@ begin
   begin
     Display.Fade := 0;
     Display.NextScreenWithCheck := nil;
-    Display.CheckOK := True;
+    Display.CheckOK := true;
   end;
 end;
 
 procedure CheckEvents;
 var
-  Event: TSDL_event;
-  mouseDown:  Boolean;
-  mouseBtn: Integer;
+  Event:     TSDL_event;
+  mouseDown: boolean;
+  mouseBtn:  integer;
 begin
   if Assigned(Display.NextScreen) then
     Exit;
@@ -416,18 +418,18 @@ begin
           case Event.type_ of
             SDL_MOUSEMOTION:
             begin
-              mouseDown := False;
-              mouseBtn := 0;
+              mouseDown := false;
+              mouseBtn  := 0;
             end;
             SDL_MOUSEBUTTONDOWN:
             begin
-              mouseDown := True;
-              mouseBtn := Event.button.button;
+              mouseDown := true;
+              mouseBtn  := Event.button.button;
             end;
             SDL_MOUSEBUTTONUP:
             begin
-              mouseDown := False;
-              mouseBtn := Event.button.button;
+              mouseDown := false;
+              mouseBtn  := Event.button.button;
             end;
           end;
 
-- 
cgit v1.2.3