Changeset 828 for cprs/branches/GUI-config/SubfilesU.pas

Timestamp:

Jul 7, 2010, 1:44:28 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Sortable grids, fixed hint-bug

File:

• cprs/branches/GUI-config/SubfilesU.pas (modified) (5 diffs)

cprs/branches/GUI-config/SubfilesU.pas

@@ -30 +30 @@
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   StrUtils, MainU,
-  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;
@@ -296 +296 @@
 
   
-  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;
@@ -340 +340 @@
   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