Changeset 31 for trunk

Timestamp:

Jan 8, 2017, 10:59:32 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Switching tabs in start screen. Autoselection of item in list was not working correctly.

File:

• trunk/Start.pas (modified) (3 diffs)

trunk/Start.pas

@@ -422 +422 @@
   r0 := CreateRectRgn(x0, y0, x1, y1);
   for i := 0 to ControlCount - 1 do
-    if not(Controls[i] is TArea) and Controls[i].Visible then
+    if not (Controls[i] is TArea) and Controls[i].Visible then
     begin
       with Controls[i].BoundsRect do
@@ -1092 +1092 @@
             MiniLine[xm, 2] := cm and $FF;
           end;
-        Mini.EndUpdate;
       end;
+      Mini.EndUpdate;
     end;
   end;
@@ -1534 +1534 @@
   end;
   if Tab <> 2 then
-    if ListIndex[Tab] >= 0 then
-      List.ItemIndex := ListIndex[Tab]
-    else
-      List.ItemIndex := 0;
+    if List.Count > 0 then begin
+      if (List.Count > ListIndex[Tab]) then
+        List.ItemIndex := ListIndex[Tab]
+        else List.ItemIndex := 0;
+    end else List.ItemIndex := -1;
   case Tab of
     0: