Changeset 109 for trunk/Forms

Timestamp:

Dec 10, 2024, 10:38:11 AM (6 weeks ago)

Author:

chronos

Message:

• Modified: Added more score information.
• Fixed: Record only non-zero scores.

Location:

trunk/Forms

Files:

• FormScore.lfm (modified) (2 diffs)
• FormScore.lrj (modified) (1 diff)
• FormScore.pas (modified) (1 diff)

trunk/Forms/FormScore.lfm

@@ -22 +22 @@
       end    
       item
+        Caption = 'Board size'
+        Width = 100
+      end    
+      item
         Caption = 'Score'
+        Width = 100
+      end    
+      item
+        Caption = 'Biggest tile'
         Width = 100
       end    
@@ -34 +42 @@
       end    
       item
-        Caption = 'Board size'
-        Width = 101
+        Caption = 'Disabled tiles'
+        Width = 100
+      end    
+      item
+        Caption = 'Unmergeable tiles'
+        Width = 100
+      end    
+      item
+        Caption = 'Duration'
+        Width = 100
       end>
     OwnerData = True

trunk/Forms/FormScore.lrj

@@ -2 +2 @@
 {"hash":5875333,"name":"tformscore.caption","sourcebytes":[83,99,111,114,101],"value":"Score"},
 {"hash":372789,"name":"tformscore.listview1.columns[0].caption","sourcebytes":[84,105,109,101],"value":"Time"},
-{"hash":5875333,"name":"tformscore.listview1.columns[1].caption","sourcebytes":[83,99,111,114,101],"value":"Score"},
-{"hash":5532867,"name":"tformscore.listview1.columns[2].caption","sourcebytes":[77,111,118,101,115],"value":"Moves"},
-{"hash":6048611,"name":"tformscore.listview1.columns[3].caption","sourcebytes":[85,110,100,111,115],"value":"Undos"},
-{"hash":140711557,"name":"tformscore.listview1.columns[4].caption","sourcebytes":[66,111,97,114,100,32,115,105,122,101],"value":"Board size"},
+{"hash":140711557,"name":"tformscore.listview1.columns[1].caption","sourcebytes":[66,111,97,114,100,32,115,105,122,101],"value":"Board size"},
+{"hash":5875333,"name":"tformscore.listview1.columns[2].caption","sourcebytes":[83,99,111,114,101],"value":"Score"},
+{"hash":250115045,"name":"tformscore.listview1.columns[3].caption","sourcebytes":[66,105,103,103,101,115,116,32,116,105,108,101],"value":"Biggest tile"},
+{"hash":5532867,"name":"tformscore.listview1.columns[4].caption","sourcebytes":[77,111,118,101,115],"value":"Moves"},
+{"hash":6048611,"name":"tformscore.listview1.columns[5].caption","sourcebytes":[85,110,100,111,115],"value":"Undos"},
+{"hash":116225219,"name":"tformscore.listview1.columns[6].caption","sourcebytes":[68,105,115,97,98,108,101,100,32,116,105,108,101,115],"value":"Disabled tiles"},
+{"hash":268299811,"name":"tformscore.listview1.columns[7].caption","sourcebytes":[85,110,109,101,114,103,101,97,98,108,101,32,116,105,108,101,115],"value":"Unmergeable tiles"},
+{"hash":210283758,"name":"tformscore.listview1.columns[8].caption","sourcebytes":[68,117,114,97,116,105,111,110],"value":"Duration"},
 {"hash":4863637,"name":"tformscore.buttonclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},
 {"hash":4860802,"name":"tformscore.buttonclear.caption","sourcebytes":[67,108,101,97,114],"value":"Clear"}

trunk/Forms/FormScore.pas

@@ -43 +43 @@
   with FScores[Item.Index] do begin
     Item.Caption := DateTimeToStr(StartTime);
+    Item.SubItems.Add(BoardSize);
     Item.SubItems.Add(IntToStr(Score));
+    Item.SubItems.Add(IntToStr(1 shl BiggestTile));
     Item.SubItems.Add(IntToStr(Moves));
     Item.SubItems.Add(IntToStr(UsedUndos));
-    Item.SubItems.Add(BoardSize);
+    Item.SubItems.Add(IntToStr(DisabledTiles));
+    Item.SubItems.Add(IntToStr(UnmergeableTiles));
+    Item.SubItems.Add(TimeToStr(Duration));
   end;
 end;