Changeset 18 for trunk/Forms

Timestamp:

Nov 15, 2012, 3:34:26 PM (12 years ago)

Author:

chronos

Message:

 

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -167 +167 @@
     Align := alClient;
     Show;
-    View := TDataViewList(DataViewLists[TTabSheet(Sender).Tag]);
+    if TTabSheet(Sender).Tag < DataViewLists.Count then
+      View := TDataViewList(DataViewLists[TTabSheet(Sender).Tag])
+      else View := nil;
     UpdateData;
   end;