Changeset 18 for trunk

Timestamp:

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

Author:

chronos

Message:

 

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• Modules/Attendance/UModuleAttendance.pas (modified) (1 diff)
• SQL/18.sql (added)

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;

trunk/Modules/Attendance/UModuleAttendance.pas

@@ -299 +299 @@
       AddItem(SPort, 'Port', ctSpinEdit, True, Bounds(3, 1, 1, 1));
       AddItem(SType, 'Type', ctComboBox, True, Bounds(1, 2, 1, 1));
-      AddItem(SNote, 'Note', ctMemo, True, Bounds(3, 2, 1, 1));
+      AddItem(SNote, 'Note', ctMemo, True, Bounds(0, 4, 4, 4), alTop);
     end;
     Name := 'Terminal';