Changeset 819 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/SubfilesU.pas

Timestamp:

Jul 2, 2010, 7:54:17 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed crash on non-login

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/SubfilesU.pas (modified) (5 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/SubfilesU.pas

@@ -30 +30 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   StrUtils, fPtDemoEdit,
-  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, Buttons;
+  Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls, Buttons, SortStringGrid;
 
 type
@@ -36 +36 @@
     Panel1: TPanel;
     TreeView: TTreeView;
-    SubFileGrid: TStringGrid;
+    SubFileGrid: TSortStringGrid;
     Splitter1: TSplitter;
     SubFileLabel: TLabel;
@@ -75 +75 @@
     GridInfo : TGridInfo;
     ModifiedForm : boolean;  //Used to see if current record is unsaved
-    procedure CompileChanges(Grid : TStringGrid; CurrentUser,Changes : TStringList);
-    procedure PostChanges(Grid : TStringGrid; IENS : string; SilentMode : boolean = false);
+    procedure CompileChanges(Grid : TSortStringGrid; CurrentUser,Changes : TStringList);
+    procedure PostChanges(Grid : TSortStringGrid; IENS : string; SilentMode : boolean = false);
     procedure GetAllSubRecords(SubFileNum, ParentIENS : string; SubRecsList : TStringList);
     procedure InitTreeView;
@@ -297 +297 @@
 
   
-  procedure TSubfileForm.PostChanges(Grid : TStringGrid; IENS : string; SilentMode : boolean);
+  procedure TSubfileForm.PostChanges(Grid : TSortStringGrid; IENS : string; SilentMode : boolean);
   
     function NewIENS(oldIENS : string; PostResults : TStringList) : string;
@@ -341 +341 @@
   end;
 
-  procedure TSubfileForm.CompileChanges(Grid : TStringGrid; CurrentUser,Changes : TStringList);
+  procedure TSubfileForm.CompileChanges(Grid : TSortStringGrid; CurrentUser,Changes : TStringList);
   //Output format:
   // FileNum^IENS^FieldNum^FieldName^newValue^oldValue