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

Timestamp:

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

Author:

Kevin Toppenberg

Message:

Fixed crash on non-login

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas (modified) (19 diffs)

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

@@ -6 +6 @@
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DKLang, Grids;
+  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DKLang, Grids, SortStringGrid;
 
 type
@@ -23 +23 @@
   TGridInfo = class (TObject)
   public
-    Grid      : TStringGrid;  //doesn't own object
+    Grid      : TSortStringGrid;  //doesn't own object
     FileNum   : string;
     IENS      : string;
@@ -150 +150 @@
     EMailEdit: TEdit;
     Advanced: TTabSheet;
-    gridPatientDemo: TStringGrid;
+    gridPatientDemo: TSortStringGrid;
     procedure AliasComboBoxChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -219 +219 @@
     procedure ShowPtInfo(Patient : TPatientInfo);
     function CombinedName : string;
-    procedure AddGridInfo(Grid: TStringGrid;
+    procedure AddGridInfo(Grid: TSortStringGrid;
                                   Data : TStringList;
                                   BasicMode : boolean;
@@ -228 +228 @@
     procedure SetModified(value : boolean);
     procedure SetAliasEnabled(value : boolean);
-    function PostChanges(Grid : TStringGrid) : TModalResult;
-    procedure CompileChanges(Grid : TStringGrid; CurrentUserData,Changes : TStringList);
+    function PostChanges(Grid : TSortStringGrid) : TModalResult;
+    procedure CompileChanges(Grid : TSortStringGrid; CurrentUserData,Changes : TStringList);
     procedure RegisterGridInfo(GridInfo : TGridInfo);
   public
     { Public declarations }
-    function GetInfoForGrid(Grid : TStringGrid) : TGridInfo;
-    procedure LoadAnyGrid(Grid : TStringGrid; BasicMode: boolean; FileNum : string;
+    function GetInfoForGrid(Grid : TSortStringGrid) : TGridInfo;
+    procedure LoadAnyGrid(Grid : TSortStringGrid; BasicMode: boolean; FileNum : string;
                                   IENS : string;
                                   CurrentData : TStringList);
@@ -240 +240 @@
     function IsWPField(FileNum,FieldNum : string) : boolean;
     function IsSubFile(FieldDef: string ; var SubFileNum : string) : boolean;
-    function GetInfoIndexForGrid(Grid : TStringGrid) : integer;
+    function GetInfoIndexForGrid(Grid : TSortStringGrid) : integer;
     function PostVisibleGrid: TModalResult;
-    function GetLineInfo(Grid : TStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
+    function GetLineInfo(Grid : TSortStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
     procedure GetOneRecord(FileNum, IENS : string; Data, BlankFileInfo: TStringList);
     //procedure GridSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
-    function GetUserLine(CurrentUserData : TStringList; Grid : TStringGrid; ARow: integer) : integer;
+    function GetUserLine(CurrentUserData : TStringList; Grid : TSortStringGrid; ARow: integer) : integer;
     function FindInStrings(fieldNum : string; Strings : TStringList; var fileNum : string) : integer;
   end;
@@ -1283 +1283 @@
   end;
 
-function TfrmPtDemoEdit.PostChanges(Grid : TStringGrid) : TModalResult;
+function TfrmPtDemoEdit.PostChanges(Grid : TSortStringGrid) : TModalResult;
   //Results:  mrNone -- no post done (not needed)
   //          mrCancel -- user pressed cancel on confirmation screen.
@@ -1338 +1338 @@
   end;
 
-  procedure TfrmPtDemoEdit.CompileChanges(Grid : TStringGrid; CurrentUserData,Changes : TStringList);
+  procedure TfrmPtDemoEdit.CompileChanges(Grid : TSortStringGrid; CurrentUserData,Changes : TStringList);
   //Output format:
   // FileNum^IENS^FieldNum^FieldName^newValue^oldValue
@@ -1449 +1449 @@
 var cmd,RPCResult : string;
     IENS : String;
-    grid : TStringGrid;
+    grid : TSortStringGrid;
 begin
 //    IENS := Patient.DFN;
@@ -1482 +1482 @@
 end;
 
-procedure TfrmPtDemoEdit.LoadAnyGrid(Grid : TStringGrid;  //the TStringGrid to load
+procedure TfrmPtDemoEdit.LoadAnyGrid(Grid : TSortStringGrid;  //the TSortStringGrid to load
                                      BasicMode: boolean;
                                      FileNum : string;
@@ -1504 +1504 @@
   //This assumes that GridInfo already has loaded info.
   var
-    Grid : TStringGrid;  //the TStringGrid to load
+    Grid : TSortStringGrid;  //the TSortStringGrid to load
     BasicMode: boolean;
     FileNum : string;
@@ -1510 +1510 @@
     CurrentData : TStringList;
 
-    procedure LoadOneLine (Grid : TStringGrid; oneEntry : string; GridRow : integer);
+    procedure LoadOneLine (Grid : TSortStringGrid; oneEntry : string; GridRow : integer);
     var
       tempFile,IENS : string;
@@ -1604 +1604 @@
   end;
 
-  function TfrmPtDemoEdit.GetInfoForGrid(Grid : TStringGrid) : TGridInfo;
+  function TfrmPtDemoEdit.GetInfoForGrid(Grid : TSortStringGrid) : TGridInfo;
   var i : integer;
   begin
@@ -1616 +1616 @@
 
 
-  function TfrmPtDemoEdit.GetInfoIndexForGrid(Grid : TStringGrid) : integer;
+  function TfrmPtDemoEdit.GetInfoIndexForGrid(Grid : TSortStringGrid) : integer;
   var s : string;
   begin
@@ -1705 +1705 @@
       GridFileNum : string;
       UserLine : integer;
-      Grid : TStringGrid;
+      Grid : TSortStringGrid;
       IEN : int64;
       IENS : string;
@@ -1713 +1713 @@
   begin
     if FLoadingGrid then exit;  //prevent pseudo-clicks during loading...
-    Grid := (Sender as TStringGrid);
+    Grid := (Sender as TSortStringGrid);
     GridInfo := GetInfoForGrid(Grid);
     if GridInfo=nil then exit;
@@ -1798 +1798 @@
   end;
 
-  function TfrmPtDemoEdit.GetLineInfo(Grid : TStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
+  function TfrmPtDemoEdit.GetLineInfo(Grid : TSortStringGrid; CurrentUserData : TStringList; ARow: integer) : tFileEntry;
   var fieldNum : string;
       oneEntry : string;
@@ -1861 +1861 @@
   end;
 
-function TfrmPtDemoEdit.GetUserLine(CurrentUserData : TStringList; Grid : TStringGrid; ARow: integer) : integer;
+function TfrmPtDemoEdit.GetUserLine(CurrentUserData : TStringList; Grid : TSortStringGrid; ARow: integer) : integer;
   var fieldNum: string;
       tempFileNum : string;
@@ -1889 +1889 @@
   end;
 
- procedure TfrmPtDemoEdit.AddGridInfo(Grid: TStringGrid;
+ procedure TfrmPtDemoEdit.AddGridInfo(Grid: TSortStringGrid;
                                   Data : TStringList;
                                   BasicMode : boolean;