Changeset 447 for trunk/Direct.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

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

trunk/Direct.pas

@@ -29 +29 @@
     Gone: Boolean;
     Quick: Boolean;
-    procedure SetInfo(x: string);
-    procedure SetState(x: integer);
+    procedure SetInfo(X: string);
+    procedure SetState(X: Integer);
     procedure OnGo(var Msg: TMessage); message WM_GO;
     procedure OnChangeClient(var Msg: TMessage); message WM_CHANGECLIENT;
@@ -57 +57 @@
 //  hMem: Cardinal;
 //  p: pointer;
-  s: string;
+  S: string;
 Begin
   case ID of
@@ -72 +72 @@
       if visible then
       begin
-        s := Format(Phrases.Lookup('BUSY_MOD'), [Brains[Index].Name]);
-        while BiColorTextWidth(Canvas, s) + 64 > ClientWidth do
-          Delete(s, Length(s), 1);
-        SetInfo(s);
+        S := Format(Phrases.Lookup('BUSY_MOD'), [Brains[Index].Name]);
+        while BiColorTextWidth(Canvas, S) + 64 > ClientWidth do
+          Delete(S, Length(S), 1);
+        SetInfo(S);
       end;
     ntCreateWorld:
@@ -111 +111 @@
           hMem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE,
             Length(NotifyMessage));
-          p := GlobalLock(hMem);
-          if p <> nil then
-            move(NotifyMessage[1], p^, Length(NotifyMessage));
+          P := GlobalLock(hMem);
+          if P <> nil then
+            Move(NotifyMessage[1], P^, Length(NotifyMessage));
           GlobalUnlock(hMem);
           SetClipboardData(CF_TEXT, hMem);
@@ -198 +198 @@
   begin
     PostMessage(Handle, WM_GO, 0, 0);
-    Gone := true;
+    Gone := True;
   end;
 end;
@@ -209 +209 @@
 procedure TDirectDlg.OnGo(var Msg: TMessage);
 var
-  i: integer;
-  s: string;
+  I: Integer;
+  S: string;
   FileName: string;
 begin
@@ -220 +220 @@
     Exit;
   end;
-  Quick := false;
+  Quick := False;
   if ParamCount > 0 then
   begin
-    s := ParamStr(1);
-    if (s[1] = '-') {$IFDEF WINDOWS}or (s[1] = '/'){$ENDIF} then
+    S := ParamStr(1);
+    if (S[1] = '-') {$IFDEF WINDOWS}or (S[1] = '/'){$ENDIF} then
     begin // special mode
-      Delete(s, 1, 1);
-      for i := 1 to Length(s) do
-        if s[i] in ['a' .. 'z'] then
-          dec(s[i], 32);
-      if s = 'MAN' then
+      Delete(S, 1, 1);
+      for I := 1 to Length(S) do
+        if S[I] in ['a' .. 'z'] then
+          Dec(S[I], 32);
+      if S = 'MAN' then
       begin
-        Quick := true;
+        Quick := True;
         DirectHelp(cHelpOnly);
         Close;
@@ -242 +242 @@
         Quick := True;
         if not LoadGame(ExtractFilePath(ParamStr(1)), ExtractFileName(ParamStr(1)
-        ), -1, false) then begin
+        ), -1, False) then begin
           SimpleMessage(Phrases.Lookup('LOADERR'));
           Close;
@@ -297 +297 @@
 end;
 
-procedure TDirectDlg.SetInfo(x: string);
-begin
-  Info := x;
+procedure TDirectDlg.SetInfo(X: string);
+begin
+  Info := X;
   Invalidate;
   Update;
@@ -307 +307 @@
 end;
 
-procedure TDirectDlg.SetState(x: integer);
-begin
-  if (x < 0) <> (State < 0) then begin
-    State := x;
+procedure TDirectDlg.SetState(X: Integer);
+begin
+  if (X < 0) <> (State < 0) then begin
+    State := X;
     Invalidate;
     Update;
   end
-  else if x <> State then begin
-    State := x;
+  else if X <> State then begin
+    State := X;
     PaintProgressBar(Canvas, 6, ClientWidth div 2 - 64, 40, State, 128 - State,
       128, MainTexture);