Changeset 756 for cprs/branches/GUI-config/MainU.pas

Timestamp:

May 12, 2010, 3:05:42 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed several issues with Advanced Users tab

File:

• cprs/branches/GUI-config/MainU.pas (modified) (3 diffs)

cprs/branches/GUI-config/MainU.pas

@@ -1037 +1037 @@
   
   procedure TMainForm.ClearGrid(Grid : TStringGrid);
-  begin
-    Grid.Cells[0,1] := '';
-    Grid.Cells[1,1] := '';
-    Grid.Cells[2,1] := '';
+  var i:integer;
+  begin
+    for i := 1 to 23 do begin    //elh added to clear all data as some residual remained
+       Grid.Cells[0,i] := '';
+       Grid.Cells[1,i] := '';
+       Grid.Cells[2,i] := '';
+    end;
     Grid.RowCount :=2;
   end;
@@ -1478 +1481 @@
       //Reject any value containing a "^" , ":" , ";"
       //Do we need an @ here as well?
-      if (AnsiPos('^',Entry.newvalue) > 0) or (AnsiPos(':',Entry.newvalue) > 0) or
+      if (AnsiPos('^',Entry.newvalue) > 0) or //(AnsiPos(':',Entry.newvalue) > 0) or   //elh Taken out because : used in time
          (AnsiPos(';',Entry.newvalue) > 0)then begin
          messagedlg('Invalid value entered for ' + Entry.Fieldname + #13 + #10
@@ -1912 +1915 @@
   procedure TMainForm.UserPageControlChange(Sender: TObject);
   begin
-    if SettingsPageControl.ActivePage = tsBasicSettings then begin
-      SetVisibleGridIdx(BasicUsersGrid);        
+    if UserPageControl.ActivePage = tsBasicPage then begin
+      SetVisibleGridIdx(BasicUsersGrid);
     end else begin
       SetVisibleGridIdx(AdvancedUsersGrid);