Changeset 6 for trunk/Log.pas

Timestamp:

Jan 7, 2017, 11:32:14 AM (7 years ago)

Author:

chronos

Message:

• Modified: Formated all project source files using Delphi formatter as original indentation and other formatting was really bad.

File:

• trunk/Log.pas (modified) (6 diffs)

trunk/Log.pas

@@ -1 +1 @@
 {$INCLUDE switches}
-
 unit log;
 
@@ -28 +27 @@
     procedure mClearClick(Sender: TObject);
     procedure mSlotClick(Sender: TObject);
-    procedure FormKeyDown(Sender: TObject; var Key: word;
-      Shift: TShiftState);
+    procedure FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
     procedure Toggle(Sender: TObject);
     procedure ListMouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; X, Y: Integer);
-    procedure FormKeyUp(Sender: TObject; var Key: Word;
-      Shift: TShiftState);
+    procedure FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState);
   public
     Host: TForm;
-    procedure Add(Level, Turn: integer; Text: pchar);
+    procedure Add(Level, Turn: Integer; Text: pchar);
   private
-    MaxLevel: integer;
+    MaxLevel: Integer;
   end;
 
@@ -48 +45 @@
 
 uses
-ClientTools,Tribes;
+  ClientTools, Tribes;
 
 {$R *.DFM}
 
 const
-MaxLines=1000;
+  MaxLines = 1000;
 
 procedure TLogDlg.FormCreate(Sender: TObject);
 begin
-MaxLevel:=0;
+  MaxLevel := 0;
 end;
 
 procedure TLogDlg.mLogClick(Sender: TObject);
 begin
-MaxLevel:=TMenuItem(Sender).Tag;
-TMenuItem(Sender).Checked:=true;
+  MaxLevel := TMenuItem(Sender).Tag;
+  TMenuItem(Sender).Checked := true;
 end;
 
-procedure TLogDlg.Add(Level, Turn: integer; Text: pchar);
+procedure TLogDlg.Add(Level, Turn: Integer; Text: pchar);
 begin
-if (MaxLevel>0) and (Level<=MaxLevel)
-  or (Level=1 shl 16+1) and mInvalid.Checked
-  or (Level=1 shl 16+2) and mTime.Checked
-  or (Level=1 shl 16+3) and mNegotiation.Checked then
+  if (MaxLevel > 0) and (Level <= MaxLevel) or (Level = 1 shl 16 + 1) and
+    mInvalid.Checked or (Level = 1 shl 16 + 2) and mTime.Checked or
+    (Level = 1 shl 16 + 3) and mNegotiation.Checked then
   begin
-  if List.Lines.Count=MaxLines then List.Lines.Delete(0);
-  List.Lines.Add(char(48+Turn div 100 mod 10)
-    +char(48+Turn div 10 mod 10)+char(48+Turn mod 10)+' '+Text);
-  PostMessage(List.Handle,WM_VSCROLL,SB_BOTTOM,0);
-  Update;
+    if List.Lines.Count = MaxLines then
+      List.Lines.Delete(0);
+    List.Lines.Add(char(48 + Turn div 100 mod 10) +
+      char(48 + Turn div 10 mod 10) + char(48 + Turn mod 10) + ' ' + Text);
+    PostMessage(List.Handle, WM_VSCROLL, SB_BOTTOM, 0);
+    Update;
   end;
 end;
@@ -83 +80 @@
 procedure TLogDlg.mClearClick(Sender: TObject);
 begin
-List.Clear;
+  List.Clear;
 end;
 
 procedure TLogDlg.mSlotClick(Sender: TObject);
 const
-SlotNo: array[0..2,0..2] of integer=((8,1,2),(7,0,3),(6,5,4));
+  SlotNo: array [0 .. 2, 0 .. 2] of Integer = ((8, 1, 2), (7, 0, 3), (6, 5, 4));
 var
-x,y: integer;
-s: string;
+  X, Y: Integer;
+  s: string;
 begin
-for y:=0 to 2 do
+  for Y := 0 to 2 do
   begin
-  s:='| ';
-  for x:=0 to 2 do
-    if G.Difficulty[SlotNo[y,x]]=0 then s:=s+'SUP |'
-    else if G.Difficulty[SlotNo[y,x]]<0 then s:=s+'--- |'
-    else
+    s := '| ';
+    for X := 0 to 2 do
+      if G.Difficulty[SlotNo[Y, X]] = 0 then
+        s := s + 'SUP |'
+      else if G.Difficulty[SlotNo[Y, X]] < 0 then
+        s := s + '--- |'
+      else
       begin
-      if SlotNo[y,x] in [6..8] then
+        if SlotNo[Y, X] in [6 .. 8] then
         begin // check multi control
-        if G.Difficulty[SlotNo[y,x]+3]>=0 then
-          s:=s+Tribe[SlotNo[y,x]+3].TPhrase('SHORTNAME')+'+';
-        if G.Difficulty[SlotNo[y,x]+6]>=0 then
-          s:=s+Tribe[SlotNo[y,x]+6].TPhrase('SHORTNAME')+'+';
+          if G.Difficulty[SlotNo[Y, X] + 3] >= 0 then
+            s := s + Tribe[SlotNo[Y, X] + 3].TPhrase('SHORTNAME') + '+';
+          if G.Difficulty[SlotNo[Y, X] + 6] >= 0 then
+            s := s + Tribe[SlotNo[Y, X] + 6].TPhrase('SHORTNAME') + '+';
         end;
-      s:=s+Tribe[SlotNo[y,x]].TPhrase('SHORTNAME')+' | ';
+        s := s + Tribe[SlotNo[Y, X]].TPhrase('SHORTNAME') + ' | ';
       end;
-  List.Lines.Add(s)
+    List.Lines.Add(s)
   end;
-PostMessage(List.Handle,WM_VSCROLL,SB_BOTTOM,0);
+  PostMessage(List.Handle, WM_VSCROLL, SB_BOTTOM, 0);
 end;
 
@@ -118 +117 @@
   Shift: TShiftState);
 begin
-if Host<>nil then
-  Host.OnKeyDown(Sender, Key, Shift);
+  if Host <> nil then
+    Host.OnKeyDown(Sender, Key, Shift);
 end;
 
 procedure TLogDlg.Toggle(Sender: TObject);
 begin
-TMenuItem(Sender).Checked:=not TMenuItem(Sender).Checked;
+  TMenuItem(Sender).Checked := not TMenuItem(Sender).Checked;
 end;
 
@@ -130 +129 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-if Button=mbRight then LogPopup.Popup(Left+x,Top+y);
+  if Button = mbRight then
+    LogPopup.Popup(Left + X, Top + Y);
 end;
 
-procedure TLogDlg.FormKeyUp(Sender: TObject; var Key: Word;
-  Shift: TShiftState);
+procedure TLogDlg.FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState);
 begin
-if Host<>nil then
-  Host.OnKeyUp(Sender, Key, Shift);
+  if Host <> nil then
+    Host.OnKeyUp(Sender, Key, Shift);
 end;
 
 end.
-